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PREFACE, 



This Program Logic Manual (PLM) is a 
detailed guide to the IBM System/360 Disk 
Operating System supervisor, physical 
transient, and logical transient programs. 
It supplements the program listings by 
providing descriptive text and flowcharts. 

Prerequisite and related publications 
that aid in the use of this manual are: 



IBM System/360 Disk Operating System, 
Basic Telecommunications Access Method 
PLM, Form Y30-5001. 



IBM System/360 Disk Operating System, 
Queued Telecommunications Access Method 
PLM, Form Y30-5002. 



IBM System/3 60 Principles of Operation , 
Form A22-6821. 

IBM System/360 Disk Operating System, 
System Control and Service Programs , 
Form C24-5036. 

IBM System/360 Disk Operating System, 
Supervisor and Input/Output Macros , Form 
C2 4-5037. 

IBM System/360 Disk Operating System, 
System Generation and Maintenance , Form 
C24-5033. 

IBM System/36.0 Disk Operating System, 
Operating Guid e, Form C24-5022. 

IBM System/3 60 Disk Operating System, 
Data Management Concepts , Form C24-3427. 

IBM System/3 60 Disk and Tape Operating 
Systems: Assembler Specifications , Fo rm 
C24-3414. 



Titles and abstracts of other related 
publications are listed in the IBM 
System/360 Bibliography , Form A.22-6822. 

This manual consists of seven major 
sections. The first section is an 
introduction to the supervisor and 
transient programs. The next section 
describes the generation and organization 
of the supervisor. The next four sections 
describe the detailed operation of the 
supervisor, physical IOCS, physical 
transients, and logical transients. The 
last section of the manual, the appendixes, 
contains the label list, error messages, 
and other references for use in analyzing 
program details. 

The flowcharts for all components are 
located at the end of the manual. The 
detailed flowcharts are identified by 
letters AA through ZZ. Numerals, such as 
00 for the program level flowchart, 
identify the more general flowcharts. 
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INTRODUCTION 



The resident version of the IBM System/360 
Disk Operating System (DOS) , System 
Control, Version 3, provides disk operating 
system capabilities for 16K and larger 
System/360 configurations. At least one 
IBM 2311 Disk Storage Drive or IBM 2314 
Direct Access Storage Facility is required. 



Systems larger than 16K can benefit from 
this 16K package if they do not require the 
expanded functions of the larger disk 
operating system packages offered by IBM. 
The system is disk resident, using the IBM 
2311 or IBM 2314 Disk Storage Drive for 
on-line storage of all programs. Depending 
on the requirements of the particular 
application, the system can be expanded to 
include all processing programs used to 
perform the various jobs of a particular 
installation, or it can be tailored to a 
minimum system to control a single program. 



The operating system includes the 
following components: CPU, input/output 
channels, input/output control units, 
input/output devices, microprogramming, 
system control programs, support programs, 
user programs, user data files, 
Teleprocessing capability, and multiple 
programming capability. This PLM discusses 
the supervisor and the physical and logical 
transients that are part of system control. 
The supervisor and physical IOCS are 
specifically designed for a user's 
configuration by means of a one time 
assembly (generation time) . They require 
reassembly only if the user's configuration 
changes. 

The supervisor and physical IOCS provide 
the required interface between the program 
being executed and the other components of 
the operating system. The program 
currently being executed is identified to 
the operating system as the current 
program. The last program interrupted is 
identified as the problem program. The 
problem program or the current program can 
be, at any given time, either a system 
control program, a support program, or a 
user program. 

The supervisor program operates with 
problem programs when job processing 
(problem program execution) occurs. The 
supervisor program is divided into two 
parts : 

1. The resident part, called the 
supervisor nucleus ; 



The nonresident part, called a 
supervisor transient . 



The nucleus is loaded into main storage 
at IPL- time and remains there throughout 
job processing. A transient (one of many) 
is loaded, as needed, from the core image 
library of SYSRES. When a transient has 
finished performing its service, it can be 
overlaid by some other transient when some 
other type of service is required. This 
technique maximizes the use of main storage 
allotted to the supervisor. The basic 
functions performed by the supervisor are: 

• Storage protection (required for 
multiprogramming) 

• Interrupt handling 

• Channel scheduling 

• Device error recovery 

• Operator communications 

• Program retrieval (fetch or load) 
© End-of-job processing 

• Timer services (optional) . 

Each installation must generate its. own 
custom made supervisor by means of a one 
time assembly. Supervisor generation 
macros control the generation of the 
supervisor control program. The user must 
reassemble the supervisor if its functions 
are to be modified (for example, when an 
installation configuration changes) . 



MULTIPROGRAMMING 



For systems with main storage equal to or 
greater than 24K, disk operating system 
offers multiprogramming support. This 
support is referred to as fixed partitioned 
multiprogramming , because the number and 
size of the partitions is defined during 
system generation. The size of the 
partitions may be redefined by the console 
operator, after system generation, to meet 
the needs of a specific program to be 
executed. Figure 1 illustrates the 
relationship among programs in a 
multiprogramming environment. 
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General Organization 



Supervisor 



Background 



Foreground 2 



Foreground 1 



> At least 10K 



j> Multiple of 2K (10K min. if BJF) 
J Multiple of 2K (10K min. if BJF) 



Foreground Organization 



General: 



Save Area: 



Save Area 



Label Area 



! User's 
I Program 



Program 
Name 
(8 bytes) 



Return 

PSW 

(8 bytes) 



General 
Registers 
9 thru 8 



64 bytes 



Length of Label Area -2 bytes 



Reserved 
6 bytes 



Floating Point Registers f , , 



32 bytes 



| of label 

L"l_ "LL^l . J area 

NOTE: Floating point register save area is required only when 

floating point feature is specified for supervisor generation. 



Figure 1. Multiprogram Main Storage 
Organization 



BACKGROUND VS FOREGROUND PROGRAMS 



There are two types of problem programs in 
multiprogramming, background and 
foreground. Foreground programs may 
operate in either the batched- job mode or 
in the single-program mode. Background 



programs and batched- job foreground 
programs are initiated by job control from 
the batched- job input streams. 
Single- program foreground programs are 
initiated by the operator from the 
printer- keyboard. When one completes , the 
operator must explicitly initiate the next 
program. Background and foreground 
programs initiate and terminate 
independently of each other. 



The system can operate one background 
program and one or two foreground programs 
simultaneously. The supervisor controls 
priority for CPU processing. Foreground 
programs have priority over background 
programs. All programs operate with 
interrupts enabled. When an interrupt 
occurs , the supervisor gains control, 
processes the interrupt, and gives control 
to the highest priority program that is in 
a ready state. 

Control is taken away from a high 
priority program when that program 
encounters a condition that prevents 
continuation of processing until a 
specified event has occurred. Control is 
taken away from a lower priority program at 
the completion of an event for which a 
higher priority program is waiting. When 
all programs in the system are 
simultaneously waiting (i.e., no program 
can process) , the system is enabled for 
interruptions in the wait state. 

The supervisor receives and processes 
interruptions. When an interruption 
satisfies a program's wait condition, that 
program becomes active and competes with 
other programs for CPU processing time. 

In addition to at least 24K positions of 
main storage, multiprogramming support 
requires the storage protection feature. 

If the batched- job foreground option is 
selected when the system is generated, all 
types of programs may be run as foreground 
programs. (Specifying the option causes 
the generation of individual communications 
regions for each partition. ) However, the 
linkage editor and the maintenance 
functions of the librarian are restricted 
to the background partition. 
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SUPERVISOR GENERATION AND ORGANIZATION 



This section of the manual describes: 



SUPERVISOR GENERATION 



1. Techniques used in supervisor 
generation. 

2. Generation macros and their optional 
operands . 



The relationship between the outer 
generation macros and the inner macros 
that generate the bulk of the 
supervisor code. 



4. The organization of the supervisor, 
including the nucleus code, tables, 
and information blocks. 



To understand macro definition language 
structure and usage, refer to the DOS 
Supervisor and I/O Macros publication 
referenced in the preface. With this 
information, an SSERV listing of the 
supervisor generation macros, and the PLM 
material, the reader can identify those 
sections of code that are generated for his 
own supervisor program. The basic 
instruction used in macro definition 
language is the AIF (ask if) statement. 
The following examples show how it is used: 



The supervisor is assembled with a series 
of macros that describe the installation's 
functional requirements and its 
configuration. At system generation time, 
a source deck containing the supervisor 
generation macros is assembled into an 
object deck. The job control program 
places the results of the assembly on 
SYSLNK (I/O device for the linkage editor 
program) and calls the linkage editor 
program. The deck is link- edited and 
cataloged to the core image library on 
SYSRES. A corresponding core image library 
directory entry is posted for the new 
supervisor, and the Program Information 
Department (PID) supervisor directory entry 
is deleted. 

Normally, a condense maintenance program 
would then be executed to remove the PID 
supervisor from the core image library. 
The procedures and sequence of events used 
in system generation are described in the 
publication, IBM System/360 DOS System 
Generation and Maintenance , Form C24-5033. 

Whenever a new supervisor generation is 
required by the user the same general steps 
are taken: 



1. AIF (SBG20).MP1 

This instruction asks if 

multiprogramming support is required. 

If BG20 is on, the next significant 2. 

line in the SSERV listing is found at 

the label, .MP1, and any intervening 

code is rejected by the language 

translator. If BG20 is not on, the 

next sequential line on the SSERV 3. 

listing is significant. 



AIF (NOT SBG20).NO23 

This instruction tests the opposite 

status of the BG20 switch. In this 4. 

case, the line at location .N023 is 

the next significant line in the SSERV 5. 

listing only when BG20 is not on, that 

is, only when multiprogramming support 

is not required. 



Punch the macro instructions, together 
with the selected optional operands, 
into a card deck. 

Execute an assembly, and put the 
object modules on SYSLNK (using an 
include control statement with no 
operand) via the job control program. 

Link- edit the new supervisor, 
cataloging it to the core image 
library, deleting the old supervisor 
directory entry, and posting the new 
supervisor directory entry. 

Re-IPL with the new supervisor. 

Execute a maintenance program to 
condense the core image library, 
deleting the old supervisor program. 



A detailed description of the AIF 
instruction and the other instructions used 
in the SSERV listing is given in the 
Systems Reference Library publication, IBM 
System/360 Disk and Tape Operating Systems, 
Assembler Specifications , Form C24-3414. 



SUPERVISOR GENERATION MACROS 



The list of supervisor macros and optional 
operands in Figure 2 is presented to give 
the reader: 



Supervisor Generation and Organization 13 



• Supervisor generation macro names . 



• A brief description of what the 
generated macro does. 



• Required macro sequence (as listed in 
Figure 2) . 



• A brief description of what the 
individual parameter options do. 



• Macro parameters. (Where there is an 
assumed value, that value is 
underlined. ) 



Name 


Macro Description 


Parameter = Option 


Option Description 


SUPVR 


Describes system environment 


SYSTEM = DISK 


System residence (SYSRES) must be on a disk device. 






MPS= (NO) 


Indicates multiprogramming support. |f YES or BFJ is specified, the 






YES 


system generated is capable of supporting two foreground programs. 






(bjf) 


YES or BJF must be specified if TP = QTAM. If BJF is specified, the 
system generated will support batched mode for both foreground par- 
titions. Multiple communications regions are generated only if 
MPS = BJF. MPS=YES is implied if MPS = BJF. 






TP= (NO ) 


Specify if Basic or Queued Teleprocessing Access Method (BTAM or 






1 BTAM \ 


QTAM) is desired. When QTAM is specified, SVC support for BTAM 






(qtam) 


is also included. 






MICR = 


NO ) 
1412 
1419 
1419D 


Indicates whether the supervisor is to support magnetic ink character 
readers. If both 1412's and 141 9's are present indicate 1419. 141 9D 
indicates Dual Address Adapter 141 9's. If 1412/141 9's are attached 
to the multiplexor channel the PIOCS parameter BMPX = YES is not 








supported. 


CONFG 


Describes hardware features 


MODEL= (30) 
(nn / 


nn defines the System/360 model number (30, 40, etc.). 






SP'= /NO) 
(YES/ 


Indicates the storage protection feature is desired. YES is assumed if 






MPS = YES or BJF in the SUPVR macro. 






DEC= /NO) 
IYES/ 


Decimal feature. 






FP= /NO) 
(YES/ 


Floating-point feature. 






TIMER= /NO) 
(YES/ 


Timer feature. If TIMER = YES the supervisor macro GETIME is 
supported . 


STDJC 


Sets standard values for job control variables. 


DECK= /YES) 
(NO J 


Output modules on SYSPCH. 






LIST= /YES) 
(NO) 


Source modules listings from language translators on SYSLST. 






XREF = (YES) 
(NO J 


Language translators output symbolic cross- reference lists on SYSLST. 






ERRS = (YES) 
(NO/ 


Compilers summarize all errors in source programs on SYSLST. 






LOG= (YES) 
(NO/ 


Listing of all control statements on SYSLST. 






DUMP= /YES) 
(NO/ 


Dump of registers and main storage on SYSLST. 






LINES= (56) 


Number of lines per page on SYSLST. 






DATE= (MDY) 
(DMYJ 


Format of date. 






CHARSET= /48C) 
(60CJ 


Specifies the 48 or 60 character set for language translator input 






on SYSIPT. 






LISTX= (NO\ 
(YES/ 


Hexadecimal object module listings from compilers on SYSLST. 






SYM = /NO) 
(YES/ 


Assembler output symbol tables on SYSPCH. 



Figure 2. Supervisor Macros (Part 1 of 3) 
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Name 


Macro Description 


Parameter = Option 


Option Description 


FOPT 


Describes functional supervisory options 


OC= (NO) 
I YES/ 


Operator initiated communications to problem programs. If OC = YES 
the facility is available to all programs in MPS. 






PC= (NO ) 

I yes/ 


Problem program routine for program check. If PC=YES, the facility 
is available to all programs in MPS. 






IT= ( NO 
BG 
Fl 

( F2 




Problem program ability to set timer intervals and specify a timer inter- 
rupt routine. BG, Fl, or F2 indicates which program has the facility. 
When IT is specified for a partition, TIMER = YES is assumed in the 
CONFG macro. Timer support is available to only one program in MPS. 






TEB = {F} 


Tape error statistics are to be accumulated and logged where n is the 
number of tape drives attached to the system. 






SKSEP = (NO) 


Specifies if SEEKs are to be separated from the remainder of channel 
programs. Seek separation allows other devices on the channel to be 
accessed (including other seeks) during the seek. YES indicates support 
for all DASD type devices specified by the DVCGEN macro at system 
generation time, n is the number of DASD devices to be supported and 
cannot be less than the number of DASD devices specified at system 
generation. The maximum number is 255. 






CE= (NO) 


Specifies the amount of core to be allocated to customer engineer 
serviceability routines. When YES is specified, 600 bytes are allocated; 
when n bytes are specified, it must be for a minimum of 600 bytes. 






CCHAIN= (NO) 
I YES/ 


Command chaining support for retry on I/O operations. When an error 
occurs and CCHAIN=YES, the user is allowed to retry at the last CCW 
executed instead of at the first CCW in the channel program as is the 
case in a normal retry. This option requires that the appropriate bit be 
set in the CCB. 








DASDFP= 
( NO 


) 


Supervisory DASD file protection, where (n,n) indicates the range of 
channels to which DASD's may be attached. Specifying 231 1 or 2314 
indicates support for both. 2321 option indicates support for 2321 
device as well as for 231 1 and 2314. DASDFP prevents the user from 
writing outside the extents of his file in case of program error. Extents 
are protected to the nearest cylinder. 


)(n,n, (2311) 

< 2314> 

( (232l) 








*SYSFIL = 
NO 




System input and system output (SYSRDR, SYSIPT, SYSLST, SYSPCH) 
files may be assigned to a 2311, 2314, or both. Specifying either 
indicates support for both. If MPS = BJF in the SUPVR macro, support 
is given for foreground logical units when running in batched mode. 


/2311[,nl,n2]\ 
\2314 J 








nl = residual capacity (in records) for beginning of operator notification 
when SYSLST is assigned to a 231 1 or 2314. 








100< nl < 65536 

IF nl is omitted, 1000 is assumed 








n2 = residual capacity (in records) for beginning of operator notification 
when SYSPCH is assigned to a 231 1 or 2314. 








100< n2 < 65536 

If n2 is omitted, 1000 is assumed. 






* Valid when at least 


24K bytes of main storage are available. 


PIOCS 


Describes the system I/O configuration 


SELCH= (YES) 
INO/ 


Selector channels attached to the system. 






BMPX= /NO) 
• YES/ 


Burst mode devices will be supported on multiplexor channel. BMPX = 
YES not supported with MICR. 






CHANSW = 

f N ° 1 
\ RWTAU > 

I tswtch) 


Channel switching tape control unit. RWTAU = 2404 or 2804, TSWTCH = 
2816. If either 2404 or 2804 and 2816, RWTAU must be specified. 






TAPE= NO 
9 
7 


Indicates required tape PIOCS support. 9 = nine track only, 7 = seven 
or nine track, NO = No tape drives attached. NO is the assumed value. 



Figure 2. Supervisor Macros (Part 2 of 3) 
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Name 


Macro Description 


Parameter = Option 


Option Description 


ALLOC 


Partitions storage for MPS (Optional macro). 


{Fl=nK, F2=nK} 


Specifies storage partitioning MPS, where n must be a multiple of 2. 
Must beat least 10K if MPS=BJF. 


IOTAB 


Describes installation requirements for I/O tables. 


IODEV=(HH 


Number of I/O devices attached to the system 






BGPGR = run 


Number of symbolic units of the class SYSnnn for the background program. 






FlPGR=/5\ 


Number of symbolic units of the class SYSnnn for Fl . Valid only in MPS. 






w 


Otherwise zero is assumed. 






F2PGR 1!} 


Number of symbolic units of the class SYSnnn for F2. Valid only in MPS. 






Otherwise zero is assumed. 






CHANQ = /6\ 


Number of I/O requests in the channel queue. 6 is the minimum value 






generated. 






M= {l) 


Number of Job Information Blocks (JIBs) for the system. Requirements 








1 . One JIB for each temporary logical unit assignment. 

2. One JIB for each alternate logical unit assignment. 

3. One JIB for each open 231 1 or 2314 extent with the DASD file 
protect feature. 

4. Two JIBs for each open 2321 extent with the DASD file protect 
feature. 


DVCGEN 


Specifies I/O devices. Each device typp requires 
a separate DVCGEN macro. (See note 1 for 


CHUN= jX'cuu'f 


Specify the hexadecimal number of the channel and unit for the device. 




DVCGEN rules. This is an optional macro.) 


DVCTYP= jxxxxxxf 


Specify the device type. See Figure 21 . 






CHANSW=/NO) 

t yes; 


Specify if the device is attached to more than one selector channel. If 






it is, the device can be switched. 






MODE= jX'ss'J 


1 . 2400T9. MODE specifies the tape mode. X'CO' is the default value. 

2. 2400T7. MODE specifies the tape mode. X'90' is the default value. 
See Figure 22 for other values. 

3. 2702. MODE designates the SADxxx command. X'00' is the default 
value. 

X'00' SADO 
X'01' SAD1 
X'02' SAD2 
X'03' SAD3 

4. 2260 (Local). MODE is used to specify the 1053 printer when 
CHUN = X'cuu' refers to a 1053 attached to a 2848. The operand 
must be entered as MODE =X'0T. 

5. 1412/1419. MODE designates the external interrupt bit associated 
with Magnetic Ink Character Readers. The modes X'01 ' through 
X'20 1 correspond to external interrupt PSW bits 31 through 26 respec- 
tively. For the dual address adapter 1419, this parameter is needed 
for both the 141 9P and 141 9S device types. 

X'01 ' Device attached to external line 7. 
X'02 1 Device attached to external line 6. 
X'04' Device attached to external line 5. 
X'08' Device attached to external line 4. 
X'10' Device attached to external line 3. 
X'20 1 Device attached to external line 2. 


ASSGN 


Sets standard background I/O assignments. A 


{ SYSxxx,X'cuu'} 


SYSxxx is any background symbolic logical unit (SYSIPT, SYSLOG, etc.) 




separate macro is required for each standard 




or programmer logical unit (SYS000, SYS001, etc.). X'cuu' is the 




assignment desired. (Optional macro) 




hexadecimal number of the channel and unit to which the symbolic 




CAUTION: The ASSGN macro allows SYSRDR, 




device is attached. 




SYSLST, SYSPCH, and SYSIPT to be assigned to 








a tape or DASD. However, IPL unassigns any 








such assignments. 






SEND 


Indicates end of supervisor generation. 


|n| 


Specifies the beginning address of the problem program area. An area 
should be reserved for supervisor expansion and maintenance. The 
parameter is optional. If not specified, no area is reserved beyond the 
assembled last address of the supervisor. 



Note 1: Rules for Using DVCGEN 

1 . A separate DVCGEN macro instruction is required for each device. 

2. The total number of DVCGEN macros must not exceed the total number of devices specified in the IODEV parameter of the IOTAB macro. 

3. DVCGEN macros must be specified in ascending channel address sequence. 

4. Switchable units (attached to more than one selector channel) must be defined once. They are defined on the lowest channel on which they are addressable. 

5. The sequence of the DVCGEN cards determines the priority of the devices on their channel. Switchable units must be the last devices for each channel, and 
must be on consecutive channels. 

6. The specifications of these macros may be altered by IPL ADD and DEL statements. See IPL PLM, Y24-5086. 



Figure 2. Supervisor Macros (Part 3 of 3) 
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MACRO RELATIONSHIPS 



• Nucleus Code 



The code generated by the assembler for any 
selected supervisor generation is a 
function of the generation macros described 
in Figure 2 and of a group of inner macros 
called by the generation macros* The 
primary purpose of the generation macros is 
to set global values , based on parameter 
options, that can be tested by the inner 
macros. These macros then generate the 
bulk of the supervisor code. The specific 
instructions assembled depend on the global 
settings. Some of the generation macros 
also generate code; however , these can be 
treated as exceptions and are identified in 
this subsection. 

The most important global values used in 
supervisor generation are the B-globals. 
Therefore, this subsection emphasizes the 
generation macros that establish B-global 
values. However, some A-globals that are 
tested in the same manner as B-globals are 
also described in this subsection. 
A-globals that provide arithmetic values 
and all C-globals are not described. Two 
figures in this subsection show macro 
relationships. Figure 3 shows the code 
generated, if any, and the globals set, if 
any. Figure 4 indicates the on-off 
conditions of the globals. 



• I/O Tables and Information Blocks 

• Logical and Physical Transient Areas 

The logical organization is not 
described in this manual because of the 
variety of options available. The reader 
must determine the logical organization for 
his individual supervisor generation. By 
using the program level flowcharts to point 
to the detailed flowcharts, the reader 
selects the correct group of flowcharts for 
the desired generation. 



LOW CORE 



The main storage locations that make up low 
core can be classified as PSWs, CSWs, CAWs, 
and main storage areas. PSWs, CAWs, and 
CSWs are described in Figures 2 9, 30 and 
31, respectively. The main storage areas 
include: 

Byte (hex) Function 



0-4 Message area when SYSLOG is 
disabled. 

0-1 Contains the error code for 
the SEREP diagnostic 
program. 



ORGANIZATION 



The physical orga 
depends on the se 
generation macros 
predetermined and 
user. The logica 
the parameter opt 
generation time, 
assembled supervi 
which illustrates 
organization in f 

• Low Core 



nization of the supervisor 
quence of the supervisor 
The sequence is 

can not be changed by the 
1 organization depends on 
ions selected at 

Figure 5 describes the 
sor by a main storage map, 

the supervisor physical 
our major areas: 



14 



50 



54 



80 



Contains the address of the 
background communications 
region located within the 
nucleus code. 

Contains the system timer 
used with microprogramming. 

Contains system time of day 
set by job control and IPL, 
updated by the supervisor 
timer routine (optional) . 

Beginning of the diagnostic 
scan- out area. 
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Macro 


Type 


Code Generated 


Critical 
Globals Set 


SUPVR 


generation 


Defines low main storage 


BG20 
BG21 
BG24 
BG35 
BG36 


CONFG 


generation 


None 


BG1 
BG2 
BG22 
BG23 


STDJC 


generation 


None 


BG34 


FOPT 


generation 


General cancel 
General exit 
General entry 
Communications region 


AGO 

BG6 

BG7 

BG8 

BG30 

BG32 

BG33 

AG7 

AGIO 

AG21 

AG22 

AG23 


PIOCS 


generation 


None directly calls inner macros 


BG3 

BG4 

BG9 

BG10 

BG11 

BG12 

BG31 


SGTCHS 


inner 


Channel scheduler 
Start I/O 
I/O interrupt 


none 


SGUNCK 


inner 


Unit check 

Error recovery exits 


none 


SGDFCH 


inner 


Fetch subroutine 


none 


SGSVC 


inner 


Supervisor interrupts 
Program check interrupts 
External interrupts 


none 


SGDSK 


inner 


Disk error recovery 


none 


SMICR 


inner 


External interrupts for MICR devices. 
Program checks in stacker select routine. 
Error recovery for test I/O and start I/O. 


none 


SGTCON 


inner 


SVEREG subroutine, VLDADR1 subroutine, ATNRTN routine, CCW chain, disk 
information blocks, error recovery block, SVC interrupt table, PC option table, 
IT option table, and OC option table, logical transient save area. 


none 


ALLOC 


generation 


None 


none 


IOTAB 


generation 


Supervisor table expansions - PIBs, channel queue table (CHANQ), and PUB, 
JIB, TEB, and LUB tables. 


none 


DVCGEN 


generation 


Overlays for PUB table entries 


AG8 


ASSGN 


generation 


Overlays for LUB table entries 


none 


SEND 


generation 


Generates communications regions extension(s), SABs, and CE table. Defines end 
of supervisor nucleus, beginning of A and B transient areas, start of problem 
program area, CE area, BG save area 


none 


COMMN 


inner 


Communications regions for all partitions 


none 



Figure 3. Macro Functions 
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Global 


Purpose 


On Setting 


BGO 


Determines if extension (s) to the communications region (s) will be generated. 


CE=YESorn 


BG1 


Determines whether the storage protect feature is used. 


SP = YES 


BG2 


Determines whether the timer feature is used. 


TIMER = YES 


BG3 


Determines whether channel switching is supported (2816). 


CHANSW = TSWTCH 


BG4 


Determines if tape error statistics are to be accumulated and logged. 


TEB = n 


BG5 


Reserved 




BG6 


Determines if the asynchronous user interrupt key routine is supported. 


OC = YES 


BG7 


Determines whether the internal timer option is supported. 


IT = Fl, or F2, or BG 


BG8 


Determines if the user program check routine is supported. 


PC = YES 


BG9 


Determines whether channel switching is supported (2404, 2804). 


CHANSW = RWTAU 


BG10 


Indicates whether selector channels are supported. 


SELCH =YES 


BG11 


Indicates whether burst mode devices will be supported on the multiplexor channel. 


BMPX = YES 


BG12 


.Determines the type of tape support required. 


TAPE = 7 or 9 


BG20 


Determines whether multiprogramming support is required. 


MPS = YES 


BG21 


Determines whether Teleprocessing support is required. 


TP = BTAM or QTAM 


BG22 


Determines if the decimal feature is used. 


DEC = YES 


BG23 


Determines if the floating point feature is used. 


FP = YES 


BG24 


Indicates that batched jobs will be run in foreground partitions. 


MPS = BJF 


BG30 


Determines if command chaining support for retry on I/O operations is used. 


CCHAIN =YES 


BG31 


Determines if 9 track tape support is required. 


TAPE = 9 


BG32 


Determines whether the DASD file protect feature is supported. 


DASDFP = n,n 


BG33 


Determines if logical system I/O units are a disk device. 


SYSFIL = 231 1 or 2314 


BG34 


Determines the type of date configuration to be supported. 


DATE = MDY 


BG35 


Determines if any MICR Device is supported. 


MICR = 1412, 1419, 
1419D 


BG36 


Determines if 141 9D (MICR device with dual address adapter) only is supported. 


MICR = 141 9D 


AG7 


Determines that the seek separation option is desired. 


SKSEP=YESorn 


AG8 


Sets count of direct access storage devices generated in DVCGEN. 


SKSEP = YESorn 


AGIO 


Indicates that an area is reserved for CE routines. 


CE=YESorn 


AG21 


Determines if a timer interrupt routine is for a BG program. 


IT = BG 


AG22 


Determines if a timer interrupt routine is for a F2 program. 


IT = F2 


AG23 


Determines if a timer interrupt routine is for a Fl program. 


IT = Fl 



Figure 4. Global Settings 
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NUCLEUS CODE 



The main storage map (Figure 5) illustrates 
the major routine and subroutine 
organization of the supervisor. Specific 
instructions are included or omitted 
depending on generation options. This 
manual describes the disk error recovery as 
the resident error recovery routine. The 
background communications region is one 
part of the nucleus coding that does not 
change from generation to generation. 
Figure 6 illustrates the structure of the 
communications region. The starting 
address of the communications region is 
made available to a user in general 
register 1 through the COMRG macro. For 
certain options, extensions to the 
communications regions are generated at the 
end of the I/O Tables by the SEND macro. 



To understand the interaction between 
the various I/O tables, the reader should 
know the classification and sequence of the 
symbolic unit references (SYSXXX) . The 
systems class (symbolic unit names reserved 
for system use) is made up of: 



1. 

2. 
■3. 

4. 
5. 



■9. 
10, 
11. 



SYSRDR 

SYSIPT 

SYSPCH 

SYSLST 

SYSLOG 

SYSLNK 

SYSRES 

SYSSLB 

SYSRLB 

SYSUSE 

SYSFGI (This entry is reserved in the 

LUB table, but this LUB is not used in 

DOS Version 3. ) 



I/O TABLES 



The I/O tables that comprise this section 
of the supervisor establish the interface 
between a user's program and the hardware 
channels. Collectively, these tables are 
called the system control center (See 
Figure 7) . For every device used on the 
system, there must be a PUB (Physical Unit 
Block). For every logical unit name 
(SYSXXX) used, there must be a LUB (Logical 
Unit Block). When an I/O request is made, 
an entry is made in CHANQ (the channel 
queue). The entry contains a CCB (Channel 
Command Block) address which, in turn, 
points to a CCB that contains a code (LUB 
table index) for the logical unit name. 

The supervisor processes the request 
when possible on the device assigned to the 
logical unit. If the TEB=YES option was 
selected at supervisor generation time, 
counts of tape errors are kept in TEBs 
(Tape Error Blocks) . 



Foreground programs can use all the 
system unit names except SYSLNK, SYSSLB, 
and SYSRLB. The programmer class (symbolic 
unit names reserved for programmer use) is 
made up of SYS000 to SYS221. This class is 
subdivided into these classifications: 

1. Background logical unit class (minimum 
6f 10). 

2. Foreground two logical unit class 
(minimum of 5) . 

3. Foreground one logical unit class 
(minimum of 5) . 

PUBs are built at system generation or 
IPL time. LUBs are built at system 
generation time. PUBs are assigned to LUBs 
at system generation or by the job control 
program, or by the single program 
initiator. CHANQ and TEB entries are built 
and processed by the supervisor program. 
Figure 8 illustrates the I/O table 
interrelationships. Figures 9 through 19 
are illustrations of individual I/O tables. 
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0-«- 



Reset to zeros after IPL 



-M3 



14 

Co mm 
Region 
Address 



18 

External 
Old 
PSW 



50 

System 

Timer 



20 
SVC 
Old 
PSW 



54 

System 
Time of 
Day 



28 

Program 
Check Old 
PSW 



58 

External 
New 
PSW 



30 

Machine 
Check Old 
PSW 



38 
I/O 
Old 
PSW 



60 
SVC 
New 
PSW 



40 
CSW 



68 

Program 
Check New 
PSW 



48 
CAW 



70 

Machine 
Check New 
PSW 



4C 
BG 
Job 
Duration 



78 
I/O 
New 
PSW 



80 Diagnostic Scan - Out Area Model Dependent 



SUPERVISOR NUCLEUS 



General Cancel Routine 



General Exit Routine (Task Selection) 



Background Communications Region 



General Entry Routine 



Channel Scheduler 



Start I/O Routine 



I/O Interrupt 



Unit Check 



Error Recovery Exits 



Fetch Routine 



SVC, Program Check, and External Interrupts 



Resident Device Error Recovery 



Option Routines 



Supervisor Constants, DIBs, Error Recovery Block 



SVC Interrupt Table and PC, OC, and IT Tables 



Logical Transient Save Area 



2nd Part of 
BG PIB 



1st Part of 
Fl PIB 



2nd Part of 
F2 PIB 



1 st Part of 
Attention PIB 



FOCL 



TEB 



2nd Part of 
Fl PIB 



Quiesce 
PIB 



2nd Part of 
Attention PIB 



Supervisor 
PIB 



PUB TABLE 



FICL 



All Bound 
PIB 



Channel 
Queue 



1st Part of 
BG PIB 



LUBID 
Table 



FAVP 



NICL 



1st Part of 
F2 PIB 



REQID 
Table 



JIB TABLE 



LUB TABLE 



Foreground 2 Communications Region 



Foreground 1 Communications Region 



SAB 



F2 Communications Region Extension Fl Communications Region Extension BG Communications Region Extension 



PATCH AREA 



LOGICAL TRANSIENT AREA (B -TRANSIENTS) 



PHYSICAL TRANSIENT AREA (A -TRANSIENTS) $$A 



CE Table 



CE Area 



BG Program Save Area 



PROBLEM PROGRAM AREA 



Low 
Core 



Nucle 
Code 



I/O Tables 
and 

Information 
Blocks 



Additional 

Comm. 

Regions 



Logical 
and 

Physical 
Transients 



Note: For PSW format see Figure 29. For CSW format see Figure 31 . For CAW format see Figure 30. 



Figure 5. Supervisor Storage Allocation 



Supervisor Generation and Organization 21 



COMREG * 

Displacement 
hexadecima 

Displacement 
decimal 



1 






8 
8 


OA 
10 


OC 
12 


17 
23 


18 
24 


20 
32 


24 
36 




Date 


Address of 
PPBEG 


Address of 
EOSSP 


Problem Program Use 


UPSI 
Byte 


Job Name 


Highest 
Storage 
Address 


End Address 1 
of Last Phase 1 
Fetched or J 
Loaded l 




XXXXXXXX 


XX 


XX 


XXXXXXXXXXX 


X 


XXXXXXXX 


XXXX 


XXXX J 



Displacement 

hexadecimal 

Displacement 


28 
40 


2C 

44 , 


2E 

46 


30 
48 


34 
52 


35 
53 


36 
54 


37 

55 


38 
56 


39 
57 


3A 
58 


3B 

59 


decimal 


End Address 
of Longest 
Phase Fetched 
or Loaded 


Label 
Area 
Length 


PIK 


End of 

Storage 

Address 


Machine 
Confg . 
Byte 


System 
Confg o 
Byte 


Standard 
Options 


Job 

Control 

Byte 


Linkage 
Control 
Byte 


Language 
Translator 
Control 
Byte 


Job [ 

Duration J 
Indicator/ 
Byte J 




XXXX 


XX 


XX 


XXXX 


X 


X 


XX 


X 


X 


X 


x 1 



Job Control Switches 



Displacement 
hexadecimal 

Displacement 
decimal 



3C 


3E 


40 


42 


44 


46 


48 


4A 


4C 


4E 


4F 


60 


62 


64 


66 


68 


70 


72 


74 


76 


78 


79 


Disk 


Address 


Address 


Address 


Address 


Address 


Address 


Address 


Address 


Line 


f 


Address of 


of 


of 


of 


of 


of 


of 


of 


of 


Count 


System Date 1 


Label 


FOCL 


PUB 


FAVP 


JIB 


TEB 


FICL 


NICL 


LUB 


for 


/ 


Cylinder 


















SYSLST 


1 


XX 


XX 


XX 


XX 


XX 


XX 


XX 


XX 


XX 


X 


xxxxxxxxx 



Displacement 


58 


5A 


5C 


5E 


60 


62 


64 


hexadecimal 
















Displacement 


88 


90 


92 


94 


96 


98 


100 


decimal 


LIOCS 


Address of 


ID Number 


Length of LUB 


Address of 


Address of 


Address of 




Comm. 


1st Part of 


of Last 


ID Queue = 


Disk 


Channel 


PC Option 




Bytes 


PIB Table 


Checkpoint 


No. of Channel 
Queue Entries 


Information 
Block (DIB) 


Scheduler 
Error Block 


Table 




XX 


XX 


XX 


XX 


XX 


XX 


XX 



Displacement 


66 


68 


6A 


6C 


6E 


70 


7C 


7E 


hexadecimal 


















Displacement 


102 


104 


106 


108 


110 


112 


124 


126 


decimal 


Address of 


Address of 


Key of 


Address of 


Logical 




Address 


Address of J 




IT Option 


OC Option 


Program 


the LUB1D 


Transient 


Supervisor Constants 


of 2nd 


MICRDTF/ 




Table 


Table 


with Timer 
Support 


Queue 


Key 




Part of 
PIB Table 


Table I 
(PDTABB) j 




XX 


XX 


XX 


XX 


XX 


xxxxxxxxxxxx 


XX 


XX ) 



Displacement 


80 


84 


86 


88 






hexadecimal 














Displacement 


128 


132 


134 


136 


Communications 1 




decimal 


Address of 


Address of 




Pointer to 






QTAM 


BG Comm. 


Reserved 


Comm. 


Region Extension I 


Address of 




Vector 


Region 




Region 


(see Figure 5 | 


CE Table 




Table 






Extension 


for location) 1 






XXXX 


XX 


XX 


XXXX 


XXXX 



* The address of the communications region is in fixed location X'14 1 - X'17 1 . 

Displacement values illustrated can be used to access the listing and/or the key that follows the figure. 
The key offers more detailed information about each area when necessary. 

Figure 6. Supervisor Communications Region (Part 1 of 5) 
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Key to Communications Region Displacements: 



Q 
H 

23 



24 



32 



36 



40 



48 



52 



MM/DD/YY or DD/MM/YY obtained from the job control date statement. Format controlled by COMREG +53 (date 
convention byte) bit 0. 

Address of the problem program area. 

Address of the beginning of the problem program area. Y (EOSSP) = Y (PPBEG) if the storage protection option has not 
been selected. Y (EOSSP) equals the first main storage location with a storage protection key of 1 , if storage protection 
is supported. 

User area. If seek separation option is specified, bytes 12 and 13 are used at IPL time for the address of the seek 
address block . 

User program switch indicator. 

Job name set by the job control program from information found in the job statement. 

Address of the uppermost byte of the problem program area as determined by the IPL program. (Clear storage routine 
determines the address, ENDRD routine of $$A$IPL2 stores it.) 

Address of the uppermost byte of the last phase of the problem program fetched or loaded. The initial value (as shown) 
is overlaid by the first fetch or load to the problem program area. 

Address of the uppermost byte of the longest phase of the problem program fetched or loaded. The initial value is over- 
laid by the first fetch or load to the problem program area. 

Length of the problem program label area. 

Program Interrupt Key: Value is equal to the displacement from the start of the PIB table to the PIB for the task. 
First Byte - always zero. 

Second Byte - Contains the key of the program that was last enabled for interrupts. (When an interrupt occurs, 
the PIK indicates to the supervisor which program was interrupted.) 



Task 

* All Bound 

BG 

*F2 

*F1 

Attn Rtn 

Quiesce I/O 

Supervisor 



PIK Value 

X'00' 
X'10' 
X'20 1 
X'30' 
X'40' 
X'50' 
X'60' 



* These tasks do not exist in a non-MPS system. 
Logical end of main storage address. 
Machine Configuration Byte (Values set at supervisor generation time. ) 

Bit 0: 1 = Storage protect 

= No storage protect 
1:1= Decimal feature 

= No decimal feature 
2: 1 = Floating-point feature 

= No floating-point feature 
3: Reserved 
4: 1 = Timer feature 

= No timer feature 
5: 1 = Channel switching device 

= No channel switching device 
6: 1 = Burst mode on multiplex channel support 

= No burst mode on multiplex support 
7: Reserved 



Figure 6, Supervisor Communications Region (Part 2 of 5) 
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Key to Communications Region Displacements: 



53 



(Set at generation time by STDJC) 



54 



System Configuration Byte 

Bit 0: 1 = DDMMYYJJ 

= MMDDYYJJ 
1: 1 = Multiprogramming environment 

= Batch job environment 
2: 1 = DASD file- protect supported 

= No file- protect support for DASD 
3: 1 =DASD SYSIN-SYSOUT 

= No DASD SYSIN - SYSOUT 
4: 1 = Teleprocessing 

= No Teleprocessing 
5: 1 = Batch job in foreground 

= No BJF 
6-7: Reserved 

This byte contains the standard language translator I/O options (set by the STDJC macro) 



1 = yes, output object modules on SYSPCH 

1 = yes, output source module listings and diagnostics on SYSLST 

1 = yes, output hexadecimal object module listings on SYSLST (compilers only) 

1 = yes, output symbol tables on SYSLST/SYSPCH 

1 = yes, output symbolic cross reference list on SYSLST 

1 = yes, output diagnostics on SYSLST (compilers only) 

6: CHARSET option 1 = 48, input on SYSIPT is 48 or 60 character set 

7: Reserved 



Bit 0: DECK option 

1 : LIST option 

2: LISTX option 

3: SYM option 

4: XREF option 

5: ERRS option 



55 



This byte contains the standard supervisor options for abnormal EOJ and control statement display. 

Bit 0: Always on 

1: DUMP option 1 = yes, dump registers and storage on SYSLST 

2: Reserved 

3: LOG option 1 = yes, list all control statements on SYSLST 

4-7: Reserved 



56 Job control byte 



Bit 0: Reserved 

1: 1 = Return to caller on LIOCS disk open failure 

= Do not return to caller on LIOCS disk open failure 
2: 1 = Job control input from SYSRDR 

= Job control input from SYS LOG 
3: 1 = Job control output on SYSLOG 

= Job control output not on SYSLOG 
4: 1 = Cancel job 

= Do not cancel job 
5: 1 = Pause at end -of- job step 

= No pause at end -of- job step 
6: 1 = SYSLOG is not a 1052 

= SYSLOG is a 1052 
7: 1 = SYSLOG is assigned to the same device as SYSLST 

= SYSLOG is not assigned to the same device as SYSLST 



Figure 6. Supervisor Communications Region (Part 3 of 5) 
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Key to Communications Region Displacements: 



57 Linkage control byte 



58 



59 



60 



Bit 0: 1 = SYSLNK open for output 

= SYS LNK not open for output 
1: 1 = $ or FG program phase deleted, renamed, or cataloged (flag bit for $MAINEOJ) 
2: 1 = Allow EXEC 

= Suppress EXEC 
3: 1 = Catalog linkage editor output 

= Do not catalog linkage editor output 
4: 1 = Supervisor has been updated 

= Supervisor has not been updated 
5: 1 = Executing in AUTOTEST mode 

= Not executing in AUTOTEST mode 
6: 1 = Reallocate or condense in progress 
7: 1 = Fetch $MAINEOJ at end of job to update system directory 

= Do not fetch $MAINEOJ at end of job for update 

Language processor control byte. This is a set of switches used to specify nonstandard language translator options. 
The switches within the byte are controlled by job control OPTION statements and when set to 1, override standard 
options. The format of this byte is identical to the standard option byte (displacement 54) with one exception: Bit 7 in 
this byte is used to indicate to LIOCS that the rewind and unload option has been specified. 

Job duration indicator byte 

Bit 0: 1 = Within a job condition 
= Outside a job condition 
1: 1 = Dump on an abnormal end -of- job condition 
= No dump on abnormal EOJ 

n KI L r ~ . > Set by Attention Routine for Job Control 

= No pause at EOJ J ' 

3: 1 = Job control output on SYSLST 

= Output not on SYSLST 
4: 1 = Job is being run out of sequence with a temporary assignment for SYSRDR 

= Conditions for 1 setting not met 
5-6: Reserved 

7: 1 = Batch command just issued 

= Condition for 1 setting did not occur 

Binary disk address of the volume label area (label cylinder). 



62 t>H 76 As illustrated (Figures for information blocks, I/O tables, and pointers 

begin at Figure 8, which refers to more detailed figures). 

78 Set to the value nn specified in the LINES =nn parameter of the STDJC macro. 

79 The format of the system date contained within this field is determined by the IPL program from information supplied in 
the date convention byte (displacement 53). Bytes 85- 87 contain the day count. 

Bytes reserved for use by LIOCS. Transient dump programs insert a key to indicate to the LIOCS end- of- volume 
routine, $$BCMT07, that it was called by a B- transient. 

Address of the first part of the program information block (PIB) table. (See Figures 13 and 14.) 

ID number of the last checkpoint. 

Length of the LUBID queue (in bytes). This equals the number of channel queue entries. It can also be used to 
access the REQID queue. (See Figure 12.) 



90 
92 

94 



Figure 6. Supervisor Communications Region (Part 4 of 5) 
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Key to Communications Region Displacements: 



96 



98 



108 



110 



112 



124 



126 



128 



132 



134 



136 



Address of disk I/O position data. This is the starting address of the disk information block (DIB) table (See Figure 16). 

Address of the beginning of the error recovery block. The error recovery block contains addresses of error recovery 
exits, error recovery queue information that can be used by physical transients routines, and defines storage for the 
error queue entries (See Figure 33). 



100 


— ►KM 


106 


Key 



As illustrated (See Figure 19). 

Key of the program (BG, F2, or Fl) that has timer support. 

As illustrated (See Figure 12). 

Logical Transient Key (LTK) contains the same value as the PIK (Displacement 46) when the logical transient is 
requested. When the transient area is not in use, LTK is equal to zero. The SVC 2 routine sets the LTK. The 
SVC 11 routine resets the LTK. 

Register save area (ERA)- not considered COMREG information. 

Address of second part of program information block (PIB) table (See Figure 15). 

Address of PDTABB, table of DTF addresses for MICR support (See Figure 20). 

Address of QTAM vector table (IJLQTTAD). 

Address of background communications region. 

Reserved. 

Pointer to communications region extension (See Below). 



BGXTNSN =4- Byte address of CE table located in supervisor nucleus (See Note). 



Note: If communications regions are generated for the foreground partitions, the labels in those extensions will be 
F2XTNSNand F1XTNSN. 

Figure 6. Supervisor Communications Region (Part 5 of 5) 
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LUB 



JIB 



Symbolic References 



Temporary Storage of 
Assignment Information 
and Extent Limits for 
File Protection 



PUB 



Physical Device 
Configuration 



TEB 



Tape Error Statistics 



CHANQ 



Stacked I/O Requests 
(Command Control 
Block Addresses) 



Figure 7. System Control Center 
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KEY: 

NICL (Number in Class) 

FICL (First in Class) 

LUB (Logical Unit Block) Table 
PUB (Physical Unit Block) Table 



FOCL (First on Channel List) : 

TEB (Tape Error Block) : 

FAVP (First Available Pointer) : 

JIB (Job Information Block) : 

CHANQ (Channel Queue) Table : 

LUBID : 

REQID 

FLPTR : 

SAB : 



FLPTR 

D 



The first byte contains the number of system class units. The second, third, and fourth bytes contain 
the number of programmer class units (BG, F2, Fl) (Figure 10). 

The first byte points to the first system class unit in the LUB table. (Always the first LUB table entry.) 
The second byte points to the first programmer class unit in the LUB table BG area. The third points to 
the first programmer class unit in the LUB table F2 area. The fourth points to the first programmer class 
unit in the LUB table Fl area (Figure 10). 

The first byte points to a PUB table entry. The second byte points to a JIB table entry (Figure 10). 

The first two bytes contain the channel and unit address of the physical device. The third byte contains 
a CHANQ pointer. The fourth byte contains a TEB pointer. The fifth byte contains the SAB pointer 
for DASD with seek separation, or device type code information for tape devices. The sixth byte is 
reserved for device options. The seventh and eighth bytes contain channel scheduler and job control ^ 
flags respectively (Figure 9). 

The first byte points to the first PUB (highest priority) on channel zero. The next byte points to the first 
PUB (highest priority) on channel one, etc. A hexadecimal FF indicates the associated channel is 
not supported. ^ 

One TEB is built for each tape unit at supervisor generation time if tape error statistics are required 
(Figure 11). 

A one- byte pointer to the next available JIB entry. 

The first two bytes contain extent or LUB information. The third contains ownership and JIB flags. The 
fourth contains JIB chaining information (Figure 17). 

The first byte contains the chain field (a pointer to the next in queue). The last three bytes contain the 
CCB address (Figure 12). 

A one- byte pointer to the LUB making the I/O request. 

A one- byte pointer to the program containing the CCB (Figure 12). 

A one- byte pointer to the next free entry in the channel queue (Figure 12). 

A four- byte (BCCH) address that is the current disk address of the device. 



Figure 8. I/O Table Interrelationship 
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Channel 






PUB- TABLE 






Unit 










Channel 






Channel Queue Pointer 




PUBTAB 


PL 


in r 












TEB P^infr^i* <~»i* Frrnr C^minf 


Jbo 


. 










Device Type 


\ 




Device Characteristic Code or SAB Pointer 




Channel 1 




Channel Scheduler Flags 




PUBS 




Job Control Flags 






Sllli^n^t^li:i|:; 





1 


2 


3 


4 


5 


6 


7 




PUBEND 






'M0h^-^mK& 




















i 


r 






Channel 7 




PUBS 






' 


FF 


PUB- tab 


e J 


STOPPR 


delimiter ^ — ' \. 


BYTEO- Channel number. (Hex 0-7, FF=NULL) BYTE 6- 


Bit 0: 


1 = Device busy 


BYTE 1 - f/O device unit number. (HEX IF =1052/ 1: 


1 = Switchable device 


HEX 80 = magnetic tape unit . . .). 2: 


1 =EOJ for SYSRDRor SYSIPT 


3: 


1 = I/O error queued for recovery 


BYTE 2 - HEX 0, 1, 2, . . . points, to th-e first 4: 


1 —Operator intervention required 


channel queue entry for this device. 5: 


1 = Device end posting required 


6: 


1 = Burst device on MPX 


BYTE 3 - If device is a magnetic tape unit and TEBS are 7: 


1 = 7 -track tape unit 


specified, this byte is a TEB pointer (HEX 1, 2, 


3 . . .). BYTE 7- 


Bit 0-4: standard MODE assignment for 7 -track tape 


If device is a magnetic tape unit but TEBS are (all ones if not tape, all zeros if device is 


not specified, this byte is an error counter. down). 


5: Device is assigned to a background job 


If device is not a magnetic tape unit, this byte 6: device is assigned to a foreground 1 job 


is an error counter. 7: device is assigned to a foreground 2 job 


BYTE 4 - See Figure 21 for device type codes. 


BYTE 5 - SS of the MODE =parameter in the DVCGEN 


macro for a tape unit. (See Figure 22.) 


For DASD with seek separation, this byte is 


used as the SAB pointer. 


NOTE: A null PUB is generated for each device to be supported by the supervisor. 


Standard physical unit assignments are made to the PUB table at supervisor generation time. PUBs are ordered by 


channel and priority within a channel. 


Bytes 64 and 65 (X'40 1 - '41 ') of the communications region contain the address of the PUB table entry. 


Label PUBTAB identifies the first byte of the table. 



Figure 9. Physical Unit Block (PUB) Table 
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Number in 




First in 


Class List 




Class List 


(NICL) 


LUB Table 


(FICL) 



LUB Table for Any Partition 




* This LUB is not used or 
supported in DOS, Version 3. 



SYSRDR 






SYSIPT 






SYSPCH 






SYSLST 






SYSLOG 






SYSLNK 






SYSRES 






SYSSLB 






SYSRLB 






SYSUSE 






SYSFGI 






SYS000 






SYS001 






SYS002 






SYS003 






SYS004 


















SYS221 







Format of Any LUB; 



Byte 


Byte 1 


PUB Pointer 


JIB Pointer 



HEX 

00 = Points to first PUB 

01 = Points to second PUB 

02 = Points to third PUB 



FF = Null pointer, the LUB 

is unassigned 
FE = Ignore 



HEX 

00 = Points to first JIB 

01 = Points to second JIB 

02 = Points to third JIB 



FF = Null pointer 



Bytes 76 and 77 (X'4C - '40') of the communications region 
contain the address of the LUB table entry. Label LUBTAB 
identifies the first byte of the table. 



Figure 10. Logical Unit Block (LUB) Table 
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TEBTAB 



TEB Table 



TEB 1 



TEB 2 



xTEB 3; 



TEB 4 



TEB 5 



TEB 6 



Byte 

0- Error recovery retry count. 

1 - Permanent read error count. 

2 - Number of times the read error routine is entered. 

3 - Number of times the write error routine is entered. 

4 - Write skip (erase gap) count. 

5 - Noise record count. 

One TEB is generated for each magnetic tape unit if the CONFG macro contains the TEB=yes parameter. 

Job Control resets each TEB at normal or abnormal End-of- Job. An unused TEB contains HEX'FFOOOOOOOOOO'. 

A TEB is referenced from byte 3 of a magnetic tape unit PUB. 

Bytes 70 and 71 (X'46 1 - '47') of the communications region contain the address of the TEB table entry. 
Label TEBTAB identifies the first byte of the table. 



Figure 11, Tape Error Block (TEB) 
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FLPTR 



CHANQ 



LUBID 



REQ1D 



A 


The length 
queue is ck 
at supervis 
generation 


of the 
'termined 
Dr 
time. 


B 




c 






D 




F 










Chain 
Byte 


















Chain 
Byte 
















PUB 
Byte 2 


Chain 
Byte 
















E 


Chain 
Byte 


















Chain 
Byte 



















Chain 
Byte 
















Chain 
Byte 


















Chain 
Byte 
















Chain 
Byte 
















Chain 
Byte 

















Chain 
Byte 















Byte 



KEY 



A. The free list pointer contains a displacement index to a free list entry within the channel queue. The free list is a group of 
entries that function in essentially the same manner as a device queue. When the free list pointer contains a hexadecimal 
FF, it indicates that no more free list entries are available. 

B. The first byte of the channel queue entry (chain byte) contains a pointer (displacement index) to the next channel queue entry 
for that device. A hexadecimal FF indicates the last channel queue entry for that device. New requests on a given device 

are queued at the end of a given device queue. 

C . I CCB address for the specified device . 

D. A pointer (displacement index) to the LUB table identifying the logical unit making the I/O request. 

E. Contains a pointer (displacement index) to the first channel queue entry for a specific device (Figure 9). 

F. Contains a code identifying the program making the I/O request. The one-byte entry is called a RID (Requestor 
Identification). The RID indicates what program the CCB belongs to. The RID is in the form X'nk' . 

n = user -storage protection key (supervisor =0, BG=1, F2=2, Fl =3). 
k = for all user requests and all supervisor CCBs, where n = 0. 
k = 1 for supervisor CCBs to SYSLOG that bypass ID prefix, 
k =2 for a fetch CCB. 
nk =FF for any unused channel queue entries. 

Bytes 108-109 (X'6C- '6E') of the communications region contain the address of the LUBID Table. Label LUBIDTAB identifies the 
first byte of the table. The addresses of the other two tables are not at fixed locations. They can be found in the program listing 
cross-reference by using the labels CHANQ and REQIDTAB. 

Figure 12. CHANQ, LUBID, REQID Tables 
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PIB TABLE 



Byte 
Number 



10 



12 



13 



14 



15 



= 16 
Byte 
Length 



All 

Bound 

PIB 



Flag 
Byte 
See A 



Reserved 



SP Prefix 



Branch Instruction to the 
All Bound Routine 



Resen 



Problem 
Program 
PIB 
(Note 1 ) 



Flag 
Byte 
See B 



Cancel 

Code 

(Fig. 25) 



SYSLOG ID 
(BG, F2, orFl) 



NOP 
Instruct- 
ion 
(CR) 



Address of the 
Partition Save Area 



Number 

of Core 

Blocks 

(Note 2) 



Address of the Origin 
of the Partition 



PIB 
Assign 

Flag 
See D 



User 
LUB 
Index 



Number 

of 

Program 

LUBs 



Flag 
Byte 
See C 



Attention 
PIB 



Flag 
Byte 
See E 



Cancel 

Code 

(Fig. 25) 



SYSLOG ID 
(AR) 



Branch 
Code 
(BC) 



Active = Address of 
Save Area 

Inactive =Remainder of 
BC Instruction 



Switch 

Byte 

See F 



Logical Transient Bucket 
(contains save 
area address) 



X'07' 
See D 



Reserved 



Address of 

the Logical 

Transient 



Quiesce 
PIB 



Flag 
Byte 



Cancel 

Code 

(Fig. 25) 



::> Reserved 



Branch Instruction to 
Quiesce I/O Routine 



Reserved 



Supervisor : . 
PIB 



Flag 
Byte 
See A 



Cancel 

Code 

(Fig. 25) 



SP Prefix 



Branch Instruction to 
General Exit Routine 



Address of 
SYSRES PUB 



Reserved 



X'07' 

See D 



Reserved 



Note 1: The PIB table is built in this sequence when the MPS feature is selected as a generation option: All Bound PIB 

Background PIB 
Foreground 2 PIB 
Foreground 1 PIB 
Attention PIB 
Quiesce PIB 
Supervisor PIB 
When a batch -only environment is established at generation time, the All Bound and Foreground PIB's are excluded from the table. 

Note 2: Number is in multiples of IK for BG or of 2K for F2 and Fl . 

* See Figure 14 for flag byte expansions 

Bytes 90 and 91 (X'5A' - '5B') of the communications region contain the address of the first part of the PIB Table . Label PIBTAB 
identifies the first byte of the table. 



Figure 13. First Part of Program Information Block (PIB) Table 
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E 















Supervisor, Quiesce, and All Bound PIB Flags: 

Bit 0: 1 = Registers stored 

= Registers not stored 
1-4: = Always zero 
5: 1 = Always one 
6: = Always zero 
7: 1 = Active 
= Inactive 

Problem Program PIB Flag (First Byte in PIB): 

Bit 0: 1 = Registers stored 

= Registers not stored 
1-4: = Always zero 

5: = Normal execution 

1 = Program has seized the system 
6: 1 = Unbound 

= SVC 2- bound (B- transient in progress) 
7: 1 = Unbound 

= SVC 7- bound (waiting for an I/O interrupt) 
X'80' indicates the program is not present in the system. 

Problem Program PIB Flag (Last Byte in PIB): 

Bit 0: 1 = Batched Job in Foreground 
= No BJF 
1 : Reserved 

2: 1 =/&on SYSIN if DASD 
= No/&on SYSIN 
3-7: Reserved 

PIB Assign Flag 

X'80 1 = SYRES DASD file protect inhibited (allow write operation on SYSRES) 

X'40 1 = Channel appendage exit allowed (BTAM) 

X'20 1 = Cancel in progress (used in terminator function) 

X'10 1 = Cancel control (set on a foreground cancel) 

X'08 1 = Hold- Release flag for foreground assignments 

X'07 1 = Supervisor or Attention routine PIB assign flag setting 

X'04 1 = Background program PIB assign flag setting 

X'02 1 = Foreground 1 program PIB assign flag setting 

X ! 01 ' = Foreground 2 program PIB assign flag setting 



JE I Attention PIB Flag 



Bit 0: 1 = Registers stored 

= Registers not stored 
1-5: = Always zero 

6: 1 = Attention routine active 

= Attention routine SVC 2- bound 
7: 1 = Active 

= SVC 7- bound 

X'80' indicates the attention routine is not present in the system. 

Attention PIB Switch Byte 

Bit 0- 4: Reserved 

5: 1 = Physical Attention Recall Switch ON 

= Physical Attention Recall Switch OFF 
6: 1 = Attention Request Switch ON 

= Attention Request Switch OFF 
7: 1 = External Interrupt Request Switch ON 

= External Interrupt Request Switch OFF 



Figure 14. PIB Flag Expansions 
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Byte ^ 

Number r 





1 


2 


3 


4 


5 


6 


7 


8 


9 


10 


11 


12 


13 


14 


15 


Background 
PIB 


Address of 
BG Comm. 
Region 

1 


System 
LUB Index 


























FG2 


1 
Address of 




























:•&!:•&&:& 


PIB 


Area Comm. 


System 


























* 


Region 


LUB Index 




























** 
































1 
















:i; D i 














1 
















T~: Keserved ? 


'■•.'■'■'■'•.'■■.'■:'•:'■:'•:■ 




>:x':!x::;:: 




•.'■•.'■■.'••.'■■.'•■.■: [ -:-: 


FG1 


Address of 






























PIB 


Area Comm . 


System 


























* 


Region 


LUB Index 




























** 






























Attention 
PIB 


Address of 
BG Comm. 
Region 

1 

































= 16 
Byte 
Length 



* Generated only if MPS is specified. 
** Always background communications region except when MPS = BJF. 

Bytes 124 and 125 (X'7C l - '7D') of the communications region contain the address of the second part of the PIB Table. Label 
P1B2AD identifies the first byte of the table. 

Figure 15. Second Part of Program Information Block (PIB) Table 
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SYSLNK 
SYSIN 
SYSPCH 
SYSLST 

Number 
of Bytes 



Current Address 


End Address 


R 


U.L. 


L.L. 




R.C. 


Reserved 


B 


B 


C 


C 


H 


H 


R 


* 






i 

Tl 


s area not used for SYSLNK D 




1 mmmmmm 






Tn 


B 




B 


B 


C 


C 


H 


H 


R 


K 


D 


D 


B 


B 


C 


C 


H 


H 


X 


H 


H 


* 


XX 


XX 












































* 
















































* 


















*1^ 


-•I-*- 
















/ 










j 








( 


i 






"*!"*" 


"*!"*" 


< 2 > 


* 2 *- 



* Not used 



KEY: Current Address: The next address to be used (for both input and output). 

End Address : The last address within the limits of the extent. 

: Record count 

: Upper head limit 

: Lower head limit 

: Last record number on track (U. L. minus 1). When the end address minus the current address is less than, 

or equal to, the value in R.C, a warning message is issued by job control. 

: Key and data length for the symbolic device. 



R 

U.L. 
L.L. 
R.C. 

KDD 



KDD for SYSIN = X'000050' 
KDD for SYSPCH = X 1 00005 T 
KDD for SYSLST = X'000079' 

Bytes 96 and 97 (X'60 1 - '61 ') of the communications region contain the address of the SYSLNK entry. 
Label DSKPOS identifies the first byte of the table. 



Figure 16. Disk Information Block (DIB) Table 
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JIB Table 






Caution 


JIB 1 






JIB 2 




JIB 3 




JIB 4 




JIB 5 




JIB 6 




Number (length of JIB table) 
determined at supervisor generation 









1 


2 


3 



Two JIBs are required for a 2321 extent; one for lower 
limit and one for upper limit. The lower limit defining 
JIB must be chained to the upper limit defining JIB. 
Byte 1 of this type JIB contains the sub - cell number 
times 10 plus the strip number in binary. 



Type of Entry 


Contents 


Stored standard 
assignment 


LUB entry of 
standard assignment 


Alternate 
assignment 


PUB pointer for 
alternate assignment 


2311 Extent 


c l c l c h Ch © 


2321 Extent 


B L B L C L C L or © 

BhBhC h c h 



Only when file - protect on DASD 

@ Lower Cylinder 
Upper Cylinder 

Cell or combined sub - cell and strip 



Flag Type 


Bit 


Meaning if Bit = 1 


Contents 





Stored standard assignment 


1 


Alternate assignment 


2 


2311 Extent 


3 


2321 Extent 


4 


Standard assignment 


Ownership 


5 


Background 


6 


Foreground 1 


7 


Foreground 2 



Chain Byte. 

Contains the displacement 
index of the next JIB. 
A hexadecimal 'FF' defines 
the end of the chain. 



Bytes 68 - 69 (X'44' - '45') of the communications region contain the address of 
the JIB table entry. Label JIBTAB identifies the first byte of the table. 



Figure 17. Job Information Block (JIB) Table 
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Supervisor Nucleus 



Hook 2 | 



** Hook 1 




/ 



4- Byte Address of C E Table 



I/O Tables and 
Information Blocks 



! 



\ 



\ 



FG2 Communications 
Region Extension 






FG1 Communications 
Region Extension 



I 



L 



CE Table 



J 




To 
Hook 2 



To 
Hook n* 



Serviceability Routines 
in C E Area 



* n = 10 maximum 



Figure 18. Accessing CE Serviceability Routines 



BG Communications 
Region Extension 



SAB, Patch, LTA 
and PTA Areas 



BG Save Area 
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PC Option Table and OC Option Table: 



BG 



F2 



Fl 







-word- 



- word- 



No STXIT given: a =0 

STXIT issued: a = address of the user program check (operator communications) routine 

STXIT issued when the user routine is already in use: a = complement of user program check (operator communications) 

routine address 



No STXIT given: b=0 

STXIT issued: address of the user save area 



IT Option Table: 



■ word- 



• word - 



s 



No TECB or STXIT issued: c = 

TECB issued: c = address of the timer event control block 

STXIT issued: c = address of the user interval timer routine 

STXIT issued when user routine is already in use: c = complement of the user interval time routine address 



No TECB or STXIT issued: d =0 

TECB issued: d = complement of the TECB address 

STXIT issued: d = address of the user save area 



The addresses of these tables are found in the communications region at the byte locations specified below. The labels shown 
identify the first byte of the corresponding table. 



Table 



Bytes in COMREG 



Label 



PC 


100- 


101 


(X'64 1 


-"65') 


PCTAB 


IT 


102- 


103 (X'66- 


■67') 


ITTAB 


OC 


104- 


105 


(X'68'- 


- '69') 


OCTAB 



Figure 19, Option Tables 
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INFORMATION BLOCKS AND OTHER TABLES 



To accomplish functions such as exit 
selection, DASD file protection, and record 
identification, the supervisor program 
requires pertinent information. At 
supervisor generation time certain main 
storage locations are set aside and, in 
some cases, initialized to supply the 
required information. The basic 
information blocks and their respective 
functions are: 



PIB (Program Information Block): The first 
half of a PIB retains program status 
information for user and supervisor 
programs. It supplies routing information 
in a multiprogramming environment to allow 
selective program return and it contains 
pointers and switches used by the 
supervisor program. (Figures 13 and 14.) 
The second half contains the address of the 
area communications region and the system 
LUB Index (Figure 15) . 



CE Table - Generated in the SEND macro 
expansion. Contains 4-byte pointers, 
each of which points to a hook within 
the supervisor that accesses the CE 
serviceability routines. Provision is 
made for up to ten entries in the CE 
table. See Figure 18 for an 
illustration of this table, how it is 
accessed, and how the hooks are used. 



PC, OC, IT Tables - Generated in the 
SGTCON macro expansion. These three 
tables (program check, operator 
communications, and interval timer) 
contain addresses supplied by the user 
with a STXIT macro. (See Figure 19.) 



DTF Address - Generated in the SMICR 
macro expansion. These two tables 
(PDTABA and PDTABB) contain pointers, 
DTF addresses, and other information 
for handling external interrupts on 
magnetic ink character recognition 
devices. (See Figure 20.) 



DIB (Disk Information Block) : The DIB is 



built at gene 
option was se 
keeping funct 
assigned to a 
current seek 
operating in 
The block is 
with extent i 
physical IOCS 
macro expansi 



ration time if the SYSFIL 
lected. It performs a record 
ion on system class units 

DASD. The DIB contains the 
address when the system is 
a batched job environment, 
initialized by job control 
nformation and updated by 

It is located in the SGTCON 
on. (See Figure 16.) 



JIB (Job Information Block) : The JIB 
contains temporary and alternate LUB 
assignments. (These blocks are referenced 
by the LUBs.) The JIB serves another 
purpose when DASD file protection is 
selected as a supervisor generation option. 
Extent information is supplied by the 
program initiator and logical IOCS open 
transient routines. The supervisor can 
then perform the file protect function for 
the specified file limits. File protection 
does not include supervisor and transient 
originated I/O. (See Figure 17.) 



SAB (Seek Address Block): Contains a 
four- byte address (BCCH) for each DASD 
device when the seek separation feature is 
specified. The current address is 
maintained in the SAB for the particular 
device. Each SAB is referenced by its 
corresponding PUB. 



Other Tables: Several optional tables are 
built at generation time within the 
supervisor: 



Additional Communications Regions: The 
communications regions for the t;wo 
foreground partitions are located at the 
end of the I/O tables. Their format is 
identical to that of the background 
communications region. Immediately 
following the F2 and Fl communications 
regions (or, if not BJF, following the I/O 
tables) are extensions of as many 
communications regions as have been 
generated. The extensions are presently 
generated only if the CE option is 
specified. However, they will provide for 
future COMREG needs without adding to the 
size of the basic supervisor. 



Transient, CE, and Save Areas: Main 
storage locations are reserved in the area 
preceding the problem program area for: 



Logical ($$B) transients - 1200 bytes. 



Physical ($$A) transients - 
approximately 550 bytes. 



3. CE area (only if CE=YES or n) - 600 
bytes minimum. 

4. Background save area - 88 bytes (120 
for floating point feature). The BG 
save area contains six subfields: 
program name, PSW, general registers 
(9 through 8), label length, 6 
reserved bytes , and optionally 
floating point registers (0-8). (See 
Figure 1.) 



4 
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The table of DTF addresses (PDTABB) contains six 8 -byte entries; one for each external line of the 
direct control feature on the system. 

PDTABB 



Byte — 


— +-0 


1 1 1 


2 3 


4 




5,6,7 


\ 


Nl 


1 1 

PDSTAT+1, 


1 

X'FE' 


p 


DTF address for MICR: 





Device on line 7 


8 


Nl 


PDSTAT+1, 


X'FD' 


_c 


Device on line 6 


16 


Nl 


PDSTAT+1, 


X'FB' 


? » -J 




Device on line 5 


24 


Nl 


PDSTAT+1, 


X'F7' 


> CO 

> o 




Device on line 4 


32 


Nl 


PDSTAT+1, 


X'EF' 


O LL." 




Device on line 3 


40 


Nl 


PDSTAT+1, 


X'DF' 






Device on line 2 










' ' 





Background = 1 
Foreground 2 = 20 
Foreground 1 = 30 

# Bytes 0-3 - -Contain an 'AND' instruction that is executed in main line coding to turn off the 
external line status after its detection. 

PDSTAT + 1 will contain one or more of the following interrupt codes: 



PSW Interrupt 


Interrupt Code 


External 


Code Bit 




(PSW Bits 26-31)* 
nnnnnnnl 


Interrupt Cause 


31 




External signal 7 


30 




nnnnnnl n 


External signal 6 


29 




nnnnnlnn 


External signal 5 


28 




nnnnlnnn 


External signal 4 


27 




nnnlnnnn 


External signal 3 


26 




nnlnnnnn 


External signal 2 



• Byte 4 --Contains the flag of the partition containing the DTF. 

• Bytes 5 -7-- Contain the address of the DTF table . 

Table of pointers (PDTABA) to DTF addresses associated with the external interrupt line. The table is 
set up to handle the status in descending order from Bit 31 to Bit 26 of the external old PSW. 



PDTABA 



Byte ■ 



8 

16 
24 
32 
40 
48 
56 



—0 





00 


1 1 

08 


1 

00 


\ 

10 


■1 

00 


■\ 

08 


\ 1 

00 


18 




00 


08 


00 


10 


00 


08 


00 


20 




00 


08 


00 


10 


00 


08 


00 


18 




00 


08 


00 


10 


00 


08 


00 


28 




00 


08 


00 


10 


00 


08 


00 


18 




00 


08 


00 


10 


00 


08 


00 


20 




00 


08 


00 


10 


00 


08 


00 


18 




00 


08 


00 


10 


00 


08 


00 





*n =other external - interrupt conditions. 

Bytes 126 and 127 (XVE 1 - '7F') of the communications region contain the address of these 
tables. Label PDTABB identifies the first byte of the first table. 



Figure 20. Tables for MICR DTF Addresses and Pointers 
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Card Code 


Actual Device 


Dev. Type 
X'nn* 


Device Type 


2400T9 


9- track Magnetic Tapes 


50 


Tapes 


2400T7 


7- track Magnetic Tapes 


50 


1442N1 


1442N1 Card Reader Punch 


30 


Card Readers- Punches 


2520B1 


2520B1 Card Reader Punch 


31 


2501 


2501 Card Reader 


10 


Card Readers 


2540R 


2540 Card Reader 


11 


2540P 


2540 Card Punch 


21 


Card Punches 


2520B2 


2520B2 Card Punch 


20 


1442N2 


1442N2 Card Punch 


22 


2520B3 


2520B3 Card Punch 


20 


1403 


1403 Printer 


40 


Printers 


1403U 


1403 Printer with UCS Feature 


42 


1404 


1404 Printer 


40 


1443 


1443 Printer 


41 


1445 


1445 Printer 


41 


1050A 


1052 Printer- Keyboard 


00 


UNSP 


Unsupported Device 


FF 


Unsupported. No burst mode on multiplexor channel. 


UNSPB 


Unsupported Device 


FF 


Unsupported with burst mode on multiplexor channel. 


2311 


231-1 Disk Drive 


60 


DASD 


2314 


2314 Disk Storage Facility 


62 


2321 


2321 Data Cell Drive 


61 


1412 


1412 Magnetic Char Reader 


75 


MICR- 

Magnetic Ink Character 

Recognition Devices 


1419 


141 9 Magnetic Char Reader 


72 


1419P 


1419 Dual Address Adapter 
Primary Control Unit 


73 


1419S 


1419 Dual Address Adapter 
Secondary Control Unit 


74 


2701 * 


2701 Line Adapter Unit 


DO 


Teleprocessing lines 

A = SAD0 command when enabling the line 
B = SAD1 command when enabling the line 
C = SAD2 command when enabling the line 
D = SAD3 command when enabling the line 


2702 c 

Id 


2702 Transmission Control Unit. 


Dl 


2703 


2703 Transmission Control 


D2 


2671 


2671 Paper Tape Reader 


70 


Paper Tape Reader 


1285 


1285 Optical Reader 


76 


Optical Readers 


1287 


1287 Optical Reader 


77 


Note: The codes used in the DVCGEN macros are the same codes used in IPL statements. 



* For other teleprocessing devices, see IBM System/360, DOS BTAM and QTAM PLMs, Forms Y30-5001 and Y30-5002. 
Figure 21. Device Type Codes 
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Density 


Parity 


Convert 


Translate 


ss 


(Bytes per Inch) 




Feature 






200 


odd 


on 


off 


10 


200 


odd 


off 


off 


30 


200 


odd 


off 


on 


38 


200 


even 


off 


off 


20 


200 


even 


off 


on 


28 


556 


odd 


on 


off 


50 


556 


odd 


off 


off 


70 


556 


odd 


off 


on 


78 


556 


even 


off 


off 


60 


556 


even 


off 


on 


68 


800 


odd 


on 


off 


90 


800 


odd 


off 


off 


B0 


800 


odd 


off 


on 


B8 


800 


even 


off 


off 


A0 


800 


even 


off 


on 


A8 


800 


dual c 


lensity nine 


- track 


C8 


1600 


dual c 


lensity nine 


- track 


CO 



Figure 22. Density Data 
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RESIDENT SUPERVISOR (CHARTS 01-06) 



Supervisor is the 
of the Disk Opera 
into storage at I 
throughout system 
preceding section 
information about 
resident supervis 
information about 
of the resident s 



storage resident portion 
ting System. It is loaded 
PL time and remains there 

operations. Refer to the 

of this manual for 

generation of the 
or. Refer to Figure 5 for 

the storage organization 
up er visor. 



Infrequently-used supervisory functions 
are not included in the resident 
supervisor. They are in the form of 
transient programs (A and B) and are 
fetched or loaded from the core image 
library when needed. 



SUPERVISOR INTERRUPT PROCESSORS 

This portion of the resident supervisor 
processes the following system interrupts: 

• Supervisor call interrupt 

• I/O Interrupt 

• Program check interrupt 

• External interrupt 

• Machine check interrupt. 



MULTIPROGRAMMING SUPPORT (MPS) 



General Entry and General Exit routines 
provide the mechanism for multiprogramming 
support. Refer to these areas on Chart 01 
for additional descriptions for 
multiprogramming concepts. Figure 23 
illustrates the task selection procedure 
associated with multiprogramming. 



BATCH JOB SUPPORT 



Batch jobs may be run in any of the three 
partitions (BG, F2, Fl) . Batch job support 
is always provided in the background 
partition. To run in the foreground 
partitions, the MPS=BJF option must be 
specified. 



SUPERVISOR CALL INTERRUPT (SVC) 



SVC is detected by microprogramming, which 
loads the SVC new PSW. The SVC interrupt 
processor (Chart 03) analyzes the SVC code 
placed in the SVC old PSW by the calling 
program. Control is transferred to the 
appropriate processing routine. Some SVCs 
are optional and cause a cancel if 
supervisor was generated without the 
option. (See Figure 24 for a list of 
supervisor calls.) 



SVC : Execute the user's channel program 
(EXCP) . The address of the user's command 
control block (CCB) must be supplied in 
general register 1 before this SVC is 
issued. Return may be either to the 
interrupted program or to the highest 
priority program ready to run. 

Note ; When an SVC is issued by 
supervisor or A-Transient programs, the 
address of the CCB must be supplied in 
general register 15 before the SVC is 
issued. 



SVC 1; Fetches a phase. A fetch loads a 
phase from the core image library and 
branches to the entry address in that 
phase. The load and entry addresses are 
obtained from the core image directory 
entry for the phase being fetched. The 
storage address of the phase name must be 
supplied in general register 1 before this 
SVC is issued. The user may override the 
linkage editor entry address by supplying 
an entry address in general register 0. 
Return may be either to the interrupted 
program or to the highest priority program 
ready to run. 



SVC 2: 



Fetches a B-transient. Loads a 



B-transient program (phase name prefix 
equals $$B) from the core image library to 
the B-transient area (refer to Figure 5) , 
and enters the B-transient at its load 
address plus 8 bytes. The storage address 
of the B-transient phase name must be 
supplied in general register 1. 

An address in general register is 
ignored. The B-transient is loaded at the 
beginning address of the B-transient area. 
General register 15 is loaded with this 
address and may be used by B- transients as 
a base register. Return may be either to 
the interrupted program or the the highest 
priority program ready to run. 
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Only one program can use the B-transient 
area at a time. If the B-transient program 
is SVC 7 bound, another program is 
selected. This program becomes SVC 2 bound 
(waiting for the B-transient area) if it 
issues an SVC 2. Another program is then 
selected. 

Note ; Supervisor may branch directly to 
the SVC 2 routine when fetching a 
B-transient. If the transient is not in 
the library when referenced by the 
supervisor, the system enters the wait 
state. 

SVC 3: Fetches or returns from an 
A-transient. Load an A-transient program 

(phase name prefix equals $$A) from the 
core image library to the A-transient area 

(refer to Figure 5) , and enters the 
A-transient at its load address plus 8 
bytes . The storage address of the 
A-transient phase name is loaded in general 
register 1 before the fetch is made. 

An address in general register is 
ignored. The A-transient is loaded at the 
beginning address of the A-transient area. 
General register 11 is loaded with this 
address and is used by A-transients as a 
base register. Return is to the 
interrupted program. 

Note : Supervisor may branch directly to 
the SVC 3 routine when fetching an 
A-transient. Only programs operating iri 
the supervisor mode can issue an SVC 3. If 
the transient is not in the library, the 
system enters the wait state. 

Caution : SVC 3 is also used as a return 
from an A-transient program. The last byte 
of the A-transient name field determines 
the usage. 

• X'OO' - Returning from error recovery 
A-transients. 

• X'01' - Returning from physical 
attention transients ($$ANERRZ, Y, 0) 
or post cancel by any A-transient. 

• Alpha - Fetch A-transient. 

When returning from an A-transient, the 
branch address is in general register 15. 
The A-transient must load one of the exit 
addresses from the error recovery block 
(ERBLOC). Refer to Figure 33. 

SVC 4 : Loads a phase from the core image 
library and returns to the user. (See the 
following Note . ) The storage address of 
the phase name must be supplied in general 
register 1 before this SVC is issued. The 
user may override the link- edited load 
address by supplying a load address in 
general register 0. Upon return to the 



user, general register 1 contains the phase 
entry address adjusted for any changes in 
the phase's load address. 

Note : Return may be either to the 
interrupted program or to the highest 
priority program ready to run. 

SVC 5: Modifies the supervisor 
communications region. Supplies the 
supervisory support for the MVCOM macro. 
The sequence of events is : 

1. MVCOM macro issues an SVC 5. 

2. SVC 5 fetches $$ANERR1 by branching to 
the SVC 3 routine. 

3. $$ANERR1 alters the supervisor 
communications region as specified by 
the MVCOM macro. 

Return may be either to the interrupted 
program or to the highest priority program 
ready to run. 

SVC 6: Cancels a background or foreground 
program. Cancel code X'23" is posted to 
the PIB for the program issuing the SVC 6. 
Refer to Figure 13 for the format of the 
PIB tables, to Chart 03 for General Cancel 
Routine, and Figures 25 and 4 for cancel 
codes. The next time the canceled program 
is selected on general exit, a branch is 
made to the SVC 2 routine to fetch the 
cancel B-transient program, $$BEOJ3. 

SVC 7: Waits for I/O to complete or a 
timer interrupt to occur. SVC 7 supplies 
the supervisory support for the WAIT macro. 

With MPS option, returns directly to the 
interrupted program if the traffic bit has 
been posted in the CCB or TECB. See SVC 24 
in this list for an explanation of the 
TECB. If traffic bit is not posted: 

1. Change the status of the interrupted 
program PIB to SVC 7 bound (not ready 
to run) . 

2. Select the highest priority program 
-that is ready to run. 

When I/O is completed or a timer 
interrupt occurs: 

1. The traffic bit is posted in the CCB 
or TECB. 

2. The PIB is restored to the 
ready-to- run status. 

3. When this program is again selected at 
general exit, the old PSW is loaded 
with the address of the second 
instruction of the WAIT macro 
expansion. 
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Without MPS option, returns directly to 
the interrupted program if the traffic bit 
has been posted in the CCB or TECB. (See 
SVC 24 in this list for an explanation of 
the TECB.) If the traffic bit is not 
posted, the system enters the wait state 
with interrupts enabled. 

SVC 8 : Supplies the supervisory support to 
temporarily return from a B-transient 
program to the problem program. The 
B-transient area is not released. The task 
selection exit loads the problem program 
registers. An SVC 9 is used to return to 
the B-transient program. 

SVC 9 ; Supplies the supervisory support 
for returning to the B-transient after an 
SVC 8 is issued. The task selection exit 
loads the B-transient registers. 

SVC 10: Sets a timer interval. This SVC 
is optional, and the issuing program is 
canceled if supervisor is generated without 
the IT option. Only the timer supported 
program can issue an SVC 10. Others are 
canceled. 

The time interval is specified in 
general register 1 by the user (SETIME 
macro). The system time of day (SYSTOD, 
X'54') is updated to the time that the next 
interrupt should occur (may change if 
another SVC 10 is issued). The system 
timer (SYSTIMER, X'50') is set to the 
specified time interval. The time interval 
in SYSTIMER immediately begins to lapse. 
Refer to IBM System/3 60 Principles of 
Operation , Form A22-6821, for information 
concerning the operation of SYSTIMER. 

Note : Current system time of day can be 
obtained by shifting out the low order byte 
from the remaining time interval (SYSTIMER) 
and subtracting it from system time of day 
(SYSTOD). Time in SYSTOD is represented in 
the form, seconds x 300. Time in SYSTIMER 
is in the form, seconds x 300 x 256. 

An SVC 10 returns directly to the timer 
supported program. No task selection is 
performed. 

SVC 11: Returns from a B-transient 
releasing the B-transient area. SVC 11 is 
invalid if issued by other than a 
B-transient. The logical transient area is 
released for use by other programs or 
tasks. Return is to the highest priority 
program ready to run. 

i 

SVC 12: Supplies the supervisory support 

to reset flags to in the linkage control 
byte (displacement 57 in the supervisor 
communications region) . The user loads a 
mask (1 byte, hexadecimal) into general 
register 1. This mask is ANDed with the 
linkage control byte. An SVC 12 returns 



directly to the interrupted program. No 
task selection is performed. 



SVC 13: Supplies the supervisory support 
to set flags to 1 in the linkage control 
byte (displacement 57 in the supervisor 
communications region). The user loads a 
mask (1 byte # hexadecimal) into general 
register 1. This mask is ORed with the 
linkage control byte. An SVC 13 returns 
directly to the interrupted program. No 
task selection is performed. 

SVC 14: This is the normal end of job 
(EOJ) . Cancel code X'10' is posted to the 
PIB for the program issuing the SVC 14. 
Refer to Figure 13 for the format of the 
PIB tables and to Chart 03 for the General 
Cancel routine. The next time the canceled 
program is selected on general exit, a 
branch is made to the SVC 2 routine to 
fetch the cancel B-transient program 
$$BEOJ3. Job Control is loaded by $$BEOJ 
to perform the end-of- job-step. 

SVC 15: This is the same as SVC (EXCP) , 
with this exception: when the CHANQ table 
is full, the SVC is ignored. Return is 
directly to the interrupted program in this 
case. If the CHANQ table is not full, 
general register is zeroed and EXCP is 
issued (see SVC in this list) . 

Note : The CHANQ table is full when the 
free list pointer (FLPTR) equals X'FF'. 
Refer to Figure 12 for the format of the 
CHANQ table and to Figure 26 for CHANQ 
operation. 

SVCs 16 through 21: These supervisor calls 
provide supervisory support for the STXIT 
and EXIT macros. They are optional, and 
the issuing program is canceled if 
supervisor was not generated with the 
applicable option. 

• SVC 16 stores the address of the user's 
program check (PC) routine and save 
area address in the PC option table. 

• SVC 17 provides a return from the 
user's PC routine to the program 
interrupted due to a program check. 

• SVC 18 stores the address of the user's 
interval timer (IT) routine and save 
area address in the IT option table. 
Only the timer supported program can 
issue SVC 18. 

• SVC 19 provides a return from the 
user's IT routine to the timer 
supported program. Only the timer 

'supported program can issue SVC 19. 

• SVC 20 stores the address of the user's 
operator communications (OC) routine 
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and save area address in the OC option 
table. 

• SVC 21 provides a return from the 
user's OC routine to the program 
interrupted by the external interrupt 
key. 

The address of the user routine is 
specified in general register 0, and the 
address of the user's save area is 
specified in general register 1 in all 
cases. Refer to Figure 19 for the format 
of the option tables. 

SVCs 16, 18, and 20 return directly to 
the interrupted program. SVCs 17, 19, and 
21 return either to the interrupted program 
or to the highest priority program ready to 
run. 



SVC 2 2 ; Seizes the system and provides a 
release from such a seizure. The SVC 22 is 
ignored if supervisor was generated without 
the MPS option. The program issuing an SVC 
22 is canceled if the PSW protection key 
field does not equal 0. (Only job control 
and B-transient programs can issue an SVC 
22.) 

The first SVC 22 issued seizes the 
system and the next one issued releases the 
system. The last byte of register 
replaces the system mask. If register is 
negative, the protection key is replaced by 
the protection key of the PIK. 

The task selection mechanism is altered 
by the first SVC 22 so that only supervisor 
or quiesce I/O tasks and the program that 
issued the SVC 22 can be selected. The 
next SVC 22 issued restores the task 
selection mechanism. The contents of the 
last byte of general register are again 
used as the system mask. 

Return from each SVC 22 is directly to 
the interrupted program. 

Caution ; There is no way to cancel a 
program that has seized the system. 

• The program must have no pending I/O 
operations. 



The user must specify the address of the 
core image phase name in general register 1 
and the address where the load address is 
to be stored in general register 0. The 
main fetch subroutine scans the core image 
directory and retrieves the load address. 
If the phase is found in the directory, the 
load address (3 bytes) is stored at the 
user's address specified by general 
register 0. If the phase is not found, 
return is to the interrupted program. 

SVC 24: Stores the address of the user's 
timer event control block (TECB) and sets a 
timer interval. This SVC is optional, and 
the issuing program is canceled if 
supervisor is generated without IT option. 
Only the timer supported program can issue 
an SVC 24. Others are canceled. 

The address of the user's TECB is 
specified in general register 0, and the 
time interval is specified in general 
register 1. 

The traffic bit is reset in the user's 
TECB, and the TECB address is stored in the 
IT option table. Refer to Figure 19 for 
the format of the IT option table. 

Note : The TECB has the same format as a 
command control block (CCB) , but only the 
traffic bit is used. The traffic bit is 
set when a timer interrupt occurs. Refer 
to Figure 27 for the format of the CCB. 

The time interval is set, and the system 
time of day is updated as for an SVC 10 . 
(See SVC 10 .) An SVC 24 returns directly 
to the timer supported program. No task 
selection is performed. 

The user causes the program to wait for 
the timer interrupt to occur by issuing an 
SVC 7. (See SVC 7 in this list.) 

SVC 25: Issues halt I/O on a 
Teleprocessing device. If supervisor is 
generated without Teleprocessing option, a 
program issuing an SVC 25 is canceled. 

The address of any command control block 
(CCB) containing the symbolic unit address 
for this device must be supplied in general 
register 1 before issuing this SVC. 



• The program cannot issue supervisor 
calls while the system is seized. 



SVC 2 3 : Loads phase header. Retrieves the 
load address for a specified phase from the 
core image directory. The program issuing 
an SVC 23 is canceled if supervisor was 
generated without the MPS option or if the 
PSW protection key does not equal 0. (Only 
job control and B-transient programs can 
issue an SVC 23.) 



An HIO instruction is issued to the 
device if: 

1. It is a Teleprocessing device and 

2. There is I/O pending for the device. 

In this case, return is to the highest 
priority program ready to run. The device 
busy flag is reset at this time. If an SVC 
25 is issued for other than a 
Teleprocessing device, it is ignored., 



Resident Supervisor 47 



SVC 26; Validate address limits. The 
program issuing an SVC 26 is canceled if 
the PSW protection key does not equal 0. 
(Only job control and B-transient programs 
can issue an SVC 26,) 



• Without MPS option - Set wait bit in 
SVC old PSW, disable for I/O interrupts 
only, and return to interrupted 
program. 



The upper address must be specified in 
general register 2, and the lower address 
must be specified in general register 1. 
The upper address must be within main 
storage, and the lower address must be 
higher than the end of supervisor address, 
or the program is canceled (ERR25). Return 
is to the interrupted program. No task 
selection is performed. 



SVCs 30 , 31, and 32: Reserved for QTAM. 
Refer to the QTAM PLM listed in the 
Preface, 



SVCs 33 and 34: Reserved for internal 
macros COMRG and GETIME, respectively. 
Their use by other programs results in a 
branch to EXT01 (see Chart FA) . 



With MPS option, the PIK of the program 
issuing the SVC 2 6 must equal the storage 
protection key for both addresses or the 
program is canceled (ERR25) • 

With batch operation, SVC 26 is ignored 
unless storage protection has been 
specified, 

SVC 27: Same as SVC 25, except the EXCP 
CCB is not dequeued if the CSW has been 
stored after a HIO command. 



SVC 28; 



Provides return from user's 



stacker select routine to the MICR external 
interrupt routine in the supervisor. This 
SVC is optional and causes a cancel if 
issued at any point other than in a user 
stacker select routine with MICR devices. 

SVC 2 9 : Provides supervisory support for 
the WAITF macro for MICR devices only. If 
MICR devices are not being used, logical 
IOCS does not issue SVC 29. If MICR 
devices are not specified in the supervisor 
macro (SUPVR) , SVC 29 causes a cancel. 

All interrupts are disabled and the 
CCB's are all checked for the traffic bit* 
When a CCB is found with the traffic bit 
posted, SVC 29 returns to the interrupted 
program. 

If all CCB's are checked and no traffic 
bits are posted, one of two courses is 
taken : 

• With MPS option - Cause user to become 
I/O-bound, disable for I/O interrupts 
only, and return to task selection. 





Priority Table 




Sample 
Status 


PIB Tables 


MVCFLD 




X'84' 


Supervisor task PIB 


X'60' 


i 


X'84' 


Quiesce l/O task PIB 


X'50' 


3$. 


X'80' 


Attention task PIB 


X'40' 




X'83' 


t Foreground 1 program PIB 


X'30' 




X'82' 


t Foreground 2 program PIB 


X»20' 


' : -. : 


X'83' 


Background program PIB 


X'10' 


Iff 


X'85' 


t All bound PIB 


X'00' 



1. Test status flags 
in order specified 
by priority table. 

2. Select 1st PIB for 

,;;f which the TRT 
.!!•.•».. function is not 
X'00\ 



PIB Flags During Task Selection 


Table of Selection Criteria 


Meaning of Status 


Flag 


Label 


TRT Function 


Detached 


X'80' 


TRTMSK 


X"00' 


Waiting for B-transient area 


X'8T 


TRTLTK 


X'OO'orX'03' (Note 1) 


Waiting for CCB or TECB 


X'82' 




X'00' 


Ready to run 


X'83' 


TRTRUN 


X'OS'orX'OO' (Note 2) 


Inactive SUPVR or Quiesce I/O 


X'84' 




X'00' 


Active SUPVR, Quiesce 
I/O, or All bound 


X'85' 




X'05' 



Note 1: X'00' when the B-transient area is in use. 

Note 2: X'00' when a task has seized the system. 
That task's status flag will equal X'84' 
or X'85'. 

t These PIB 's are generated for MPS option only. 



Figure 23. Task Selection Procedure 
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Macro Supported 


SVC 


Function 


EXCP 





Execute channel programs. 


FETCH 


1 

2 
3 


Fetch any phase. 

Fetch a logical transient (B- transient). 

Fetch or return from a physical transient (A- transient). 


LOAD 


4 


Load any phase. 


MVCOM 


5 


Modify supervisor communications region. 


CANCEL 


6 


Cancel a problem program. 


WAIT 


7 


Wait for a CCB or TECB. 




8 


Transfer control to the problem program from a logical transient (B- transient). 


LBRET 


9 


Return to a logical transient (B- transient) from the problem program after a SVC 8. 


SETIME 


10* 


Set timer interval. 




11 
12 
13 


Return from a logical transient (B- transient). 

Logical AND (Reset) to second Job Control byte (displacement 57 in communications region). 

Logical OR (Set) to second Job Control byte (displacement 57 in communications region). 


EOJ 


14 


Cancel job and go to Job Control for end of job step. 




15 


Same as SVC except ignored if CHANQ table is full. (Primarily used by ERP). 


STXIT (PC) 


16* 


Provide supervisor with linkage to user's PC routine for program check interrupts. 


EXIT (PC) 


17* 


Return from user's PC routine. 


STXIT (IT) 


18* 


Provide supervisor with linkage to user's IT routine for interval timer interrupts. 


EXIT (IT) 


19* 


Return from user's IT routine. 


STXIT (OC) 


20* 


Provide supervisor with linkage to user's OC routine for external or attention interrupts 
(operator communications). 


EXIT (OC) 


21* 


Return from user's OC routine. 




22* 

23* 

24* 
25* 
26* 
27* 


The first SVC 22 seizes the system for the issuing program by disabling multiprogram 

operation. The second SVC 22 releases the system (enables multiprogram operation). 

Load phase header. Phase load address is stored at user's address. 

Provide supervisor with linkage to user's TECB and set timer interval. 

Issue HALT I/O on a Tele- processing device. 

Validate address limits. 

Special HIO on teleprocessing devices. 


EXIT (MR) 


28* 


Return from user's stacker select routine (MICR devices only). 




29* 


Provide return from multiple wait (WAITF) macro for MICR devices only. 




30 

through 

34 


Reserved (See preceding text). 



* = optional 



Figure 24. DOS Supervisor Calls 
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Type 


Cancel 
Code 


Condition 


Label 


Logical 
Cancels 


X'10' 
X'20' 
X'21» 
X'22' 
X'23' 
X'24 1 
X'25 1 
X'26' 
X'27' 
X'28 1 


Normal EOJ 

Program check 

Illegal SVC 

Phase not found 

Program request 

Operator intervention 

Invalid address limit 

Unassigned LUB code 

Invalid LUB code in CCB 

QTAM cancel in 
progress 


ERRIO 
ERR20 
ERR21 
ERR22 
ERR23 
ERR24 
ERR25 
ERR26 
ERR27 
EXT02 


Logical I/O 
Cancels 


X'30' 

x«3r 

X'32 1 

X'33' 

X'40' 
X'80' 


Reading past /& on 
SYSRDRor SYSIPT. 

Error queue overflow 
or no CHANQ entry 
available for ERP. 

DASD address not 
within JIB extents. 

No long seek in user's 
channel program. 

Load $$BEOJ 

Cancel occurred in 
LTA 


ERR30 
ERR31 

ERR32 

ERR33 

EXT02 
EXT02 



FLPTR 



CHANQ 



LUBID 



REQID 




(CHANQ 
pointer) 



(Chain 
field) 



(LUB No.) (RID) 



Figure 26. Example of the CHANQ Table 
Operation 



PROGRAM CHECK INTERRUPT 



This is detected by microprogramming, which 
loads the program check new PSW. Refer to 
Program Check Interrupt Processor on Chart 
02. 



EXTERNAL INTERRUPT 



Figure 25. Supervisor Cancel Codes 



I/O INTERRUPT 



This is detected by microprogramming, which 
loads the external new PSW. External 
interrupts can be caused by: 

• Timer 

• External interrupt key 

• Signal 

Refer to External Interrupt Processor on 
Chart 05. 



This is detected by microprogramming, which 
loads the I/O new PSW. Refer to the I/O 
Interrupt Processor on Chart 04. 



MACHINE CHECK INTERRUPT 



This is detected by microprogramming, which 
loads the machine check new PSW. The SEREP 
action code (S) is stored in storage 
location 0001, and the system enters the 
wait state. Refer to Chart 01. 
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PHYSICAL INPUT/OUTPUT CONTROL SYSTEM (PIOCS) 



Physical IOCS Is that portion of the 
resident Supervisor that: 

• Builds a schedule of I/O operations for 
all devices on the system (CHANQ 
table) . Refer to Channel Scheduler on 
Chart 04. Also, see Figure 26 for 
CHANQ operation. 

• Starts the actual I/O operations on a 
device (SIO). Refer to Actual I/O on 
Chart 04. 

• Schedules the starting of all I/O 
operations and monitors all events 
associated with I/O. Refer to I/O 
Interrupt Processor on Chart 04. 

• Performs error recovery procedures 
(ERP). Refer to Unit Check, Quiesce 
I/O, ERP Exits, and Resident Disk Error 
Recovery on Chart 06. Figures 27 
through 31 illustrate: Command Control 
Block (CCB) , Channel Command Word 
(CCW), Program Status Word (PSW) , 
Channel Address Word (CAW) , and Channel 
Status Word (CSW) . See Figures 32 and 
3 3 for CSW testing and error recovery 
block layout, respectively. 



COMMAND CONTROL BLOCK 



The CCB establishes communication between 
the problem program and physical IOCS. The 
CCB is two double words" in length with 
eight major fields, as shown in Figure 27. 
All data in the CCB is in the hexadecimal 
format. The eight fields of the CCB are 
listed and described as follows: 

1. Count Field (bytes 0, 1) : Contains 
the residual count, which is stored in 
these two bytes by PIOCS when the CCB 
is removed from the queue. 

2. Transmission Information (bytes 2, 3) : 
Used for communication between PIOCS 
and the problem program. 

Note : Bytes through 3 are ANDed off, by 
PIOCS, when the CCB is placed in the 
queue. Communication bits that were set 
on by the problem program are left on 
because an AND instruction is used by 
PIOCS for resetting bytes through 3. 

3. CSW Status Bits (bytes 4, 5 ) : Contains 
the CSW status information, which is 



stored in these two bytes by PIOCS 
before control is returned to the 
problem program. 



Note : The particular bits that are turned 
on in bytes 2 through 5 indicate the 
conditions that were detected by the 
problem program and PIOCS. 



4. 



Symbolic Unit Address (bytes 6, 7 ) : 
Contains the 2-byte hexadecimal 
representation of SYSnnn. This value 
represents the location of the logical 
unit in the LUB table (see Figure 27) 
and is placed in the CCB by the 
problem program. 

Byte 8 : Is not used, and must contain 
hexadecimal . 

CCW Address (bytes 9-11) : Contains 
the address of the CCW that is 
associated with this CCB. This 
address is placed in the CCB by the 
problem program. 



7. Byte 12 : X'SO'-CCB being used by ERP. 
X* 40' -channel appendage routine for a 
teleprocessing device. X' 20' -sense 
information desired. X' 10 '-message 
writer use. X 1 01' -seek separation 
option specified. 

8. CCW Address in CSW (bytes 13-15) : 
Contains the CCW address from the CSW. 
This address is stored by PIOCS before 
control is returned to the problem 
program. A CCB that has been queued, 
by PIOCS, to service a problem program 
I/O request cannot be used for a 
second problem program I/O request 
until the first request has been 
completed. 

Note : Bytes 13-15 contain the address 
of the channel appendage routine when 
bit X'40' is set in byte 12. 

9. Optional-Sense CCW (bytes 16-23) : 
Bytes 16-23 are appended to the CCB by 
the CCB macro expansion when the user 
desires sense information to be 
returned on unrecoverable I/O errors. 
The macro expansion also turns on bit 
2 (X"20') in byte 12 and bit 7 (X'Ol') 
in byte 2 of the CCB. User handles 
all error or exceptional conditions 
except program check, protection 
check, channel control check, and 
interface control check. 
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Bytes 

Used For - 



Count 



Transmission 
Information 



CSW Status Bits 



Residual Count 



Transmitting i 

Information 
Between Physical 
IOCS and Problem 
Program | 



(Note 1) 
Byte 4 



Symbolic Unit 
Address 



Not Used 

Must Contain 

X'OO 1 

8 



Byte 5" 



BIT DESIGNATION 

32 Attention 

33 Status modifier 

34 Control unit end 

35 Busy 

36 Channel end 

37 Device end 

38 Unit check 

39 Unit exception 



BIT DESIGNATION 

40 Program -controlled 
interruption 

41 Incorrect length 

42 Program check 

43 Protection check 

44 Channel data check 

45 Channel control check 

46 Interface control check 

47 Chaining check 



Hexadecimal i 

Representation ' 
""-H of SYSnnn J 

SYSRDR =0000 
SYSIPT =0001 ' 
SYSPCH =0002| 
SYSLST =0003 
SYSLOG=0004 
SYSLNK =0005 
SYSRES =0006 
SYSSLB =0007" 
SYSRLB =0008 
SYSUSE =0009i 
SYS000 =0100| 
SYS001 =0101 
etc. 



CCW Address 



11 



Reserved for 
Physical IOCS 

12 



CCW Address 
in CSW 



13 



Optional 
Sense CCW 



15 16 



23" 



Not Used 



Address of CCW 
Associated with 
This CCB 



XW-CCB being 
used by ERP 

X'40' -Channel 
Appendage 
Routine Present 
for Teleprocessing 
Device 

X'20'- Sense 

Information 

Desired 

X' 1 1 - Message 
Writer 

X'OT-Seek 
Separation 



Address of CCW 
in the CSW 
Stored at Channel 
End, or Address 
of the Channel 
Appendage 
Routine for 
Teleprocessing 
Devices 



8 Bytes 
Appended 
to the CCB 
when Sense 
Information 
is Desired 





^,-- - ' 






Byt 


e 2 






"""■"-—- — _^ 
















Return Tape Read 


















Data Check, 2540 






Traffic Bit 


End -of- File 


Unrecoverable 


Accept 


Return DASD 


Post at 


or 2520 Equipment 


User Error 




(Wait) 


(/* or /&) 


I/O Error 


Unrecoverable 
I/O Error 


Data Checks 
or 2671 errors 
to the User 


Device End 


Check, or DASD 
Data Checks on 
Read or Verify 


Routine 




(Note 5) 


(Note 2) 








(Note 5) 


Command 
(Note 3) 




p. 





1, 


2 


3 


4 


5 


6 


7 




Set On By — *- 


PIOCS 


PIOCS 


PIOCS 


Pr. Pr. 


Pr. Pr. 


Pr. Pr. 


Pr. Pr. 


Pr. Pr. 



Byte 3 



Bits 
Set 

PIOCS 
Pr. Pr. 

Note 1 . 

Note 2. 

Note 3. 

Note 4. 

Note 5. 





DASD- 


DASD- 


DASD- 


2540,2520- 


Non - Recovery 


No - Record - 


Carriage 


Command 




Data Check in 


Track Overrun 


End of Cylinder 


Equipment Check 


Questionable 


Found Condition 


Channel 9 


Chaining 




Count Area 


MICR- 


MICR- 


Tape- 


Condition : 


(Retry on 231 1 or 


Overflow or 


Retry from 




MICR- 


Intervention 


(Note 4) 


Read Data Check 


Card- 


2314) 


Verify Error 


the next CCW 




SCU Not 


Required 


1285/1287- 


DASD- 


Unusual 




for DASD 


to be executed 




Operational 


1285/1287- 


Hopper Empty 


Any Data Check 


Command 










1285/1287- 


Keyboard 


in Document 


1285/1287- 


Sequence 










Data Check in 


Correction in 


Mode 


Equipment Check 


DASD- 










Journal Tape 


Journal Tape 






No Record Found 










Mode 


Mode 






1285/1287- 
Document jam or 




1287 Document 
Mode - Late 











2 


3 


Torn Tape 
4 


5 


Stacker Select 
6 


7 






On By-*- 


PIOCS 


PIOCS 


PIOCS 


PIOCS 


PIOCS 


Pr. Pr. 


PIOCS 


Pr. Pr. 



= Physical IOCS 
= Problem Program 

Bytes 4 and 5 contain the status bytes of the Channel Status Word (Bits 32-47). If byte 2, bit 5 is on and device end results as a separate interrupt, device end will be ORed into CCB byte 4. 

Indicates /* or /& statement encountered on SYSRDR or SYSIPT. Byte 4, bit 7 (unit exception) is also on. 

DASD data checks on count not returned . 

For 1412/1419, Disengage. Forl419D, I/O Error in external interrupt routine (channel data check or busout check). 

The traffic bit (Byte 2, bit 0) is normally set on at channel end to signify that the I/O was completed. If byte 2, bit 5 has been set on, the traffic bit and bits 2 and 6 in byte 3 will be set on 
at device end. Also see Note 1 . 



Byte 
Bit 

Name 
Field 






1 


2 


3 


4 


5 





1 


2 


3 


4 


5 


6 


7 


8 


9 


10 11 


12 


13 14 151 


16 17 18 19 20 21 22 23 


24 25 26 27 28 29 30 31 


32 33 34 35 36 


37 38 39 


40 41 42 43 44 45 46 47 


Command Code 




Data Addres 




Flags 





( Ignored) 


* 




A 


B 


C 


D 


E 



FIELD 


NAME 


DESCRIPTION 


A 


Command Code 


Bits 0-7: 

Specify the operction to be performed. 
(See Note on Part 2 of this Figure) 


B 


Data Address 


Bits 8-31: 

Specify the location of a byte in main 
storage. It is the first location referred 
to in the area designated by the CCW. 


C 


Flags 


Bits 32-36: 

Specify the flag bits used in conjunction 
with the CCW. 

Bit 32- 

Chain-Data (CD) causes the address 
portion of the next CCW to be used with 
the current CCW. tNote 

Bit 33- 

Chain-Command (CC) causes the 
command code and data address of the 
next CCW to be used. The chain data 
flag (bit 32) takes precedence over this 
flag. 

Bit 34- 

Suppress Length Indication (SLI) causes 
a possible incorrect length indication to 
be suppressed. The chain data flag 
(bit 32) takes precedence over this flag. 

Bit 35- 

Skip (SKIP) suppresses the transfer of 
information to main storage. 

Bit 36- 

Program Control Interruption (PCI) causes 
the channel to generate an interrupt 
when the CCW is fetched. 


D 


Reserved 


Bits 37-39: 

(Must contain zeros)* 


E 


Ignored 


Bits 40-47: 
Not checked 


F 


Count 


Bits 48-63: 

Specify the number of bytes in the 
operation 



6 


7 


48 49 50 51 52 53 54 55 


56 57 58 59 60 61 62 63 




Count 








F 



*The transfer in channel command (TIC) is the one exception to this statement, 
t Note: Chain data cannot be done on 360/30 if a high- 
speed device is being used. Example- 231 1,2400 mod IH. 



Figure 28. Channel Command Word (CCW) (Part 1 of 2) 
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Note, 



CHANNEL COMMAND CODES 






Command Code assignments are listed in 


the following table. The symbol 


X indicates that the bit position is 


ignored; 


M identifies a modifier bit. 


CODE 




COMMAND 


MMMM 10 




Sense 


XXXX1000 




Transfer in channel 


MMMM 110 




Read backward 


MMMM MM0 1 




Write 


MMMM MM1 




Read 


MMMM MM1 1 




Control 



DASD CHANNEL COMMAND CODES (See A26-5988) 









Multiple Track 






1 








(M-T) Off 






M-T On 


8- Bit Code 










Command for CCW 


Count 


0123 4567 


Hex Dec 


Hex 


Dec 


Control 


No Op 


X 


0000 0011 


03 


03 








Release* 


X 


0001 0111 


17 


23 








Restore 


X 


0001 0011 


13 


19 








Seek 


6 


0000 0111 


07 


07 








Seek Cylinder 


6 


0000 1011 


0B 


11 








Seek Head 


6 


0001 1011 


IB 


27 








Sense I/O 


4 


0000 0100 


04 


04 








Set File Mask 


1 


0001 1111 


IF 


31 








Space Record 


X 


0000 1111 


OF 


15 








Transfer in Channel 


X 


XXXX1000 


X8 








Search t 


Home Address EQ 


4 (usually) 


0011 1001 


39 


57 


B9 


185 




Identifier EQ 


5 (usually) 


0011 0001 


31 


49 


Bl 


177 




Identifier HI 


5 (usually) 


0101 0001 


51 


81 


Dl 


209 




Identifier EQ or HI 


5 (usually) 


0111 0001 


71 


113 


Fl 


241 




Key EQ 


1 to 255 


0010 1001 


29 


41 


A9 


169 




Key HI 


1 to 255 


0100 1001 


49 


73 


C9 


201 




Key EQ or HI 


1 to 255 


0110 1001 


69 


105 


E9 


233 




Key & Data EQ* J 


Note 1 


0010 1101 


2D 


45 


AD 


173 




Key & Data HI* ' 


0100 1101 


4D 


77 


CD 


205 




Key & Data EQ or HI* ) 




0110 1101 


6D 109 


ED 


237 


Read t 


Home Address 


5 


0001 1010 


1A 


26 


9A 


154 




Count 


8 


0001 0010 


12 


18 


92 


146 




Record R0 J 
Data ' 


Number 


0001 0110 


16 


22 


96 


150 




of bytes 


0000 0110 


06 


06 


86 


134 




Key & Data I 
Count, Key & Data ' 


trans- 


0000 1110 


0E 


14 


8E 


142 




ferred 


0001 1110 


IE 


30 


9E 


158 


Write 


Home Address 
Record R0 


5 (usually) 
8+KL+DL of 


0001 1001 


19 


25 










R0 


0001 0101 


15 


21 








Count, Key & Data 


8+KL+DL 


0001 1101 


ID 


29 








Special Count, Key Si Data* 


8-rKL+DL 


0000 0001 


01 


01 








Data 


DL 


0000 0101 


05 


05 








Key & Data 


KL & DL 


0000 1101 


0D 


13 






* Special Featu 


re Note 1. Includes mask bytes in searc 


h argument. 












t M-T On = M 


T Off except, during Search and Read bit 


- 1 in M-T On. 












X = not signific 


ant; KL - Key Length DL Data length; E 


Q Equal; HI High 













1403 or 
1443 



Carriage 
Control 



2400 
Tape* 



Command for CCW 



Read Inquiry BCD 

Read Reader 2 BCD 

Write BCD, Auto Carriage Return 

Write BCD, No Auto Carriage Return 

No Op 

Sense 

Alarm 



Read, Feed, Select Stacker SS Type AA 

Read Type AB 

Read, Feed (1400 compatibility mode only) 
Feed, Select Stacker SS Type BA 

PFR Punch, Feed, Select Stacker SS Type BA 
Punch, Feed, Select Stacker SS Type BB 



SS Stacker 



Rl 
R2 
RP3 



D 


Data Mode 




1 


EBCDIC 
Column Binary 





MMMM 


Read 








X 




Read 


1 





X 




Read 





1 


X 




Read 


1 


1 


X 




Write 








X 




Write 


1 





X 




Write 





1 


X 




Write 


1 


1 


X 




Control 


1 









Control 





1 






Control 


1 


1 






Sense 






1 


1 


Sense 









1 



Eject and SSI 

Eject and SSI 

Eject and SS2 

Eject and SS2 

SSI 

Eject and SSI 

SS2 

Eject and SS2 

Eject and SSI 

SS2 

Eject and SS2 

Punch diagnostic 

Read diagnostic 

X = means EBCDIC mode 

X = 1 means Column Binary Mode 



Read 

Write 

Control 

No Op 

Sense 



Write, No Space 

Write, Space 1 After Print 

Write, Space 2 After Print 

Write, Space 3 After Print 

Write, Skip To Channel N Aiter Print 

Diagnostic Read 

Test I/O 

Sense 



Space 1 Line Immediately 
Space 2 Line Immediately 
Space 3 Line Immediately 
Skip To Channel N Immediately 
No Op 



c 


H 


A 


N 


Channel 




C 


H 


A 


N 


Channel 











1 


1 





1 


1 


1 


7 








1 





2 




1 











8 








1 


1 


3 




1 








1 


9 





1 








4 




1 





1 





10 





1 





1 


5 




1 





1 


1 


11 





1 


1 





6 




1 


1 








12 



Transfer in Channel 

Sense 

Read Backward** 

Write 

Read 

Control 

Mode Set 

atk op. lorces 800 BPI and odd parity; alio, it < 
aik hut does not reset 7 track. Load/Sys Reset 
atk to HUO BPI, odd parity, data converter on, I 



12 3 4 5 6 7 



0A 
02 
09 
01 
03 
04 
0B I 



01 
09 
11 
19 

02 
00 
04 



0B 
13 
IB 



08 
04 
0C 
01 
02 





Control 






_CJ 


c 


c 


Codes 


Hex 


Dec 











REW 


7 


7 








1 


RUN 


OF 


15 





1 





ERG 


17 


23 





1 


1 


WTM 


IF 


31 


1 








BSR 


27 


39 


1 





1 


BSF 


2F 


47 


1 


1 





FSR 


37 


55 


1 


1 


1 


FSF 


3F 


63 





7 Track 


D 


D 


Density 








200 





1 


556 


1 





800 


1 


1 


800 



§■1 



I M M (Mode Modifiers) 



♦Overrides Data 
Converter On 



Figure 28. Channel Command Word (CCW) (Part 2 of 2) 
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4 

to 



Byte 
Bit 

Name 
Field 






1 


2 


3 


4 


5 


6 


7 





1 


2 


3 


4 


5 


6 


7 


8 


9 


10 11 


12 13 14 15 


16 17 18 19 20 21 22 23 


24 25 26 27 28 29 30 31 


32 33 


34 35 


36 37 38 39 


40 41 42 43 44 45 46 47 


48 49 50 51 52 53 54 55 


56 57 58 59 60 61 62 63 


System Mask 


Key 


CPU Mask 


Interruption Code 


ILC 


CC 


Prog . Mask 


Instruction Address 


A 


B 


C 


D 


E 


F 


G 


H 



O 
0J 



H 

o 

o 
o 

r+ 

o 



CO 

»-< 
w 
<+ 

CD 



in 



8 

H 

&> 

3 

CO. 

ft 
P) 
ft 

0) 

o 



CO 

2: 



NOTE 



FIELD 


NAME 


DESCRIPTION 


A 


System Mask* 


Bits 0-7: 

Are associated with the I/O channels 
and external signals as follows: 

Bit Interruption source 

Multiplexor channel 

1 Selector channel 1 

2 Selector channel 2 

3 Selector channel 3 

4 Selector channel 4 

5 Selector channel 5 

6 Selector channel 6 
i Timer 

7 \ Interrupt key 

External signal 

*A one-bit equals ON and permits 
an interrupt. 


B 


Protection Key 


Bits 8-11: 

Form the CPU protection key. The key 
is matched with a storage key whenever 
a result is stored. If the protection 
feature is not implemented, bits 8-1 1 

. must be zero when loaded and are zero 
when stored. 


C 


CPU Mask 
(AMWP) 


Bits 12-15: 

Form the CPU mask as follows: 

Bit Meaning 
(A\ 1? T^ ~ 9 eneraTe extended ASCII code 
K ' [if - generate EBCDIC 

. . .-Mf 1 - permits machine check interrupt 
[if - prohibits machine check interrupt 

fw » , 4 []f 1 - the CPU is in the wait state 
K } [if - the CPU is in the running state 

,p.. , [If 1 - the CPU is in the problem mode 

[if - the CPU is in the supervisor mode 


D 


Interruption 
Code 


Bits 16-31: 

Identify the cause of the interruption. 
(See NOTE for specific interruption 
codesT] 



FIELD 


NAME 


DESCRIPTION 


E 


Instruction 
Length Code 


Bits 32 and 33: 

Indicate the length, in halfwords, of 
the instruction last executed, as 
follows: 

00 (0) Not available"(unpredictable) 

01 (1) 1 halfword 
10(2) 2 halfwords 
11 (3) 3 halfwords 


F 


Condition Code 


Bits 34 and 35: 

Indicate the last condition code setting. 
All instructions do not set a condition 
code. 

00 Condition code 

01 Condition code 1 
10 Condition code 2 
1 1 Condition code 3 


G 


Program 
Mask** 


Bits 36-39: 

Form the program mask for the following 
program exceptions. 

Bit Exception 

36 Fixed-point overflow 

37 Decimal overflow 

38 Exponent underflow 

39 Significance 

**A one-bit equals ON and permits a 
program check interrupt for a specific 
exception. 


H 


Instruction 
Address 


Bits 40-63: 

Indicate the address of the leftmost byte 
of the next instruction to be executed. 



SOURCE 


INTERRUPTION CODE 


MASK ILC 


EXE- 


IDENTIFICATION 


PSW BITS 16-31 


BITS 


SET 


CUTION 


Input/Output ( old PSW 56, new PSW 


120, 


priority 


4) 


Multiplexor channel 


00000000 aaaaaaaa 





X 


complete 


Selector channel 1 


00000001 aaaaaaaa 


1 


x 


complete 


Selector channel 2 


00000010 aaaaaaaa 


o 


x 


complete 


Selector channel 3 


00000011 aaaaaaaa 


3 


X 


complete 


Selector channel 4 


00000100 aaaaaaaa 


4 


X 


complete 


Selector channel 5 


00000101 aaaaaaaa 


5 


X 


complete 


Selector channel 6 


000001 10 aaaaaaaa 


6 


X 


complete 


Program (old PSW 40, new PSW 104, priori 


ty2) 




Operation 


00000000 00000001 




1,2,3 


suppress 


Privileged operation 


00000000 00000010 




1,2 


suppress 


Execute 


00000000 00000011 




2 


suppress 


Protection 


00000000 00000100 




0,2,3 


suppress/ 
terminate 


Addressing 


00000000 00000101 




0,1,2,3 


suppress/ 
terminate 


Specification 


00000000 00000110 




1,2,3 


suppress 


Data 


00000000 00000111 




2,3 


terminate 


Fixed-point overflow 


00000000 00001000 


36 


1,2 


complete 


Fixed-point divide 


00000000 00001001 




1,2 


suppress/ 
complete 


Decimal overflow 


00000000 00001010 


37 


3 


complete 


Decimal divide 


00000000 00001011 




3 


suppress 


Exponent overflow 


00000000 00001100 




1,2 


terminate 


Exponent underflow 


00000000 00001101 


38 


1,2 


complete 


Significance 


00000000 00001110 


39 


1,2 


complete 


Floating-point divide 00000000 00001111 




1,2 


suppress 


Supervisor Call ( r 


Id PSW 32, new PSW 96, 


priority 


2) 


Instruction bits 


00000000 rrrrrrrr 




1 


complete 


External (old PSW 24, new PSW 88, priority 3) 




External signal 1 


00000000 xxxxxxxl 


7 


X 


complete 


External signal 2 


00000000 xxxwxlx 


7 


X 


complete 


External signal 3 


00000000 xxxxxl xx 


7 


X 


complete 


External signal 4 


00000000 xxxxlxxx 


7 


X 


complete 


External signal 5 


00000000 xxx lxxxx 


7 


X 


complete 


External signal 6 


00000000 xx lxxxxx 


7 


X 


complete 


Interrupt key 


00000000 xlxxxxxx 


7 


X 


complete 


Timer 


00000000 lxxxxxxx 


7 


X 


complete 


Machine Check (old PSW 48, new PSW 


112 


, priority 1 ) 


Machine malfunction 00000000 00000000 


13 


X 


terminate 


a Device address bits 








r Bits of R, an 


d R L . field of supervisor call 




x Unpredictable 








Mask bits 0-7 refer to the system mask. 






Mask bits 36 - 39 refer to the program 


mask. 





Byte 
Bit 

Name 
Field 






1 


2 


3 





1 


2 


3 


4 


5 


6 


7 


8 


9 


1011 


12 13 1415 


16 17 18 1920 21 2223 


2425 26 27 28 2930 31 


Key 







Command Address 








A 


B 


C 



FIELD 


NAME 


DESCRIPTION 


A 


Protection Key 


Bits 0-3 form the storage protection key for all commands associated with START I/O. 
This key is matched with a storage key whenever data is placed in storage. 
(Must contain zeros whenever storage protection is not implemented.) 


B 


Reserved 


Bits 4-7 (Must contain zeros.) 


C 


Command Address 


Bits 8- 31 Designates the location of the first CCW in main storage associated with the START I/O. 
(The three low order bits, 29- 31 , must be zeros, specifying a CCW address on integral 
boundaries of a double word.) 



Figure 30, Channel Address Word (CAW) 



5 6 DOS Supervisor and Physical and Logical Transients 






Byte 
Bit 

Name 
Field 






1 


2 


3 


4 


5 


6 


7 





1 


2 


3 


4 


5 


6 


7 


8 


9 


10 1112 13 14 15 


16 17 18 19 20 21 22 23 


24 25 26 27 28 29 30 31 


32 33 34 35 36 37 38 39 


40 41 42 43 44 45 46 47 


48 49 50 5152 53 54 55 


56 57 58 59 60 61 62 63 


Key 







Command Address 






Status 






Count 




* 












A 


B 


C 


D 


E 



en. 

O 



H 

\ 
O 

o 
o 

r+ 
H 
O 



CO 

><: 

CD 
3 



O 
0J 



CO 
CO 



o 

CO 

2] 



FIELD 



NAME 



Protection Key 
Reserved 

Command Address 
Status 



Count 



DESCRIPTION 



Bits 0-3 form the storage protection key used in the chain of operations at the subchannel. 

( Must be zeros . ) 

Bits 8-31 form an address that is eight higher than the address of the last CCW used. * 

Bits 32-47 identify the conditions in the device and channel that caused the CSW to be stored. 

Bits 32-39 are obtained over the I/O Interface and indicate conditions detected by the device or the control unit. 

Bits 40-47 are provided by the channel and indicate conditions associated with the subchannel. 

Each status bit represents one type of condition as follows : 



DEVICE OR CONTROL UNIT 


Bit Position 


Designated Condition 


32 


Attention 


33 


Status Modifier 


34 


Control Unit End 


35 


Busy 


36 


Channel End 


37 


Device End 


38 


Unit Check 


39 


Unit Exception 



CHANNEL/SUBCHANNEL 


Bit Position 


Designated Condition 


40 


Program -Control led Interrupt 


41 


Incorrect Length 


42 


Program Check 


43 


Protection Check 


44 


Channel Data Check 


45 


Channel Control Check 


46 


Interface Control Check 


47 


Chaining Check 



Bits 48-63 form the residual count for the last CCW used . 



* This address is not 8 higher on a command reject. 






Status Bit 


Status Condition 


Action 


45 
• 46 


Channel control check 
Interface control check 


Enter wait state with all 
interrupts masked off. 


38 
42 

43 
44 
47 


Unit check 
Program check 
Protection check 
Channel data check 
Channel chaining check 


Exit to unit check on 
Chart 06 for error 
recovery. 


32 


Attention 


For attention from a 1052, 
include attention task in 
task selection and take 
general exit (EXT03). 
Attention interrupts are 
ignored if: 
1 . System reallocation or 

condense is in 

operation . 
2. Attention is not from 

a 1052. 


35 


Device busy 


Skip channel end test. 


36 


Channel end 


See Chart CL for actions 
taken. Attempts to re- 
schedule the channel (No 
attempt is made for the 
multiplex channel unless 
this is a burst -multiplex 
device). 


37 

34 


Device end 
Control unit end 


See Chart CK for actions 
taken. 

Attempts to reschedule the 
channel (If the multiplex 
channel is being re - 
scheduled . If the device 
on the multiplex channel 
is a burst -multiplex de- 
vice, both channel and 
device are rescheduled). 


33 and 35 


Control unit busy 


Reset device to available. 
The status is not tested 
unless neither channel 
end, device end, nor 
control unit end has 
occurred. 



Figure 32. CSW Testing in I/O Interrupt 
Processor 
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Displacement 


Length 








from ERBLOC 


in Bytes 


Label 


Description 




in Decimal 










-2 


2 


ERRQ 


Address of first error queue entry in table (ERQUE). 







2 


ERBLOC 


Address of retry ERP exit (EXRTY). 




2 


2 




Address of ignore ERP exit (EXIGN). 




4 


2 




Address of DISWHY (retry ) ERP exit (EXWHY). 




6 


2 


YCHANQ 


Address of the channel queue table (CHANQ). 




8 


2 




Address of cancel ERP exit (EXCAN). 




10 


2 


FULQUE 


Address of last entry in error queue table. 




12 


2 


ERQPTR 


Address of last entry queued to table (initially ERQUE -22). 




14 


2 


RIK 


Requestor I/O key (RIK). 




16 


2 




Address of cancel attention exit (ATNCNL). 




18 


2 




Address of attention dequeue exit (PUBDEQ). 




20 


2 


ATNEXT 


Address of attention exit (EXT02). 




22 


8 


SVC3NM 


A -transient phase name field ($$ANERRb^). 




30 


5x 22 


ERQUE 


Five 22 bytes error queue entries. (See below) 








Each Error Queue Entry (22 bytes ) 






Di 


splacement 






Within PUB 




CSW 




Table Flag Message Sense Data Disk Seek Address 




(8 bytes) 




*-8 — - 


(2 bytes) Byte Number (6 bytes) (4 bytes) 
► 10 ► 11 ► 12 ► 18 ► 


-22 








Bit 


Designation 









Unused 








1 


Intervention required 












2 


Passback * 












3 


Allow ignore 












4 


DASD device in error 












5 


Allow retry 












6 


No CCB available 








* Puto 




7 


Unused 






n by devic 


e ERP when user wants control 


returned on error. 



Figure 33. Error Recovery Block (ERBLOC) 
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PHYSICAL TRANSIENT PROGRAMS (CHARTS 07-09) 



Physical transient programs are commonly 
referred to as A-transients. These 
infrequently- used sections of the 
supervisor reside in the core image library 
and are fetched by the resident supervisor 
(SVC 3) only when needed. Each program 
phase name begins with the prefix 
characters $$A. These phases are loaded 
singly into the A-transient area. See 
Figure 5 for Supervisor storage 
organization. The A-transients functions 
within DOS are: 



Caution : Although the disk error recovery 
procedure is not an A-transient , the sense 
data and action-taken information is 
included here to consolidate the sense data 
in this section of the manual. The disk 
ERP is part of the supervisor nucleus. See 
Chart 06. 



Provide device-dependent Error 
Recovery Procedures (ERP) . 



Issue messages associated with ERP 
operations, Message Writer. 



Process 1052 attention requests. 
Physical Attention Routines. 



MESSAGE WRITER 



The message writer is a group of seven 
A-transients that build error messages, 
issue the message, analyze operator 
responses, and select the proper exit. See 
Figure 36 for a listing of the error 
messages. 



Figure 34 illustrates each A-transient in 
terms of phase name, function, and program 
level chart identification. 



PHYSICAL ATTENTION ROUTINES 



ERP' 



To understand the error recovery procedures 
detailed in the flowcharts, the reader 
should be familiar with the sense 
information that corresponds to the 
individual I/O devices supported by this 
system. 



Figure 35 illustrates the unit record 
equipment supported by ERP and also 
indicates the sense bits associated with 
each device. This figure is followed by ERP 
descriptions with their corresponding 
messages. 



The physical attention routines are three 
A-transients fetched by the supervisor when 
an attention interrupt has been determined. 
The attention key signals operator 
communication with the system. If the 
operator chooses to initiate a foreground 
program or to use the nonresident attention 
routine facilities (other B-transients) the 
physical attention transients get the 
$$BATTNA root phase. If the operator is 
satisfying an operator intervention 
condition or canceling the job, the 
physical attention transients process the 
attention interrupt. When the physical 
attention routines are processing the 
interrupt, they perform parameter passing 
by using a common area called the 
interphase communications area . Figure 37 
illustrates this area and its relationship 
to the entire A-transient area. 
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Phase Name 


Function 


Program 
Level 
Chart ID 


$$ANERRA 




07 


$$ANERRB 


Error Recovery Monitor 


07 


$$ANERRC 




07 


$$ANERRD 




07 


$$ANERRE 




07 


$$ANERRL 


Tape (2400) Error Recovery 


07 


$$ANERRF 




07 


$$ANERRG 




07 


$$ANERRH 




07 


$$ANERRI 


Data Cell (2321) Error Recovery 


07 


$$ANERRJ 




07 


$$ANERRK 




07 


$$ANERRM 




08 


$$ANERRN 




08 


$$ANERRO 




08 


$$ANERRP 


Message Writer 


08 


$$ANERRQ 




08 


$$ANERRR 




08 


$$ANERRS 




08 


$$ANERRT 


1412 and 1419 (Single Address Adapter) 
Error Recovery 


08 


$$ANERRU 
$$ANERRV 


Unit Record Error Recovery 


07 
07 


$$ANERRW 


1419 (Dual Address Adapter) Error 
Recovery 


08 


$$ANERRX 


Paper Tape Error Recovery 


07 


$$ANERR9 


Optical Reader Error Recovery 


07 


$$ANERRZ 




09 


$$ANERRY 


Physical Attention 


09 


$$ANERRO 




09 


$$ANERR1 


Modify Communications Region 


None 
(See 
Chart MW) 



Figure 34. A-Transient Programs 
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Sense Bytes 

— T~ 

Byte Bit 



Byte 1 Bit 



DASD 


Tapes 


Reader 
Punch 


Printers 


Printer 
Keyboard 


Paper Tape 
Reader 


Optical 
Reader 


MICR 


2311, 2314, 
2321 


2400T7 
2400T9 


1442, 2501, 
2520, 2540 


1403, 1404, 
1443 


1052 


2671 


1285 
1287 


1412 
1419 


Command 












■*- 


© 


Reject 














Intervention 
















Required ' 
















Busout Check|- 






























Equipment , 
















Check ' 
























N/A 


Data Chprk L. 


























© 


N /A L- «. 




Overrun 


N/A 












Track 

Condition 

Check 


N/A 


© 


N 'A L 






Non- 
Recovery 


N/A 


i \j t \ i 






Seek Check 


Data 

Converter 

Check 


N/A 


Channel .9 
Overflow 


N/A 


N/A 


Keyboard 
Correction 


Batch 

Numbering 
Switch Off 


Data Check 
in Count 


N/A | 










© 


N/A 












Track Overrun 


N 7 A In 




























End-of- 
Cylinder 


M /A 1 














1 4, /\ J— 














N/A L 
















n / n p 
















No Record 
Found 


At Load 
Point 


N 1 /A 1 








Invalid 
Font 


N/A 


N / A | 








File 
Protected 


N/A I 




























Missing 
Address 
Marker 


M 7 A 1 














1 «!/ /\ |— 














N/A 


Tape Not 
Compatible 


hi 'A 1 












1 ^ A |— 













N/A = Not Applicable 

(V) Command Reject or Disengage Failure. 

(D UCB Parity Check (1403 only). 

\Zj Unusual Command Sequence (2540 read only). 

\Aj Applies for 1287 to indicate tape (set to 1) or document (set to 0) mode. 

(5) Applies for 1287 in the document mode only. 

Figure 35. Sense Information for Devices Supported by Device Error Recovery 
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MESSAGE 


10-CHARACTER 


ERROR 


CODE 


MESSAGE 




(IN HEX) 






08 


C'INTERV REQ f 


OPERATOR INTERVENTION REQUIRED 


09 


C'BUSOUT CHK 1 


BUS OUT CHECK 


10 


C'EQUIP CHK ! 


EQUIPMENT CHECK 


11 


C'DATA CHECK 1 


DATA CHECK 


12 


C'VERIFY CHK 1 


VERIFY CHECK 


13 


C'ADDR MRKER' 


MISSING ADDRESS MARKER 


14 


C'OVERRUN ' 


OVERRUN 


15 


C'SEEK CHECK 1 


SEEK CHECK 


16 


C'DTA CHK CT» 


DATA CHECK IN COUNT FIELD 


17 


C'FILE PROT ' 


VIOLATED FILE PROTECTION 


18 


C'COMM REJCT 1 


COMMAND REJECT 


19 


C'UNDETR ERR 1 


UNDETERMINED ERROR 


20 


C'ERR ON REC 


ERROR DURING RECOVERY ATTEMPT 


21 


C'NRF-MADDMK' 


NO RECORD FOUND £ MISSING ADDRESS MARKER 


22 


C'BALST CELL 1 


BALLAST CELL ACCESSED ON 2321 


23 


C'BLNK STRIP 1 


ACCESSED A PREVIOUSLY UNUSED STRIP 


24 


C'PROG CHECK 1 


I/O PROGRAM CHECK 


25 


C'PROT CHECK 1 


STORAGE PROTECTION CHECK 


26 


C f INVAL SEEK 1 


SEEK ADDRESS NOT VALID 


27 


C f UNKNWN DEV 


DEVICE IN ERROR NOT RECOGNIZED 


28 


C'CHAN DTCHK' 


CHANNEL DATA CHECK 


29 


C'BK INTO LP 1 


BACKSPACE INTO LOADPOINT 


30 


C'CONVRT CHK 1 


TAPE CONVERT CHECK 


31 


C'DVC NOT OP 1 


DEVICE NOT OPERATIONAL 


32 


C'NON COMPAT 1 


NON-COMPATIBLE TAPE ON DRIVE 


33 


C'UCB PARITY 1 


PARITY ERROR IN UNIVERSAL CHARACTER BUFFER 


34 


C«BCH NM OFF 1 


BATCH NUMERING SWITCH OFF ON MICR 


35 


C'NON RECOV f 


NON-RECOVERY ON 1285 


36 


C'NO REC FND 1 


NO RECORD FOUND 


37 


/ C f INVLD FONT 1 
\ C'DISEN FAIL' 


INVALID FONT ON 1287 IN DOCUMENT MODE 


DISENGAGE FAILURE ON MICR 



Figure 36, Physical Transients Error Messages 
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504- Byte 


Physical T 


ransien 


t Area 
















B 


C 


D 


E 


F 


G 


H 










J 



The labels which are associated with these bytes are 
as designated below. Byte A is the first byte of the 
Physical Transient Area, Byte J is the last. Bytes B through 
H constitute the interphase communications area. When phases 
Z, Y and are fetched or refetched, these bytes (B through H) 
are not overlaid and remain with information for the other phases. 



Byte 
A 



Label 

IJBPAR1 
IJBPAR2 
IJBPAR3 

PARLTK 
PARCOMM-1 

IJBPAR1+493 

PARCOMM 

IJBPAR2+493 

PARCOMM2 

PARCOMMC 

PARCOMMD 

PARCOMMI 
PARCOMMJ 
PARCOMMC+3 
PARCOMMD+3 



Phase 

Z 
Y 




Y 

Z 
Y 

Z 
Y 



Note: Bytes C, D and E 
are used to indicate the 
program(s) F1,F2 or BG, to be 
canceled. 

Bytes F, G and H 
indicate the programs 
which use devices which 
require operator intervention, 

Byte B indicates if a 
canceled program has 
fetched a logical transient. 



D,'E, 
G,H 



Addressed by incrementing or decrementing one of these labels. 



Figure 37. Interphase Communication Area 
(For A- Transients $$ANERRZ, Y, 
and 0) 



I/O ERROR RECOVERY PROCEDURES AND SENSE 
DATA 



2400 TAPE ERROR RECOVERY 



CSW Bit 44 — Channel Data Check 

Action : Initial Selection — eight retries 
without repositioning. Read data 
transfer — no retries. Write data 
transfer — eight retries with 
repositioning. After stated number of 
retries, take equipment error exit 
(cancel) . 



Message : 0P28 CHAN DTCHK. 



Byte 0, Bit 2 — Bus Out Check 

Action : If retry count is greater than 
seven (eight retries) , take equipment 
error exit (cancel). If initial 
selection, take retry exit. Otherwise, 
perform repositioning and take retry 
exit. 

Message : 0P09 BUSOUT CHK. 

Byte 0, Bit 3 — Equipment Check 

Action : Take equipment error exit 
(cancel) . 

Message : 0P10 EQUIP CHK. 



Byte 0, Bit 1 — Intervention Required 
Action : Check for Rewind and Unload 
(intervention required at device end) . 
If yes, take continue exit; otherwise, 
take operator intervention exit. 

Message : 0P08 INTERV REQ. 



Byte 0, Bit 5 — Overrun 

Action : Allow eight retries, 
repositioning the tape. After eight 
retries, take equipment error exit 
(cancel) . 

Message : 0P14 OVERRUN. 



Byte 0, Bit 4— -Data Check 
Action : 

1. Read Commands — CCB option. If the 
record length is less than twelve 
and Byte 1, Bit (noise) is off, 
take retry exit. Otherwise, retry 
100 times with repositioning (back 
space/forward space) performing CRC 
correction. Perform tape cleaning 
every eight retries. Tape cleaning 
consists of five backspaces and four 
forward spaces. For a read 
backward, tape cleaning is done by 
five forward spaces and four 
backspaces. Detection of load- point 
causes termination of the 
backspacing sequence. After 100 
retries, take equipment error exit 
(cancel, ignore) . 

2. Write and WTM Commands — Backspace 
erase and retry fifteen times, then 
take equipment error exit (cancel). 
For write commands , if unit 
exception is present in the CSW, 
post it to the CCB (Byte 4, Bit 7). 

3. Erase Gap Commands — After fifteen 
retries, without repositioning, take 
equipment error exit (cancel). 

Message : 0P11 DATA CHECK. 
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Byte 0, Bit 7 — Data Converter Check 
Action: Take equipment error exit 
(cancel) . 

Message : 0P30 CONVRT CHK.. 



Byte 0, Bit 3 — Equipment Check 

Action : One retry, equipment error exit 
(cancel, retry, ignore) • 

Message : 0P10 EQUIP CHK. 



Byte 0, Bit — Command Reject 

Action : Take program check exit. 

Message : 0P18 COMM REJCT. 



Byte 0, Bit 1 — Intervention Required 
Action : Execute audible alarm command 
and take operator intervention exit. 

Message: 0P08 INTERV REQ. 



Byte l r Bit 4 — Load Point ; 

and 
Byte 3, Bit 6 — Backward Status 

Action : Take program check exit. 

Message : 0P29 BK INTO LP (Backward 
Command into Load Point) . 



Byte 1, Bit 7 — Not Compatible 

Action : Issue a rewind and unload 
command to the unit and then take 
operator intervention exit. 

Message : 0P32 NOT COMPAT. 



CSW Bit 47 — Chaining Check 

Action : Allow eight retries, 
repositioning the tape. After eight 
retries, take equipment error exit 
(cancel) . 

Message : 0P14 OVERRUN. 

Notes : If an I/O error occurs during 
tape repositioning (other than 
backspace into load point on tape 
cleaning) , equipment error exit 
(cancel) is taken with the 
message: 0P20 ERR ON REC (Error 
During Recovery) . 

To achieve data check error 
recovery on write tape mark and 
erase gap commands, they must be 
command -chained to a no-op 
because the command code is not 
available for analysis when the 
error occurs (device end) . 



Byte 0, Bit 2 — Bus Out Check 

Action : One retry, equipment error exit 
(cancel, retry, ignore) . 

Message: 0P09 BUSOUT CHK. 



Byte 0, Bit — Command Reject 

Action : Take program check exit. 

Message : 0P18 COMM REJCT. 



140 3-1443 ERROR RECOVERY 



CSW Bit 44— Channel Data Check 

Action : If initial selection, one 
retry — take equipment error exit (initial 
selection: cancel, retry; channel 
end: cancel, retry, ignore). 

Message : 0P28 CHAN DTCHK. 



Byte 0, Bit 3 — Equipment Check 

Action : Take equipment error exit 
(cancel, ignore) . 

Message : 0P10 EQUIP CHK. 



Byte 0, Bit 5 — Code General Storage 

Parity Error (1403 only) 

Action : Take equipment error exit 
(cancel) . UCS buffer must be reloaded. 

Message : 0P33 UCB PARITY. 



Byte 0, Bit 1 — Intervention Required 

Action : Take operator intervention exit. 

Message: 0P08 INTERV REQ. 



1052 ERROR RECOVERY 



CSW Bit 44 — Channel Data Check 

Action: One retry, equipment error exit 



(cancel, retry, ignore). 
Message : 0P28 CHAN DTCHK. 



Byte 0, Bit 2 — Bus Out Check 

Action : If initial selection, one retry; 
otherwise, take equipment error exit. 
(Initial selection: cancel, retry; 
channel end: cancel, retry, ignore) . 

Message: 0P09 BUSOUT CHK. 
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Byte 0, Bit 7 — Channel 9 

Action : Post CGB, take continue exit. 

Note : This test is main storage 
resident. 



Byte 0, Bit — Command Reject 

Action : Take program check exit. 

Message : 0P18 COMM REJCT. 



Byte 0, Bit — Command Reject 

Action : If command code is UCS enable or 
inhibit data check, take continue exit; 
otherwise, take program check exit. This 
procedure allows UCS-oriented programs to 
operate on non-UCS hardware. 

Message : 0P18 COMM REJCT. 

Byte 0, Bit 4— Data Check (1403 Only) 
Action : Take equipment error exit 
(cancel, ignore). 

Message : 0P11 DATA CHECK. 
144 2 ERROR RECOVERY 



CSW Bit 44 — Channel Data Check 

Action : If initial selection, one retry; 
then equipment error exit (cancel, 
retry). If data transfer, take operator 
intervention exit. 

Message : 0P28 CHAN DTCHK. 



Byte 0, Bit 3 — Equipment Check 

Action : Take operator intervention exit. 

Message : 0P10 EQUIP CHK. 



Byte 0, Bit 1 — Intervention Required 

Action : Take operator intervention exit. 

Message : 0P08 INTERV REQ. 



Byte 0, Bit 2 — Bus Out Check 

Action : If initial selection, do one 
retry; then take equipment error exit 
(cancel, retry) . If data transfer, take 
operator intervention exit. 

Message : 0P09 BUSOUT CHK. 



Byte 0, Bit 4 — Data Check 

Action : Take operator intervention exit. 

Message : 0P11 DATA CHECK. 



Byte 0, Bit 5 — Overrun 

Action : Take operator intervention exit. 

Message : 0P14 OVERRUN. 



CSW Bit 47 — Chaining Check 

Action : Take operator intervention exit. 



Message ; 



0P14 OVERRUN. 



2501, 2520, 2540 ERROR RECOVERY 



CSW Bit 44— Channel Data Check 

Action : If initial selection, one retry; 
then equipment error exit (cancel, 
retry) . If read data transfer, take 
operator intervention exit. If punch 
data transfer, one retry; then equipment 
error exit (cancel, retry). 



Message : 0P28 CHAN DTCHK. 



Byte 0, Bit 3 — Equipment Check 
Action : Reader — Take operator 
intervention exit. Punch — CCB option. 
Take equipment error exit (cancel, 
ignore). For 2520, Byte 0, Bit 7 
indicates punch check. 

Message : 0P10 EQUIP CHK. 



Byte 0, Bit 1 — Intervention Required 

Action : Take operator intervention exit. 

Message : OP 08 INTERV REQ. 



Byte 0, Bit 2 — Bus Out Check 

Action : Do one retry; then 'take 
equipment error exit (cancel, retry) . If 
the device is a 2520, do not retry if 
this is not initial selection (cancel, 
retry) . 

Message : 0P09 BUSOUT CHK. 



Byte 0, Bit 4 — Data Check (Cannot occur 
on a 2520 punch) 

Action : Take operator intervention exit. 

Message : 0P11 DATA CHECK. 



Byte 0, Bit 5 — Overrun (Cannot occur on 
2540 or 2520 punch) 

Action : Take operator intervention exit. 

Message : 0P14 OVERRUN. 
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Byte 0, Bit — Command Reject 

Action : Take program check exit. 

Message : 0P18 CO MM REJCT. 



Byte r Bit 6 — Unusual Command Sequence 
(2540 read only) 

Action: Post CCB — take continue exit. 



Byte 0, Bit 4 — Data Check 

Action : Test CCB for ignore option (byte 
2, bit 4) and if on, turn on byte 3, bit 
3 of the CCB and take equipment error 
exit (cancel, ignore, retry). Otherwise, 
take operator intervention exit. 

Message: 0P11 DATA CHECK. 



CSW Bit 47 — Chaining Check (2501, 2520 
read only) 

Action : Take operator intervention exit. 

Message : 0P14 OVERRUN. 



2671 ERROR RECOVERY 



CSW Bit 44 — Channel Data Check 

Action : If initial selection, do one 
retry. Take equipment error exit 
(cancel) . 

Message : 0P28 CHAN DTCHK. 



Byte 0, Bit 3 — Equipment Check 

Action : Test CCB for ignore option (byte 
2, bit 4) and if on, turn on byte 3, bit 
1 of the CCB and take equipment error 
exit (cancel, ignore, retry). Otherwise, 
take operator intervention exit. 

Message : 0P10 EQUIP CHK. 

Note : When an equipment check occurs, 
the operator must reposition the paper 
tape to the beginning of the record in 
error to perform the retry operation. 
The device must not be readied until this 
repositioning has been performed. If the 
ignore option is available to the 
operator, he can exercise this option by 
repositioning the tape to the beginning 
of the next record on the tape and then 
responding ignore on the 1052 keyboard. 
The ignore option is available to the 
operator whenever the user specifies any 
of the DTFPT ERROPT entry options. 



Byte 0, Bit 1 — Intervention Required 

Action : Take operator intervention exit. 

Message : 0P08 INTERV REQ. 



Byte 0, Bit 2 — Bus Out Check 

Action : Do one retry; if error persists, 
take equipment error exit (cancel, 
retry) . 

Message : 0P09 BUSOUT CHK. 



Notes : When a data check occurs, the 
user's CCW is modified by the 
error routine to allow rereading 
of the last character. The data 
address is the last character 
read (character in error) , and 
the byte count is decreased by 
the number of valid characters 
read. If the CCB ignore option 
is chosen and the operator 
responds ignore, the I/O 
operation is dequeued and posted 
with the unrecoverable error bit 
on (CCB byte 2, bit 2) and 2671 
data- check bit on (CCB byte 3, 
bit 3). 



To read the rest of the 
record, the problem program 
(logical IOCS) should add one to 
the CCW data address and subtract 
one from the byte count to adjust 
for not rereading the bad 
character. It should then 
reissue the EXCP. The operator 
must backspace the tape two 
characters for retry (option 
retry or on the A-type message 
when ignore is not allowed) . If 
the operator chooses the ignore 
option (the character in error is 
not to be reread) , he must 
backspace the tape one character 
if the load key was pressed to 
free the tape or if the character 
preceding the character under the 
read head is an EOR 
(End-of-Record) . Otherwise, no 
manual intervention is required 
for the ignore option. The 
ignore option is available to the 
operator whenever the user 
specifies any of the DTFPT ERROPT 
entry options. 



Byte 0, Bit — Command Reject 

Action : Take program check exit. 

Message : 0P18 COMM REJCT. 

Note : A record may not be partly on one 
tape and partly on another. 
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2311-2314 DASD ERROR RECOVERY 



CSW Bit 44— Channel Data Check 

Action ; One retry; then equipment error 
exit (cancel, retry) . 



Message : 0P28 CHAN DTCHK. 



Byte 0, Bit 3 - Equipment Check 

Act ion; Take equipment error exit 



(cancel, retry) • 
Message ; 0P10 EQUIP CHK. 



Byte 0, Bit 4 - Data Check 

Action : CCB options (all data checks, 
data check on read or verify) . If retry 
count is greater than nine, take 
equipment error exit (cancel, retry) ; 
otherwise, take retry exit. After nine 
retries, post data check on count to CCB, 
if present; otherwise, post data check. 
If command code is verify , post verify 
error to CCB. 

Messages : 0P12 VERIFY CHK (Data Check on 

Verify Command) . 

0P11 DATA CHECK (Data Check/not Data 

Check on Count or Verify). 

0P16 DTA CHK CT (Data Check on Count) . 



Byte 1, Bit 4 - No Record Found 

Action: Test for byte 1, bit 6 (Missing 
Address Marker) . If present, execute 
restore command and take retry exit. 
After ten retries, take equipment error 
exit (cancel, retry) . If not present, 
read Home Address and compare to user's 
Seek Address. If equal, post No Record 
Found to the CCB and take continue exit. 
If not equal, treat as a Seek Check. 

Messages : 0P21 NRF - MADDMK (No Record 
Found/Missing Address Marker) . 
0P15 SEEK CHECK (Home Address unequal to 
Seek Address) . 



Note : Home Address is read, and the 
track address is provided for the error 
message. For other errors, the track 
address is obtained from the user seek 
address if error occurs during channel 
program execution. 



Byte 0, Bit 5 — Overrun 

Action : If retry count is greater than 
nine, take equipment error exit (cancel, 
retry); otherwise, take retry exit. 

Message : 0P14 OVERRUN. 



Note : Home Address is read, and the 
track address is provided for the error 
message. For other errors, the track 
address is obtained from the user seek 
address if error occurs during channel 
program execution. 



Byte 1, Bit 6 — Missing Address Markers 
Action : If retry count is greater than 
nine, take equipment error exit (cancel, 
retry) ; otherwise, take retry exit. 

Message : 0P13 ADDR MRKER. 



Byte 0, Bit 7 — Seek Check 

Action : If byte 0, bit (command 
reject) is on, take program check exit. 
Otherwise, execute restore command and 
take retry exit. After ten retries, take 
equipment error exit (cancel, retry). 

Messages : 0P26 INVAL SEEK (Seek 
Check/Command Reject) 
0P15 SEEK CHECK. 



Byte 0, Bit 1 — Intervention Required 

Action : Take operator intervention exit. 



Message ; 0P08 INTERV REQ. 



Note : Home Address is read, and the 
track address is provided for the error 
message. For other errors, the track 
address is obtained from the user seek 
address if error occurs during channel 
program execution. 



Byte 0, Bit - Command Reject 

Action : Check for Byte 1, Bit 5 (File 
Protect) ; in either case, take program 
check exit. 

Messages : 0P18 COMM REJCT. 
0P17 FILE PROT. 



Byte 0, Bit 2 — Bus Out Check 

Action : If retry count is greater than 
nine, take equipment error exit (cancel, 
retry) ; otherwise, take retry exit. 

Message : 0P09 BUSOUT CHK. 
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Byte 0, Bit 6- 
Action: 



-Track Condition Check 



1. Read Home Address and R0 in the 
error recovery routine and move CCHH 
from R0 to Seek command executed 
below. 

2. If alternate track: update seek 
address to the next track address. 
If the track address equals 10 , 
treat it as End of Cylinder; 
otherwise, proceed to step 3. 

3. Set up the channel program: Seek, 
Read Home Address (with skip bit 
on) , TIC to CSW address minus eight. 
Execute this channel program in 
error recovery. At channel end, 
exit to channel scheduler CSW 
processing routine. If DASD file 
protection is present, set the 
appropriate file mask following 
Seek. 



Byte 1, Bit 1 — Track Overrun 

Action : Post track overrun to the CCB 
and take continue exit. 



Byte 1, Bit 2 — End of Cylinder 

Action : Post End of Cylinder to the CCB 
and take continue exit. 



Byte 0, Bit 3 — Equipment Check 

Action : Take equipment error exit 
(cancel, retry). 

Message : 0P10 EQUIP CHK. 



Byte 1, Bit 4 — No Record Found 
Action : 
1. If Byte 1, Bit 6 (missing Address 
Markers) is present, go to step 2. 
Otherwise, go to step 6. 



If retry count is less than 3, issue 
a Restore command and go to step 5. 



If retry count is equal to 3, issue 
a Read Home Address to the first and 
last tracks of the cylinder. If 
neither is successful (unit checks), 
take equipment error exit (cancel, 
retry). Otherwise, go to step 4. 

If retry count is equal to 15, take 
equipment error exit (cancel, 
retry). Otherwise, go to step 5. 

Increment retry count and take retry 
exit. 



Byte 1, Bit 5 — File Protect 

Action : Take program check "exit. 

Message : 0P17 FILE PROT. 



CSW Bit 47 — Chaining Check 

Action : If retry count is greater than 
nine, take equipment error exit (cancel, 
retry); otherwise, take retry exit. 

Message : 0P14 OVERRUN. 

Note : If the error routine gets an error 
while trying to execute a Restore command 
or Read Home Address or R0, equipment error 
exit is taken with retry and cancel options 
with the message: 0P20 ERR ON REC (Error 
During Recovery) . 



2321 DASD ERROR RECOVERY 



6. Issue a Read R0 and compare CCH to 
user's Seek Address. If equal, post 
No Record Found to the CCB and take 
continue exit. Otherwise, go to 
routine for Seek Check (alone) . 

Messages : 0P15 SEEK CHECK (No Record 
Found/RO unequal to Seek Address) . 
0P23, BLNK STRIP (Step 3, cannot read 
Home Address) . 
0P21 NRF ■- MADDMK (Step 4, 15 retries). 



Byte 0, Bit 7 — Seek Check 

Action : If Byte 0, Bit (command 
reject) is present, take program check 
exit. If Byte 1, Bit 6 (missing Address 
Markers) is present, take operator 
intervention exit. Otherwise, issue a 
Seek to BB1111, a Seek to BB2222, and 
take retry exit. After ten retries, take 
equipment error exit (cancel, retry) . 

Messages : 0P26 INVAL SEEK (Seek 

Check/Command Reject) . 

0P22 BALST CELL (Seek Check/Missing 

Address Markers) . 

0P15 SEEK CHECK (Seek Check alone). 



CSW Bit 44 — Channel Data Check 

Action : One retry; then equipment error 
exit (cancel, retry). 

Message : 0P28 CHAN DTCHK. 



Byte 0, Bit 1 — Intervention Required 

Action : Take operator intervention exit. 

Message : 0P08 INTERV REQ. 
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Byte 0, Bit 2 — Bus Out Check 



Action : 
retries, 
( cancel , 



Take retry exit. After 15 
take equipment error exit 
retry) . 



Message : 0P09 BUSOUT CHK. 



Byte 0, Bit — Command Reject 

Action : Check for byte 1, bit 5 (file 
protect); in either case, take program 
check exit. 

Messages : 0P17 FILE PROT (Command 

Reject/File Protect) . 

0P18 COMM REJCT (Command Reject alone). 



Byte 0, Bit 4 — Data Check 
Action : 

1. If retry count is less than eight, 
go to step 5 • 

2. If retry count is equal to 226, take 
equipment error exit (cancel, 
retry) . 

3. If retry count is an even number, 
issue a Seek to X-X-X-4-19 (last 
track of strip) and a Seek to 
X-X-X-0-0 (first track of strip) . 
Perform this operation eight times. 
Then proceed to step 4. 

4. If retry count is any multiple of 32 
(32, 64, 96, . ..), issue a Seek to 
next lower strip. (If this is the 
lowest strip - 00000 - seek the next 
higher strip.) Proceed to step 5. 

5. Increment retry count and take retry 
exit. 

Messages : OP 11 DATA CHECK (Data 
Check/not Data Check on Count or Verify). 
0P12 VERIFY CHK (Data Check on Verify 
Command) . 
0P16 DTA CHK CT (Data Check on Count). 



Byte 0, Bit 6- 
Action: 



-Track Condition Check 



1. Read Home Address and R0 and move 
CCHH from R0 to Seek command 
executed below. 

2. If alternate track: Update Seek 
Address to the next track address. 
If track address equals 20, treat it 
as End of Cylinder; otherwise, 
proceed to step 3. 

3. Set up the channel program: Seek, 
Read Home Address (with skip bit 
on) , TIC to CSW command address 
minus eight (last CCW executed) . 
Execute this channel program in 
error recovery. At channel end, 
exit to channel scheduler CSW 
processing routine. If DASD file 
protection is present, set file mask 
(inhibit long Seeks) following the 
seek. 



Byte 1, Bit 1 — Track Overrun 

Action : Post track overrun to the CCB 
and take continue exit. 



Note : Home Address is read, and the 
track address is provided for the error 
message. For other conditions, the track 
address is obtained from the user's 
initial Seek address if the error occurs 
during channel program execution. 



Byte 0, Bit 5 — Overrun 

Action : Take retry exit. After 15 
retries, take equipment error exit 
(cancel, retry). 



Message : 0P14 OVERRUN. 



Byte 1, Bit 6 — Missing Address Markers 
Action : Perform action indicated under 
Data Check just described. 

Message : 0P13 ADDR MRKER. 

Note : Home Address is read, and the 
track address is provided for the error 
message. For other conditions, the track 
address is obtained from the user's 
initial Seek address if the error occurs 
during channel program execution. 



Byte 1, Bit 2 — End of Cylinder 

Action : Post End of Cylinder to the CCB 
and take continue exit. 



Byte 1, Bit 5 — File Protect 

Action : Take program check exit. 



Message : 0P17 FILE PROT. 



CSW Bit 47--Chaining Check 



Action : 

retries, 

(cancel. 



Take retry exit. After 15 
take equipment error exit 
retry) . 



Message : 0P14 OVERRUN. 



Note : If the 2321 Error Routine gets an 
error while trying to execute a Restore 
command, a Seek command (data- check 
procedure) , or a Read Home Address or a 
Read R0, equipment error exit is taken with 
retry and cancel options with the 
message: 0P20 ERR ON REC (Error During 
Recovery) . 
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1285-1287 ERROR RECOVERY 



CSW Bit 44 — Channel Data Check 

Action: One retry; then take equipment 



error exit (retry, cancel) 
Message : 0P28 CHAN DTCHK. 



Byte 0, Bit 3 — Equipment Check 

Action : Post byte 3 of CCB and then 
continue exit . 

Note : Data Check and Equipment Check, 
which indicate unreadable character and 
unreadable line, respectively, are 
retried by Logical IOCS in an attempt to 
correct the error. 



CSW Bit 47 — Chaining Check 

Action : Four retries; then equipment 
error exit (retry, cancel). 

Message : 0P14 OVERRUN. 



Byte 0, Bit 7 — Keyboard Correction 

Action : Post byte 3, bit 1, of CCB and 
take continue exit. 



Byte 1, Bit 4 — Invalid Font 

Action : Take program check exit. 

Message : 0P37 INVLD FONT. 

Note : Byte 1, bit 4 applies only to the 
1287 in document mode. 



Byte 0, Bit 1 — Intervention Required 
Action : Test for byte 1, bit 6 
(Non-recovery) --if present, post byte 3, 
bit 4 of the CCB. This indicates that 
the error is passed back to the problem 
program. Exit via equipment error. 

Message : 0P35 NON RECOV. If byte 0, bit 
6 is not present, take operator 
intervention exit. 
0P0 8 INTERV REQ. 



Byte 0, Bit 6 — Nonrecovery 

Action: Post byte 3, bit 4, of CCB and 



take continue exit. 



Byte 0, Bit 2— Busout Check 

Action: One retry; then equipment error 



exit (retry, cancel) . 
Message : 0P09 BUSOUT CHK. 



Byte 0, Bit 4 — Data Check 

Action : Post byte 3, bit 0, of CCB and 
take continue exit. 



1412-1419 ERROR RECOVERY 



CSW Bit 44 — Channel Data Check 

Action : Post unrecoverable I/O error to 
CCB byte 2, bit 2. Turn on passback bit 
in error queue entry byte 10, bit 2 for 
return to user for error recovery. 



Message : 0P28 CHAN DTCHK. 



Byte 0, Bit — Command Reject 

Action : Check command code of CCW 
causing interrupt with X'El* for 
'Disengage Failed'. If 'Disengage 
Failed' , post intervention required to 
CCB byte 3, bit 1; if not, post 
unrecoverable I/O error to CCB byte 2, 
bit 2. In either case, turn on passback 
in error queue entry of ERBLOC byte 10, 
bit 2, for return to user for error 
recovery. 



Message : 
FAIL. 



0P18 COMM REJCT or 0P37 DISEN 



Note : Data Check and Equipment Check, 
which indicate unreadable character and 
unreadable line, respectively, are 
retried by Logical IOCS in an attempt to 
correct the error. 



Byte 0, Bit 1 — Intervention Required 

Action : Post "Intervention Required" to 
the CCB (byte 3, bit 1) , and take IGNORE 
exit. No message is printed. 



Byte 0, Bit 5 — Overrun 

Action : Four retries; then equipment 
error exit (retry, cancel) . 

Message : 0P14 OVERRUN. 



Byte 0, Bit — Command Reject 

Action : Take program check exit. 



Message : 



0P18 COMM REJCT. 



Message : 0P08 INTERV REQ. 

Note : The problem program should process 
all documents in the input buffer, note 
the Intervention Required and perform any 
print out necessary for operator 
recovery, and issue an Engage-Read to the 
device to continue processing documents. 
If the Intervention Required is due to a 
batch numbering update failure, the 
operator must update the batch number as 
part of manual recovery. 
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Byte 0, Bit 2 — Bus Out Check 

Action : Post unrecoverable I/O error to 
CCB byte 2 , bit 2 f and turn on passback 
bit in error queue entry of ERBLOC Byte 
10, bit 2, for return to user for error 
recovery. 

Message : 0P09 BUSOUT CHK. 



Byte 0, Bit 7--Batch Numbering Switch Off 
Action : Post document buffer byte 0, 

and 1 and insert reject code X'CF' 
Turn off retry and turn on 



bits 

in byte 5. 

ignore bits in ERRFLG of error queue 

entry of ERBLOC. 



Message: OP34 BCH NM OFF, 



Byte 0, Bit 3 — Should not occur 

Action : Post Unrecoverable I/O error to 
the CCB and provide informational message 
to the operator. 

Message : 0P19 UNDETR ERR 



Note : CSW Bit 47 and the Sense bits 4, 5, 
6, and 7 will not cause an I/O Interrupt. 
If CSW bit 44 or sense bit 1, 2, or 3 is 
not present for an I/O interrupt, the 
action and message for Sense bit 3 will be 
generated. 
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LOGICAL TRANSIENT PROGRAMS (CHARTS 10-19) 



B-transient programs are infrequently-used 
routines; therefore, they are not resident 
in main storage and are fetched or loaded 
from the core image library when needed. 
The B-transients occupy an area of 1200 
bytes, referred to as the Logical Transient 
Area (LTA) . 

An SVC 2 instruction loads and executes 
a B-transient phase • A prefix of $$B to 
the name of a phase identifies it as a 
B-transient. The normal return to 
supervisor nucleus control is an SVC 11, 
but some of the transient programs exit by 
fetching another B-transient with an SVC 2. 
In the latter case, the calling B-transient 
is overlaid by the transient being fetched. 

Register 1 is loaded with the address of 
the transient name before the SVC 2 is 
issued. The fetch or load routine, then, 
has access to the name for searching the 
disk directories or tape records for the 
desired transient. 



B-TRANSIENT GROUPING 



The supervisor B-transient programs can be 
grouped by the various functions performed. 
These functions are: transient attention 
routine, program initiator, and program 
terminator. 



1052 keyboard. The system's attention 
transient routine ($$BATTNA) is loaded, and 
issues the message READY FOR 
COMMUNICATIONS. It then reads input 
statement information and selects the 
appropriate statement processor. 
Commands accepted by the nonresident 
attention routines are: 



PAUSE: Indicates job control pauses 
for operator communication at the end 
of the current job step in the 
specified partition or, optionally, at 
end-of-job of the current program. 

CANCEL: Indicates one of the programs 
in the system is to be canceled. See 
Figure 38 for cancel code information. 

MAP: Provides a map of main-storage 
utilization. See Figure 39. 

ALLOC: Permits the operator to 
allocate storage among foreground and 
background programs. 

MSG: Causes control to be given to a 
foreground program operator 
communications routine previously 
activated by a STXIT command. 

TIMER: Causes interval timer support 
to be given to the program specified. 

START: Indicates the foreground 
initiation function has begun. 



TRANSIENT ATTENTION ROUTINES 
(CHARTS 10-12) 



This group of B-Transients consists of 
$$BATTNA-$$BATTNH and $$BATTNN. 



• BATCH: Initiates a dormant background 
or batched foreground area. 

• LOG, NOLOG: Permits or suppresses 
logging of job control and single 
program statements on SYSLOG. 



Attention commands are submitted when 
the operator presses the request key on the 



IGNORE: Permits input from SYSRDR 
after a READ is issued. 
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Cancel -code in HEX 


MSG-Code 


Descriptive Part of Message 


10 




Normal EOJ 


19 


0P74 


I/O Operator Option 


1A 


0P73 


I/O Error 


20 


0S03 

or 
0S11 


Program Check 


21 


0S04 

or 
0S09 


Illegal SVC 


22 


0S05 

or 
0S06 


Phase Not Found 


23 


0S02 


Program Request 


24 


0S01 


Operator Intervention 


25 


0P77 


Invalid CCB-Address 


26 


0P71 


Device Not Assigned 


27 


0P70 


Undefined Logical Unit 


30 


0P72 


Reading Past /& Statement 


31 


0P75 


I/O Error Queue Overflow 


32 


0P76 


Invalid DASD Address 
(Disk Only) 

Irrecoverable I/O Error 
(Tape Only) 


33 


0P79 


No Long Seek (Disk Only) 


FF 


0P78 


Unrecognized CANCEL Code 


All cancel -codes except in connection with DUMP-macro (code = 


X'00 1 - not a true cancel-condition) initially have a value 


X'40 1 higher than indicated above, but the X'40' bit is 


stripped by the SUPVR before fetching the Terminator. 


In addition to recognizing the cancel-codes above, the 


Terminator also recognizes the same codes with the X'80' 


bit on. The X'80' bit indicates that the cancellation 


occurred in a Logical Transient routine and it is tested 


for by $$BEOJ and subsequently reset. 



Figure 38. Cancel Code Messages 



SP 




upper limit 




BG 


size 


upper limit 


NAME 


F2 


size 


upper limit 


NAME 


Fl T 


size 


upper limit 


NAME 



field 1 field 2 

Field 1 -area identification 



field 3 



field 4 



SP - supervisor 

BG - background area 

F2 - foreground area 2 

Fl - foreground area 1 

T - indicates which program has interval timer support. 



Field 2 - length of area 

The number of bytes allocated to the corresponding area 
of storage, where IK equals 1024 bytes of storage. 



Field 3 -area upper storage limit 

The highest storage address allocated to the corresponding 
area in decimal . 



Field 4 -user name 

BG - background job name 

F2 - foreground 2 program name 

Fl - foreground 1 program name 

Absence of a name indicates there is no active 
program in the area. 



Figure 39. MAP Output 



PROGRAM INITIATOR (CHARTS 10, 11, 13, AND 
14) 



This group of B-Transients consists of 
$$BATTNA, $$BATTNC, $$BATTNI-$$BATTNM, 
$$BATTNO, and $$BATTNP. 

Single foreground programs are initiated 
by the operator through the 105 2 assigned 
to SYSLOG. The operator may initiate a 
single program whenever an allocated 
foreground area does not contain a program. 

The operator initiates a single program 
by pressing the 1052 request key. The 
attention interrupt causes control to be 
given to the system's Attention routine. 
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Note: If the transient area is in use by a 
routine .other than the Attention routine, 
the attention interrupt is posted and 
serviced when the transient area becomes 
available. 

The Attention routine reads a command 
from the operator. The command START (Fl 
or F2) indicates a single program is to be 
initiated. The Attention routine 
determines if the area specified is 
allocated and does not contain a program. 
If so, it transfers control to the single 
program initiator; otherwise, the operator 
is notified that an invalid command has 
been given. 

The single program initiator reads 
subsequent commands required to initiate 
the program. These commands are used 
primarily to specify I/O assignments and 
label information. When an I/O assignment 
is attempted, the following verification is 
made: 

1. The symbolic unit is a valid logical 
unit. 

2. The symbolic unit is contained within 
the number specified for the area at 
system generation. 

3. If the symbolic unit is to be assigned 
to a non-DASD, the device must not be 
in use by the other foreground program 
nor can it be assigned to a background 
job either as a standard, temporary, 
or alternate unit. 



load address so that the program will be 
loaded following the label information 
area. It also calculates the entry point 
to the program by adding the address at 
which it will be loaded to the 
previously-calculated entry point (derived 
when the program was linkage edited and 
cataloged onto the system) . If a 
non-self-relocating program is loaded, the 
information used is that derived when the 
program was cataloged. 

Diagnostics, such as the program being 
outside the limits of the foreground area, 
are not performed by the initiator, but are 
performed by the Supervisor when the 
program is loaded. The supervisor then 
causes the program to be terminated. 

When initial control is given to the 
user's foreground program, register 2 
contains the address of the uppermost byte 
of storage available to this program. This 
may be used to calculate the total storage 
available to the program. A foreground 
program can dynamically determine the 
storage available to it by storing the 
contents of this register for later 
reference. 

Note that a program capable of either 
foreground or background operation (with 
proper linkage editing) can utilize the 
same programming to determine its storage 
allocation independently of its actual area 
assignment. 



Figure 40 illustrates a LISTIO example. 

The label information for each file in 
the job is written on SYSRES as a label 
information block for later retrieval and 
processing by the data management routines. 
A main storage area for label information 
is required under the same conditions as 
for background jobs, and is calculated and 
reserved by the initiator for 
self- relocating foreground programs. For 
non-self -relocating foreground programs, 
the label information area is determined by 
the LBLTYP statement. 

When the EXEC statement is encountered, 
the initiator directs the supervisor to 
provide loading information for the program 
to be invoked. If the program has not been 
cataloged, the operator is notified by the 
initiator. He may correct the command (for 
example, if the name was misspelled) or 
cancel the initiation. 

After the loading information is 
received, the initiator checks the load 
address to determine if it is zero, which 
indicates that a self-relocating program is 
to be loaded. The initiator sets up the 



TERMINATOR (CHARTS 15-19) 



A single program is terminated under its 
own control by issuing an EOJ, DUMP, or 
CANCEL macro or through operator action or 
a program error or certain I/O failures. 
When a single program is terminated, the 
following actions are taken: 

1. All I/O operations that the program 
has requested are allowed to quiesce. 

2. Tape error statistics for all tape 
drives assigned to the program being 
terminated, and on which an error has 
occurred, are logged out on SYSLOG. 
The statistics are then reset. This 
feature is a system generation option. 

3. DASD extents used by this program for 
DASD file protection are dequeued. 
This feature is a system generation 
option. 

4. All I/O assignments made for the 
program are canceled so that these 
devices will be available to 
subsequent programs. The assignments 
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are not canceled if they are to be See Figure 41 for an overall view of the 

held across jobs by the HOLD command. terminator phases. 

The operator is notified that the 

program is completed. The storage After a foreground program is completed, 

used by the program remains allocated the operator may initiate another program 

for the foreground area. for the area by pressing the SYSLOG request 

key and continuing with the initiation 

The program is detached from the procedure previously described, 
system's task selection mechanism. 
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BG 
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SYSIPT 
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BG 


SYS001 
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BG 


SYSIPT 
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BG 


SYSPCH 
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BG 
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BG 
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BG 
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SYSLOG 
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BG 
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BG 


SYSLOG 
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BG 


SYSLNK 
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BG 
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BG 


SYSLNK 
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BG 


SYSRES 
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BG 


SYS006 


** UA ** 


BG 


SYSRES 
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BG 


SYSSLB 


** UA ** 


BG 


SYS007 


** UA ** 


BG 


SYSSLB 


** UA ** 




BG 


SYSRLB 


** UA ** 


BG 


SYS008 


** UA ** 


BG 


SYSRLB 


** UA #* 
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BG 


SYS009 


** UA ** 
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BG 


SYS010 


** UA ** 
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*** FOREGROUND 1 *** 
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BG 


SYS011 


*# UA ** 


BG 








BG 


I/O UNIT 


CMNT CHNL UNIT MODE 


BG 


SYS012 


*# UA ** 


BG 


I/O UNIT 


CMNT CHNL UNIT 


MODE 


BG 






BG 


SYS013 


** UA ** 


BG 








BG 


SYS000 


1 91 


BG 


SYS014 


** UA ** 


BG 


SYSOOO 


## UA ## 




BG 


SYS001 
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BG 






BG 


SYS001 


** UA ** 




BG 


SYS002 


1 91 


BG 




*** FOREGROUND 1 *** 


BG 


SYS002 


** UA ** 




BG 


SYS003 


1 91 


BG 






BG 


SYS003 


** UA ** 




BG 


SYS004 


** UA ** 


BG 
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BG 


SYS004 


** UA ** 




BG 


SYS005 
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BG 


SYS005 


** UA ** 




BG 


SYS006 


** UA #* 


BG 


SYSRDR 
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BG 


SYS006 


** UA ** 




BG 


SYS007 
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BG 


SYSIPT 
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BG 
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BG 
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BG 
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BG 
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BG 
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BG 
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BG 
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BG 


SYSLOG 


** UA ** 


BG 


SYS010 


** UA ** 




BG 


SYS011 


** UA *# 


BG 


SYSLNK 


** UA ** 


BG 


SYS011 


** UA ** 




BG 


SYS012 


>!<'!< UA ** 


BG 


SYSRES 


1 90 


BG 


SYS012 


** UA ** 




BG 


SYS013 


** UA ** 


BG 


SYSSLB 


** UA #* 


BG 


SYS013 


** UA ** 




BG 


SYS014 


## UA *# 


BG 


SYSRLB 


** UA ** 


BG 


SYS014 


** UA ** 




BG 


SYS015 


*# UA ** 


BG 






BG 








BG 


SYS016 


** UA ** 


BG 




### FOREGROUND 1 *** 










BG 


SYS017 


** UA ** 


BG 














BG 


SYS018 


** UA ** 


BG 


I/O UNIT 


CMNT CHNL UNIT MODE 










BG 
BG 


SYS 019 


** UA ** 


BG 
BG 














SYS000 


** UA ** 










BG 




*** FOREGROUND 2 *** 


BG 


SYS001 


** UA ** 










BG 






BG 


SYS002 


## UA ** 










BG 


I/O UNIT 


CMNT CHNL UNIT MODE 


BG 


SYS003 


## UA ## 










BG 






BG 


SYS004 


** UA ** 


BG 


LISTIO UA 






BG 


SYSRDR 


** UA ** 


BG 


SYS005 


## UA *# 


BG 








BG 


SYSIPT 


** UA ** 


BG 


SYS006 


** UA ** 


BG 




*** UN AS SIGN ED *** 


BG 


SYSPCH 


** UA ** 


BG 


SYS007 


** UA ** 


BG 








BG 


SYSLST 


** UA ** 


BG 


SYS008 


## UA ** 


BG 




CHNL UNIT 




BG 


SYSLOG 


** UA ** 


BG 


SYS009 


** UA ** 


BG 








BG 


SYSLNK 


** UA ** 


BG 


SYS010 


** UA ** 


BG 




1 80 




BG 


SYSRES 


1 90 


BG 


SYS011 


** UA ** 


BG 




1 82 




BG 


SYSSLB 


** UA ** 


BG 


SYS012 


** UA *# 


BG 
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BG 


SYSRLB 


** UA ** 


BG 


SYS013 


#* UA ** 


BG 
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BG 






BG 
BG 


SYS014 


>:<>:< UA ** 


BG 
BG 
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$$BTERM 

Detaches attention 
routine if it was the 
program being 
canceled; otherwise 
writes EOJ message. 
Unassigns I/O 
associated with 
program unless this 
function is overridden 
by a job control 
command- hold. 



$$BPCHK 

Writes message about 
storage location and 
cause of program 
check interruption. 



(Dump macro issued 
by user program 
— cz 



) 



$$BILSVC 

Write message when 
phase not found or 
illegal SVC issued 
by program. 



$$BPSW 
Gives status of 
canceled program 
by printing user's 
PSW. 



$$BDUMP 
Tests for BG or FG 
job, I/O to use, calls 
proper dump program. 



3 detected by $$BDUMP 



T PDUMP } 
V^ macro issued J 



$$BDUMP 
Tests macro parameters, 
analyses I/O. Calls 
actual dump program. 




$$BDUMPF 

Writes on tape or printer : 
headers, registers, 
Supervisor and FG portion! 
of main storage. 



SYSLST is disk 

\ 



$$BDUMPD 
Writes registers and 
portion of main storage 
specified by PDUMP 
macro . 



SYSLST is tape or printer 



$$BPDUM1 

Writes registers and 

portion of main storage 

specified by PDUMP 

macro. 



$$BDUMPD 

Records on disk : headers, 
registers, COM REG, 
Supervisor and BG portion; 
of main storage. 




$$BDUMPB 

Writes on tape or printer: 
headers, registers, COMREG, 
Supervisor and BG portions 
of main storage. 



f SVC 1 1 j 




Figure 41. Terminator Phases 
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Chart 01, Supervisor General Entry, General Exit, and Processor Exit 



Allowable 
Supervisor 
Interrupt 



C 



LPSW 



rjj 

ATNRTN 



C LPSW ^ 

V Wait State J 



A machine check results in a hard wait (See Chart FD). For other interrupts: 
1. Store the old PSW address for this interrupt and general registers 
9-11 for General Exit (EXT01). 

2. Establish address of the PIB for the task that has been interrupted 
using the PIK. PI K equals the key of the last task selected on 
general exit. 

3. For interrupted background or foreground programs, general 
registers 1 to 8 are stored in their respective save area. 
The address of this save area is specified by the PIB. 

4. For interrupted supervisor or quiesce I/O tasks the respective 
PIB status flag is set to X'85 1 (task is made active). 



I 



EXIT TO INTERRUPT PROCESSOR 



Chart AA 



• Supervisor call interrupt ' 

• I/O interrupt — — — 



Program check interrupt ' 
External interrupt — — 
Machine check interrupt 



EXT01, EXT02, EXT03,EXT04 



02,03,04, 
05,09,10,1 
11,14,15,' 
19 



) GENERAL 
EXIT 



f LPSW ^ 

V Hard Wait J 






EXT 



GENERAL EXIT (TASK SELECTION) 



Chart BC 



There are 4 general exits: 

• EXT01 

• EXT02 

• EXT03 
o EXT04 

EXT01 : Direct return to the interrupted task or program. 

EXT 02 : Task selection; determine which task or program should run next. 



Task selection 



is performed because the next task may be other than a return to the interrupted program 
or task . 

The PIB status flag (byte 0) indicates the task or program is: 
1 . Ready to run (unbound) 

2. Waiting for I/O to complete or a time interval to elapse (SVC 7 bound). 

3. Waiting for the B- transient area to become available (SVC 2 bound). 

4. In control of the system (seized by a SVC 22). 

5. Detached from the system (Foreground programs and attention task only). 

Priority is determined by the sequence of the PIB's. Task selection selects the highest 
priority task or program that is: 
1 . Unbound, or 

2. SVC 2 bound but the B- transient area is no longer in use. 

CAUTION: A program, or task, that has seized the system by issuing a SVC 22 will be 
selected over all other programs or tasks except special supervisor tasks (Supervisor and 
Quiesce I/O). 

Refer to Figure 23 for task selection procedure. Refer to Figures 13-15 for the format of 
the PIB tables. 

The following table of tasks tested during task selection are in priority sequence. 
The PIK in the communications region is set to the PIB displacement for the task or 
program selected. The exit from the General Exit routine, after a task is selected, is shown 
in the table. 
1 . Supervisor task; return to the point where Supervisor was interrupted. 

2. Quiesce I/O task ^ ^ — "— — — "^— — — 

3 . Attention task 

4. Foreground 1 program 



5. Foreground 2 program —————— 

6. Background program •——■—— — 

7. All Bound (no task or program is ready to run); load external old PSW and enter wait 
state with all interrupts masked on. 

EXT 03 : This exit insures that the old PSW and registers are stored before task selection . 

Task selection is performed the same as for EXT02. (See EXT02.) 

EXT 04 : This exit is for MICR devices only. If MICR and MPS =yes, a branch is made to 

EXT03, if task selection is necessary; if MPS = no, EXT04 is made a NOP. 

Considerations for Supervisor Generated Without MPS: Task selection functions are the 

same as with MPS option except the foreground program and all bound PIB's are not included. 



^1 

pc r - ^ 



i/o 





SVC 



QUISIO 




Charts 
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Chart 02. Resident Attention Routine and Program Check Interrupt Routine 



ATNRTN 



RESIDENT ATTENTION ROUTINE 



Chart HA 



1 052 Attention Key: When an attention request is 
made, the attention PIB status is changed to active. 
First the physical attention transient program 
($$ANERRZ) is fetched. When the attention PIB 
is next selected, the logical attention transient 
program ($$BATTNA) is fetched. After the logical 
attention transient program releases control, the 
attention PIB status is changed to inactive. In a 
batch job only system (BJS), the attention routine 
runs attached to the problem program. 
External Interrupt Key: Same actions as for the 
1052 attention key above except that the physical 
attention transient program ($$ANERRZ) is not 
fetched . 

Timer Interrupt Waiting : Refer to the CAUTION in 
the timer interrupt routine on Chart 05. The pro- 
gram switch at ITBRC being set, returns to the 
timer interrupt routine because timer interrupt 
processing has not yet been completed. 




/^Fetch $$BATTNA\ 
VChart 10 J 



EXTERNAL ^ f Fetch $$BATTNA 



ATTENTION 



$$ANERR1 



PROGRAM CHECK 
INTERRUPT 



ENTPCK 



PROGRAM CHECK INTERRUPT PROCESSOR 



OPTION 



NO PC RTN 



PC, NO IT, 
OC, OR SP 



PC WITH IT, 
OC, OR SP 



CHARTS 



BA, JG 



FG, JG 



FH, JG 



The program is canceled 

(ERR20) if: 

1 . Supervisor was generated 

without user PC routine 

option. 

2. The user has not 
previously supplied the 
address of a PC routine 
by issuing a STXIT PC 
macro . 

3. The user has specified an invalid save area. 

4. The program check occurs while a B -Transient is in 
operation. 

5. The program check occurs while the user's PC routine is 
in operation (routine in use). 

To exit to the user's PC routine: 

1 . Save the PC old PSW and problem program general 
registers in the user -supplied save area (72 bytes). 

2. Store the address of the user PC routine in the PC 
old PSW. 

3. Branch to general exit EXT 03 (EXT04 for MICR). 

The user's PC routine will be executed when this 
task is selected in the general exit routine. Return from 
the user's PC routine must be with an EXIT PC macro. 
See Figure 19 for PC option tables. 




GENERAL EXIT 



GENERAL CANCEL 
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Chart 03. SVC Interrupt Processor , General Cancel, and Fetch 



SVC INTERRUPT 



6 



^ 



m 



ENTSVC 



CHANNEL 
SCHEDULER 



SVC INTERRUPT PROCESSOR 



Chart FA-FF 



Objective: Branch to the 
routine for processing the 
requested supervisor call . 

The SVC code is used to 
index a table of SVC routine 
addresses. The table of 
Chart FA contains the label 
and chart locations for all 
supervisor cal Is . Detai led 
explanations for each super- 
visor call can be found in 
the preceding discussion of 
the Supervisor Program. 



SVC - Execute Channel Program. 

SVC 1 - Fetch problem program phase. 

SVC 2 - Fetch B-Transient. 

SVC 3 - Fetch or return from an A-Transient. 

SVC 4 - Load any phase. 

SVC 5 - Modify communications region. 

Cancel. 

Wait. 



-SVC 6 

SVC 7 

SVC 8 - Transfer to user from B-Transient. 

SVC 9 - Return to B-Transient after SVC 8. 

SVC 10 - Set Timer Interval. 

SVC 11 - Return from B-Transient. 

SVC 12 - Reset 2nd Job Control switch. 

SVC 13 - Set 2nd Job Control switch. 
-SVC 14 - EOJ. 

- SVC 15 - EXCPflgnored if CHANQ full). 
SVC 16 - Store users PC exit. 

SVC 17 - Return from users PC routine. 
SVC 18 - Store users IT exit. 
SVC 19 - Return from users IT routine. 
SVC 20 - Store users OC exit. 
SVC 21 - Return from users OC routine. 
+SVC 22 - Seize or Release the system. 

SVC 23 - Load phase header. 

SVC 24 - Store users TECB address and set timer interval . 

- SVC 25 and SVC 27 - Halt l/O on T/P device. 
*SVC 26 - Validate address limits. 

SVC 28 - Return from user stacker select routine. 
SVC 29 - Return from multiple wait (MICR devices). 
SVC 30-34 - Reserved (See Chart FA). ~~ 

+MPS only - ignored in BJS. 
*lgnored in BJS without SP. 






(3 



$$ANERR1 
Chart MW 



) 



ERR10 

ERR20-27 

ERR30-33 






GENERAL CANCEL 



Charts BA to BB 



Refer to Figure 34 for a table of cancel 
codes used by the Supervisor program. 
Objectives of General Cancel are: 

1. Calculate the cancel code. 

2. Post the cancel code to the canceled program's PIB. 
See Note 1 . 

3. Release the logical transient (B- transient) area, if 
it is in use by the canceled program. See Note 2. 

4. Logical I/O cancels store the canceled 
programs registers and exit to I/O 
Interrupt to: (1) dequeue the CHANQ 
entry, (2) attempt to re- schedule the 
channel, and (3) take general exit, 
EXT02. Other cancels take general exit, 
EXT02. The next time the program to be 
canceled is selected on general exit, 
$$BEOJ will be fetched to cancel the program. 

Note 1 : The PIOCS error routines post the 
cancel code to the canceled program's PIB. 
Entry to general cancel for these cancels 
is at label ERRSET. 
Note 2: Bit X'80' of the cancel code is set 



when the canceled program is using the B- transient area. 



FCHRT1 
FCHRT2 



FETCH SUBROUTINE 



Charts EA-ED 



Objectives: 



1. Load a problem program. 

phase or transient program from the core 
image library of SYSRES to main storage. 
Supply the load address for a phase from the core 
image directory entry (SVC 23). The sequence of 
events to load a phase are: 

a. Determine the disk address of the sub- directory 
where a scan of directory entries is to begin. 

• $$B- LIOCS open sub- directory 

• $$ - Transient sub- directory 

• $- Library routine sub- directory 

• FGP - Foreground program sub- directory 

• Other- Problem program sub- directory 

b. Scan the directory entries until a match is made 
to the user phase name. 

Note: The physical transient area (PTA) is used 
as an I/O area for directory blocks, referenced 
by a DSECT, with 8 leading bytes for the name 
of the phase called and room for 18 20- byte 
directory entries (1 block). 

c. Relocate the L/E entry address if an overriding 
load address has been specified. The phase 
entry address is passed to the user via register 1 . 

d. Load the phase into main storage. 

e. For a background phase, store the end address of 
the phase in the communications region, dis- 
placement 36. 

See Y24-5017for the format of phase directory entries and 
the format of the core image library entry. i 



^P 
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Chart 04. I/O Interrupt Processor and Channel Scheduler 



I/O INTERR UPT 
*01,06 



INTRTN 



SVC 15, SVC00 



I/O INTERRUPT PROCESSOR 



Charts CJ to CN 



I/O interrupts are caused by termination of an I/O operation or 
operator intervention on the I/O device. Each I/O interrupt is 
processed in this manner: 

1. Find PUB for the device that causes the I/O interrupt. The device 
last started is tested first. If the device that caused the I/O inter- 
rupt is not found, an attempt is made to re-schedule the channel. 
See Note 1 . 

2. Exit to the channel appendage routine if alj of the following 
conditions exist: 

a. Supervisor has been generated with tele-processing option 
(TP=BTAM). 

b. The device causing the I/O interrupt has I/O pending (CHANQ 
pointer is not X'FF'). 

c. The user has specified an appendage routine address in the CCB. 

d. The program has a flag on in its PIB indicating an appendage 
routine address in the CCB is allowed. 

3. Evaluate CSW. Refer to Figure 32 for CSW testing on an I/O 
interrupt, 

4. If status is attention from a 1052 the attention routine PIB flag is 
posted to include the attention routine in task selection and 
general exit, EXT03, is taken. 

5. If the device status indicates that the channel program has been 
successfully completed: 

a. Post traffic bit in the CCB. 

b. Dequeue the CHANQ entry if device end posting was not 
requested. (See Figure 12 for format of the CHANQ table). 

c. Exit to START I/O if there is more I/O pending on this 

device. If not, attempt to re-schedule the channel. See 
Note 1. 

Note 1: Re-schedule the channel, with MPS: The PUB's in the 
channel list are scanned, beginning with the PUB following the last 
one started, and the first one with I/O pending will be the next PUB 
started. If the end of the channel list is reached, the scan continues 
from the first PUB in the channel list. If no I/O is pending in the 
channel go to the general exit routine. 

This method is used to insure the sharing of the channel between 
programs when operating in multi -programming and is referred to as . 
a rotating PUB scan. 

Re-schedule the channel, batch only: Same as with MPS except the 
channel list is always scanned beginning with the first PUB in the 
channel list (FOCL). 




UNIT CHECK 



CHANNEL SCHEDULER 



Charts CA to CD 



SVC and SVC 15: The objective of the channel scheduler is to build 
an entry for the channel program in the CHANQ, LUBID, and REQID 
tables. Refer to Figure 26 for a sample of a device queue in the CHANQ 
table. Refer to Figure 12 f or the format of the CHANQ, LUBID, and 
REQID tables. Refer to Figure 27 for the format of the CCB (channel 
command block). 

Communications and status bytes 2 through 6 of the CCB are reset 
before making the CHANQ entry. 

Exit from channel scheduler is to START I/O if: 

1. This I/O request for the device is the first in queue (CHANQ pointer 
in the PUB contained the null code, X'FF') and 

2. This device is not busy (busy flag in the PUB is reset). 

If the above conditions are not met, general exit, EXT01, is taken. 




System l/O Files 

Assigned to disk: 

SYSIPT, SYSRDR, SYSPCH, and SYSLST are System I/O files. Before 

a start l/O is issued to these files, the search address in the user CCW 

chain is checked against the current address in the DIB. Refer to 

Figure 16 for the format of the DIB tables. 

DASD File Protect: Extent information must be present in the JIB ' s 

for all files assigned to a' disk or 2321 (data cell) except system 

I/O files assigned to a disk and SYS RES. Any access to DASD 

file must fall within the extents specified in the JIB's. Refer 

to figure 17 for the format of the JIB's. 

Start I/O: If the device is bjrst-multiplex, but the channel is 

presently operating in burst-multiplex mode, take general exit, 

EXT01. An SIO command is issued to start the device, if the 

channel is available. The alternate channel is tested if the 

device is switchable. Before using the SIO command, the correct 

CCW address must be set in the CAW. 

1 . For 7-track tape, CAW= set mode CCW. 

2. For SYSLOG, CAW = Prefix ID CCW. 

3. For DASD file protected devices, CAW equals CCW-chain in 
the supervisor, which TIC's to the user's chain. 

4. For all others, CAW= CCW specified by CCB. 

If the device receives a normal start (condition code 8 set on SIO) 
post the device busy flag in the PUB and take general exit, EXT01 . 
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Chart 05, External Interrupt Routines 



SIGNAL 



EXTERNAL INTERRUPT, SIGNAL 



OPTION 



CHART 



The signal interrupt is ignored if NO IT BD, 

MICR devices are not supported or OR OC JA-JF 

if the Supervisor was generated 

without IT or OC options. WITH IT FJ 

1 . Determine the state of the OR OC JA-JF 

system at interrupt time: All 

bound (MPS only), problem program, or Supervisor. 

Depending on the system state and on the option(s) 

specified, save the PSW and/or registers in designated 

areas and/or load a base register. 

2. Locate the DTF table for the device causing the 
interrupt. See Figure 20 for tables PDTABA (DTF 
pointers) and PDTABB (DTF addresses). From the DTF 
table, get the channel and unit number of the MICR 
device and data concerning the record in the buffer and 
the stacker select routine. 

3. Issue a TIO to clear the pending interrupt. If any error 
conditions are detected, branch to the TIO error 
recovery routine for 141 2/1 41 9 or for 1419D. If an 
off-line sort, is requested with 141 9D, the subsequent 
SIO will be bypassed. 

4. After a successful TIO has been completed, update 
record and buffer data, prepare CCW's, and exit to the 
user stacker select routine to get the pocket selection 
for the last document read. 

5. The Supervisor is re-entered via an EXIT (MR) macro. 
Prepare CCW's and buffer for batch numbering and/or 
auto select, if required. 

6. Issue an SIO to stack the document. If any error 
conditions are detected, branch to the SIO error 
recovery routine for 141 2/1 41 9 or for 1419D. Other- 
wise, activate the branch at EXT04 if task selection is 
necessary. If more than one MICR device interrupted 
simultaneously, process these interrupts beginning at 
step 2 above . 

7. Check for IT or OC interrupts that may have occurred 
with the MICR interrupt: 

Timer Interrupt - Update the time of day and set timer 
to a minimum value so that it will interrupt again 
without any other status. It will then be processed as 
described in the Timer Interrupt block. 
Key Interrupt - Process immediately as described in the 
Key Interrupt block, 

8. Exit from this interrupt routine depending on the system 
state when the interrupt occurred: 

a. All bound (MPS only) - Load the external interrupt 
old PSW to enter wait state, first performing task 
selection if required. 

b. Supervisor - Restore registers and load the external 
interrupt old PSW to enter the wait state. 

c. Problem Program - Branch to general exit (EXT04) to 
perform task selection or to return to interrupted 
program . 




TIMER 



KEY 



EXTERNAL INTERRUPT, TIMER 



OPTION 



WITH 

IT OR OC 



CHART 



ED 



FJ 



The timer (SYSTIMER) is NO IT 

reset to its maximum value OR OC 

(X'FFFFFFFF')and the system 
time of day (SYSTOD) is 
updated to the time that the 
next timer interrupt will occur 
(current time + 15.5 hours). 
Note: Current time of day is calculated by subtracting the 
remaining interval (SYSTIMER) from SYSTOD. 
The timer interrupt is ignored if: 

1 . Supervisor was generated without interval timer feature 

option . 

2 . The timer supported program has been canceled . 

3. The timer interrupt occurred while the user's IT routine 

was in operation (routine in use). 
With User TECB Address: The traffic bit is posted in the 
user's TECB (timer event control block) and the timer sup - 
ported program is included in task selection. The TECB 
address is cleared in the IT option table. 
With User IT Routine: To exit to the user's IT routine: 



1 . Save the external old PSW and timer -supported- program 
registers in the user -supplied save area (72 bytes). 

2. Store the address of the user IT routine in the external 
old PSW. 

3. Branch to general exit (EXT03). 

The user IT routine will be executed when this task is 
selected in the general exit routine. Return from the user's 
IT routine must be with an EXIT IT macro. 

See Figure 19 for the IT option table. Referto Figure 
27 for the format of the CCB (TECB has the same format as 
the CCB. Only the traffic bit X'80' in byte 2 is used). 
CAUTION: If a B -Transient is operating for the timer 
supported program when the timer interrupt occurs for a user 
IT routine, the exit is deferred. The attention routine PIB 
is posted to include the attention routine in task selection 
when the B-Transient area is released. A switch (ITBRC) is 
set in the resident attention routine to continue timer inter- 
rupt processing when the attention task is selected on 
general exit. 



EXTERNAL INTERRUPT, KEY OPTION 



NO IT 
OROC 



BD 



FJ 



The attention routine PJB is 

posted to include the attention 

routine in task selection. The 

non -resident attention 

routine ($$BATTNA) processes 

the request when the attention 

task is selected in general exit. 

Note: If supervisor was generated without user OC 

(operator communications) routine option, the interrupt is 

ignored . 



WITH 

IT OR OC 



CHART 



© 
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Chart 06. Unit Check, Resident ERP, and Quiesce I/O Routines 



UNTCKl 
UNTCK2 



UNIT CHECK 



Charts DA-DB 



Determine the action to be taken 
for the following error conditions: 

• Unit check 

• Channel data or channel chaining 
check 

• Program check or protection check 
User Unit Check Routine : Post the 
unrecoverable error flag (bit 18) in the 
CCB and return to the I/O interrupt 
routine to continue testing the CSW 
(this error is ignored by PIOCS). 

No User Unit Check Routine : Build 
a 22 byte error queue entry in the 
error queue table. The error queue 
table is 5 entries long; an attempt 
to build more than 5 entries causes 
a cancel condition (ERR31). Refer 
to Figure 33 for the format of an 
error queue entry. 
Exits from Unit Check: 

• Disk device; exit to Resident 
Disk Error Recovery 

• Channel 9 overflow on printer; 
post channel 9 overflow to CCB 
and take ignore exit (EXIGN). 

• All other conditions; exit to 
fetch the ERP monitor (EXTRAN) 
where the Quiesce I/O Task will 
be included in task selection 

on general exit (EXT03). 



RESERR 




OTHER 



RESIDENT DISK ERROR RECOVERY Charts GA-GB 



Objectives : 

T. Analyze the sense information 
and the CSW stored in the 1st 
entry in the error queue table. 

2. Determine and execute the disk 
error recovery procedure, and 
then choose one of the error 
recovery procedure exits. 
Refer to Figure 35 for disk 

sense information and to Figure 33 

for the format of an error queue 

entry. 



QUISIO 



QUIESCE I/O TASK 



Chart DG 



Wait for completion of all CHANQ 
entries for every device on the channel 
except tele -processing and MICR de- 
vices (All PUB CHANQ pointers are null, 
X'FF"). Quiesce l/O PIB remains in the 
task selection! until all entries in the error 
queue have been processed. Only one 
error queue entry will be processed by 
ERP (error recovery procedure) A-transients 
at a time . When the error queue table 
is empty (5 entries are maximum), Quiesce 
I/O task is removed from task selection at 
general exit. 



OTHER 



$$ANERRA 




TAPE 



$$ANERRD 



ERP EXITS 



ERROR RECOVERY PROCEDURE EXITS 



Charts DC-DF 



EXTRAN : Includes Quiesce I/O task in task 

selection and returns to I/O Interrupt 

to attempt to re-schedule the channel. 

Initiates procedure for fetching the 

ERP monitor ($$ANERRA). 

RCVERR : Same action as EXTRAN exit. 

See EXTRAN. 

EXCAN : Cancel code has already been 

set in the PIB by the PIOCS error 

recovery procedure. Releases the 

B-transient area, if the canceled 

program was using the B-transient area. 

EXT01 is taken. 

Note: This exit returns to the physical 

transient. 

EXIGN : Restore the CSW from the error 

queue entry and dequeue the error queue 

entry. Return to I/O Interrupt and 

continue evaluating the CSW. 

EXWHY : Retry the user's channel program 

starting with the CCW in error. Dequeue 

the error queue entry. Return to I/O 

Interrupt and re-evaluate the CSW. 

EXRTY : Same action as EXIGN if the retry 

flag is not set in the error queue entry. 

If the retry flag is set, dequeue the 

error queue entry and return to I/O 

Interrupt to re-schedule the channel. 




I/O INTERRUPT 



BOS Supervisor and Physical and Logical Transients 



Chart 07. Physical Transients (Part 1 of 2) 



<£ 



$$ANERRA - $$ANERRC 



ERROR RECOVERY PROCEDURE MONITOR 



Charts LA-LC 



The ERP monitor consists of three A-transient programs: 

1. $$ANERRA - Determine device type and fetch correct A-transient to 

perform ERP*. If device type cannot be determined, fetch 
$$ANERRC. If device type is disk, begin identification of 
unrecoverable errors and continue to $$ANERRB. 

2. $$ANERRB - Continue identification of disk unrecoverable errors and 

perform ERP for errors detected. 

3. $$ANERRC- Insert the required message code, turn off the 'retry' and 

'ignore' bits in the error queue flag byte, and fetch 
SSANERRM. 
* The A-transients that are fetched for devices other than disk are: 



Paper Tape 



Data Cell 



$ $ANERRG-$$ANERRK^~ 



Optical Reader 



Unit Record 



MICR- 



DATA CELL ERP 



Charts LM-LU 



Data cell error recovery consists of five 
A-transient programs: 

1. $$ANERRG (Phase 1) - Determine type 
of error and perform ERP for channel 
data check, equipment check, 
command reject, intervention required, 
overrun, end of cylinder, chaining 
check, and file protect. Fetch 
$$ANERRH-$$ANERRJ for other error 
conditions as indicated. 

2. $$ANERRH (Phase 2) - Perform ERP for 
track condition check. 

3. $$ANERRI (Phase 3) - Perform ERP for 
data check and missing address marker. 
If 226 retries are exceeded, fetch 
$$ANERRK. 

4. $$ANERRJ (Phase 4) - Perform ERP for 
no-record-found and seek check. 

5. $$ANERRK (Phase 5) - Complete ERP 
for data check and missing address 
marker. 



SSANERRU- 
SSANERRV 



UNIT RECORD ERP Charts MF-MJ 



Unit record error recovery consists of two 
A-transient programs: 

1. $$ANERRU (Phase 1) - Check for 
unsupported devices and cannot- 
occur conditions, perform ERP for 
channel data check and 1052. 

2. $$ANERRV (Phase 2) - Perform ERP 
for 1403, 1442, 1443, 2501, 2520, 
and 2540. 



SSANERRT, 
SSANERRW 



PAPER TAPE ERP 



Charts MN,MP 



Paper tape error recovery consists of 
one A-transient program that 
determines the type of error and exits 
for 1 retry on certain errors before 
fetching the me.ssage writer. 



OPTICAL READER ERP Charts MX,MY 



Optical reader error recovery consists 
of one A-transient program that 
determines the type of error and exits 
for retry or ignore on certain errors for 
either the 1285 or the 1287. 



$$ANERRD-$$ANERRF, $$ANERRL 



TAPE ERP 



Charts LD-LL 



Tape error recovery consists of four A-transient programs: 

$$ANERRD (Phase 1) - Determine type of error and perform ERP for read data check, 
error on recovery, device not operational, and equipment 
check. Continue at $$ANERRE, $$ANERRF, or $$ANERRL, 
depending on error identification. 

$$ANERRE (Phase 2) - Perform ERP for data converter check, drive in backward status 
at load point, non-compatible condition, channel data check, 
chaining check, busour, or overrun. Take Ignore exit if 
operator intervention required after initial selection. Fetch 
$$ANERRL for command reject or $$ANERRA for program or 
protection check. $$ANERRA- 

$$ANERRF (Phase 3) - Perform ERP for write and WTM data checks, and perform tape 

cleaning if command was read. Fetch $$ANERRL for unit checks 
on erase gap command. 

$$ANERRL (Phase 4) - Perform ERP for command reject, data checks that have exceeded 
100 retries, and unit checks that occurred on ERG in Phase 3. 



In general, the error recovery procedures consist of analyzing the sense data 
bytes and the CSW that have been stored in the error queue entry (ERQUE), 
identifying the error, and inserting the selected message code in the ERQUE. 
If required, selected error bits are posted in bytes 2 and 3 of the CCB. For 
certain conditions, such as when a retry is to be made or an error is to be 
ignored, bits are posted in the ERQUE flag byte. 

See Figure 35 and the subsequent section I/O Error Recovery Procedures and 
Sense Data for detailed information about sense data for each device. See 
Figure 33 for an illustration of the error recovery block (ERBLOC), including 
the error queue entry (ERQUE). Figure 36 is a listing of the hexadecimal 
message codes with the error message for each code. See Figures 31 and 27 for 
the condition and error bits in the CSW and CCB, respectively. 
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Chart 08. Physical Transients (Part 2 of 2) 



£ 



$$ANERRM 



MESSAGE WRITER (Phase 1) 



Chart LV 



Analyzes message code in Error Queue entry for 
device in error. Selects appropriate 10-byte 
message and obtains CCB address - both are stored 
in save area for use by subsequent phases. 



MESSAGE WRITER (Phase 2) 



Charts LW, LX 



Continues preparation of message: 

1. Prepares ACTION field (action, information, or 
decision), TARG1 field (ignore or cancel), and 
TARG2 field (retry). TARG1 and/or TARG2 
fields may be blank, depending on what options 
are to be taken. 

2. Identifies partition (BG,F1, or F2) to which the 
device was assigned. 

3. Unpacks the message number. 

If SYSLOG is unassigned, phase R is called unless 
the message is information only in which case S is 
called, bypassing intervening phases. 



$$ANERRO 




MESSAGE WRITER (Phase 3) 



Prepares and saves message information about: 

1. Symbolic name of device, e.g., SYSRDR or 
SYS001; 

2. CSW; 

3. Sense Byte Data; 

4. Channel and Unit Number of device; 

5. Seek oddress at error time if DASD. 



$$ANERRT,$$ANERRW 



MICRERP 



Charts ME, MK-MH 



Magnetic Ink Character Recognition devices ERP 
consists of two A-transient programs: 

1. $$ANERRT - Check for cannot-occur conditions, 
determine type of error, and perform ERP for 
1412 and 1419 (single address adapter) devices. 

2. $$ANERRW - Check for cannot-occur 
conditions, determine type of error, and 
perform ERP for 1419 dual address adapter 
device. The ERP distinguishes between primary 
and secondary control units and between 
stacker-select and pocket light command codes. 





MESSAGE WRITER (Phase 4) 



Chart LZ 



Prints error message containing information gathered and saved 
from previous phases; prints on 1052 or printer. 
If an error occurs on SYSLOG while printing the message, up to 
three retries are made. The next phase to be fetched is determined 
as a result of one or more conditions: 

• No error on SYSLOG, decision message. J 

• No error on SYSLOG, action message and SYSLOG 
is printer. 

• Error on SYSLOG, decision or information message, 
and SYSLOG error does not persist after retry. 

• Error on SYSLOG, decision or information message, 
and SYSLOG error persists after 3 retries. 

• No error on SYSLOG, information message. 

• No error on SYSLOG, action message and SYSLOG 
is a 1052. 

• Error on SYSLOG, action message and error persists 
after third retry. 



fetch 
$$ANERRQ 



fetch 
N $$ANERRR 



fetch 
$$ANERRS 




R / Fetch 

Q,R, orS 



MESSAGE WRITER (Phase 5) 



Charts MA- MB 



Analyzes operator's response to message and turns on 
appropriate flags for use of phase S. Receives 
operator's response via the 1052 keyboard. However, 
if operator responds incorrectly, the message 
"OPNND INVALID RESPONSE" is printed and 
phase R is called. 




MESSAGE WRITER (Phase 6) 



Chart MC 



If a system-to-operator message could not be printed 

on SYSLOG for any of several possible reasons, the 

console is used to communicate with the operator. 

Information is stored for console display as follows: 

Byte - message number 

Byte 1 - Action character (A or D) 

Bytes 2 and 3 - Channel and unit number of error 

device. 

The system is put in a wait state pending 
operator's response. Option flags are set for use 
in Phase 7. 



$$ANERRS 



MESSAGE WRITER (Phase 7) 



Analyzes the External Option Flags set by the operate 
and chooses the appropriate exit to Cancel, Retry, or 
Here is a sample format of the error messages: 
BG 0P18I C COMM REJCT SYS003 = 191 
CCSW = XXXXXXXXXXXXXXXXXX SNS = 
XXXXXXXXXXXX CCB = XXXXXX SK = 
BBBBCCCCHHHH 



r's response 
Ignore. 



ERP EXITS 
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Chart 09, Physical Attention Transients 



$$ANERRZ 







$$ANERRY 



PHYSICAL ATTENTION 



Charts MS,MT 



This physical transient is used to perform tests whose 
results determine which A or B-transient is required 
for further processing of the attention interrupt. 
1. If SYSLOG is not a 1052-exit. 



2. Scan the PUB (Physical Unit Block) for devices 

requiring operator intervention. 

a. Store the program interrupt key (PIK) of 
the program that owns the device requiring 
operator intervention in the interphase 
communication area (PARCOMM)- 
exit 



If no operator intervention is required, 
and if the attention request switch is 
ON, exit 



If no operator intervention is required, 
and the attention request switch is 
OFF, exit- 



If this phase is entered with the attention 
recall switch ON, the supervisor routines are 
used to cancel the program and dequeue the 
channel queue. These routines are entered via a 
SVC 3 to EXCAN and PUBDEQ, after which 
control returns to this A-transient line. 



PHYSICAL ATTENTION 



Charts MQ, MR 



1. Send the message: 

ARb 0P60D INTERV REQ FOR xxx 

ARb_(_Response Fits Here.) 
where xxx is FG1, FG2, or BGb 
Read the operator response which is either 
CANCEL or IGNORE. 

a. CANCEL response: Turn ON the physical 
attention recall switch, exit - 



2. 



b. IGNORE response and the attention 
request switch ON, exit - 




IGNORE response and the attention 
request switch OFF: Turn the attention 
request switch ON, exit below. 



'SVC3 to Exit to Task \ 
Selection in the General ] 
Exit EXT02 (Chart 01) / 







a 



/1sVC3Fetch\ 
V$$ANERRZ J 



© 



SVC3 Fetch 
$$ANERR0 



$$ANERR0 



Issue a SVC3 to enter the task selection 
mechanism of the supervisor program. These 
conditions are present: 

• RF contains the address of the general exit 
(EXT02). 

• The phase name in ERBLOC has been 
modified to $$ANERR01 to signify return from 
physical attention transient. 

• The attention routine PIB flag has been set 
to a Hex 81, making that routine eligible 
for selection when the logical transient 
area becomes available. 



/SVC3 Fetch $$BATTNa\ 
f (Chart 10) Via EXT02 J 
\Task Selection J 



) 



PHYSICAL ATTENTION 



Charts MU,MV 



1. 



Send the message: 

ARb_ JJ40D_ JMERGENCY CANCEL 

ARb (Response Fits Here.) 

Read the operator response: 

a. Valid responses: 

CANCEL bbb (cancel background programs) 
CANCEL FG1 (cancel foreground 1) 
CANCEL FG2 (cancel foreground 2) 
CANCEL BGb (cancel background) 
Invalid response (other than those listed 
above), send the message: 
ARb lS0/]\ D INVALID STATEMENT 



b. 



ARb (Respons e Fits Here. ) 

3. Set the cancel code in the PIB indicated by 
the response. 

4. Cancel the program with the supervisor ATNCNL 
routine. Enter the routine by issuing a SVC3. 
Control is returned to this A-transient when 

the SVC old PSW is loaded by the supervisor. 

5. Final exit from this transient is to the supervisor 
task selection mechanism after these 
conditions are set: 

• RF contains the address of the general 
exit (EXT02). 

• The phase name in ERBLOC has been modified 
to $$ANEER01 to signify return from physical 
attention routine . 

NOTE: Emergency cancel signalled by 2 consecutive 
attn requests. 



'SVC3 to Exit to Task \ 

Selection in the General] 

sExit Routine (Chart 01) y 



Charts 
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Chart 10. Logical Transient Root Phase 




EXTERNAL 



Detach the 
Task 




C 



Nonresident 
Attention 



$$BATTNA 



> 



NO 



ATTENTION 



YES 




ROOT PHASE 



Charts NA to ND 



This phase performs the same functions as the root phase 
described for the program Initiator. Input and Process 
Control statements or exit if no more statements are 
-found. 



6 



11,12 



MSG 



CANCEL 



PAUSE 



LOG 



NO LOG 



IGNORE 



MAP 



ALLOC 



BATCH 



START 



TIMER 



Send the 
Appropriate y 

Error 
Message 



$$BATTNB 



$$BATTNC 



0? 

$$BATTND 



$$BATTNE 
$$BATTNF 



$$BATTNG 



^ 



BATTNG 
t$$BATTNH 



$$BATTNN 



6 



-f In 



itiator 



$$BATTNA 



3 



ROOT PHASE 



Charts NA to ND 



This phase functions as the root phase. It contains the 
various subroutines used by the other phases, and 
defines the storage areas and constants common to the 
other phases. Basic functions performed by the 
subroutines of this phase are: 

• Input and process control statements. -^ — 

• Determine, and if necessary, load the proper phase 
required to process the control statement. 

• Pass control to the correct routine within the 
processing phase by means of a branch vector table. 

• Scan the control statements and provide address and 
length information on operation fields and operands. 

• Output error messages as required by the validity 
checking routines. 



11,13,14 



CANCEL 



ASSGN 



UNA 



LISTIO 



VOL 



TPLAB 



TLBL 



DLBL 



DLAB 



XTENT 



EXEC 



UCS 



EXTENT 



LBLTYP 



READ 



HOLD 



RELSE 



NOTE ; If foreground initiation is in progress, the root phase 
remains resident in the logical transient area and 
the initiating routines are loaded and executed from 
the foreground area of the program being initiated. 






■ T $$B, 



$BATTNC 



$$BATTNI 



$$BATTNJ 






$$BATTNK 



$$BATTNL 






$$BATTNM 



$$BATTNO 



$$BATTNP 
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DOS Supervisor and Physical and Logical Transients 



Chart 11, Logical Transient Attention Routines (Part 1 of 2) 



$$BATTNB 



MSG PROCESSOR 



Charts NE, NF 



This phase selects the correct operator communications 
option table from the three available. It initializes the 
option table selected with the address of the user 
specified operator communications routine. If the operator 
communications routine is busy, this phase sets the 
complement of the address in the option table. 



$$BATTNC 



i£ 



PAUSE/LOG/NOLOG/IGNORE PROCESSORS Chart NH 
This routine sets switches in the communications region and 
in FLGBYO: 

• PAUSE - Turn on job control switch bit for PAUSE at 
COMREG+56 or for PAUSE-at-EOJ at COMREG+59 in 
BG, F2, or Fl communications region. 

• LOG/NOLOG - Set job control switch bit for LOG (on) 
or NOLOG (off) at COMREG+56 

• IGNORE - Set switch bit in FLGBYO for SYSRDR input 
after a READ Is issued. 



$$BATTNC 



^ 



CANCEL PROCESSOR 



Chart NG 



This routine finds the key of the program identified by the operand of the cancel 
statement. Depending on the key found, this phase: 

• Cancels the program currently being executed in a specified area, in a multi- 
programming environment; 

• Cancels the background program in a batched-only system; 

• Cancels the initiation process implicitly in a multi-programming environment; 

• Cancels the background program implicitly in a multi-programming environment if no 
initiation is in progress. 

Cancellation is accomplished by setting the cancel flag in the PIB of the program to be 
canceled. If the cancel phase is being canceled, control is released to supervisor via a 
SVC 11. 




$$BATTND 



MAP PROCESSOR 



Charts NJ to NL 



This phase prints a listing or SYSLOG output of the current main storage allocated to, and 
the program active in, all three problem program areas (BG, F2, or Fl) and the 
supervisor. Main storage allocation is mapped in terms of IK blocks as determined from 
the appropriate PIB, using the EBCDIC. Active areas are designated by mapping the 
program names. Area indicators (SP, BG, F2, or Fl) and the upper address of each are 
also mapped. 



$$BATTNA 
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Chart 12. Logical Transient Attention Routines (Part 2 of 2) 



$$BATTNE and $$BATTNF 



$$BATTNG 



ALLOC PROCESSOR 



Charts NM to NQ 



This routine reallocates main storage according to the 
number of 2K blocks specified for one or both of the 
foreground areas by the operand of the ALLOC statement. 
To reallocate, this routine: 

1. Builds a table containing the current number of 2K 
blocks, the lower limit address, the address of the 
save area, and the upper limit address. A separate 
table is built for the background area and each 
foreground area. The source information for the table 
entries is the program PIB; 

2. Updates the table built in step 1 with the information 
secured from the operand of the ALLOC statement. 
The operand value is converted to byte count which 
is used to calculate upper limit information. Upper 
and lower limits necessary to ensure contiguousness 
and the designated amount of main storage are 
calculated for each table entry and checked to 
overlap for active areas; 

3. Resets the PIB entries with storage key and origin 
information and storage keys of all program areas 
using the table entries as source information. 



m 



$$BATTNG and $$BATTNH V 



START PROCESSOR 



Charts NR to NU 



This routine initiates a foreground program. The operand 
of the START statement is obtained by the root phase 
scan subroutine. The proper key is calculated, the 
attention PIB is detached from task selection, and the 
initiator is attached as the foreground program. 
Subsequent initiator phases are executed from the 
foreground program area of the program being initiated. 
However, even though physically located in the 
foreground area, the subsequent initiator phases are 
logically considered as part of the transient attention 
routine. 



BATCH PROCESSOR 



Charts NR, NS 



This routine initiates a dormant background 
or batched foreground. If the operand is 
BG, the PIB for BG is set to X'83 1 . If the 
operand is F2 or Fl, Job Control is loaded 
into the specified foreground area. The PIB 
flag (bit 0, byte 15) is set to indicate batch- 
job-foreground mode and the corresponding 
PIB flags are set to X'81 • (detached). The 
job control switch bit in COMREG+59 is set 
for "BATCH command just issued". 



$$BATTNN 



TIMER PROCESSOR 



Chart QE 



This phase changes the ownership of the interval timer 
routine based on the operand specified in the 
TIMER statement. 



$$BATTNA 
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Chart 13, Logical Transient Initiator (Part 1 of 2) 



ASSGN PROCESSOR 



Charts NV to PB 



This phase makes a logical unit I/O assignment based on the logical unit specified in the operand of 
the ASSGN statement. The steps in making the assignment are: 

• Convert SYSXXX to a LUB displacement. 

• Scan for channel and unit information. 

• Make the assignment if IGN is found, or unassign the previous assignment if UA is found. 

• Calculate the new PUB entry address and PUB pointer based on channel and unit information. 

• Scan for either ALT or X'ss' indicating a tape device. 

• If an ALT operand is found, make an alternate assignment. 

• If a X'ss 1 is found, it is validity checked for correct format, converted to binary, and validity 
checked as a valid mode set value for either 7- or 9-track tape. The valid value is saved for use 
by the assign routine. 

• Assign the unit if there are no conflicts in ownership (non DASD devices only). 

Assignments are made by a routine within this phase called the assign routine. A subroutine, UNPA 
is used to unassign the previous assignment. The new PUB pointer is put into the correct LUB entry. 
If the assignment was IGN, or it was to the same device as SYSLOG, exit. If these conditions 
were not found, the PUB ownership flag and mode set byte are set prior to exiting. 



UNA PROCESSOR 



Charts PC, PD 



This routine immediately unassigns the foreground unit assignments. The foreground area specified 
in the operand of this statement indicates the I/O units to be immediately unassigned. 
NOTE: SYSLOG and SYSRES may not be unassigned. 



LISTIO PROCESSOR 



Charts PE to PJ 



This phase provides a listing on SYSLOG of the information pertaining to the correct status of logica 
unit I/O assignments. The root phase scan routine is used to get the operand (BG, Fl, F2, ALL, or 
UA). 

If BG, Fl, or F2 is specified, the appropriate system class and programmer class units are listed 
under the desired heading. If the operand ALL is specified all units are listed under their proper 
headings. 

If the operand specified is UA, an UNASSIGNED heading is established and each PUB is 
checked for the unassigned, not down conditions. If these conditions are found, the unit is listed 
as unassigned. If no units are found unassigned the heading, NONE, is listed. 



VOL/TPLAB/TLBL/DLBL PROCESSORS 



Charts PK-PR 



VOL - The sequence of the VOL statement is checked. The 1st parameter SYSXXX is tested, 
converted, and the symbolic unit address is saved in the label save area. The 2nd 
parameter, FILE NAME, is tested and moved to the label output area. A switch is set to 
indicate that the VOL statement has been processed. 
(See Appendix D for format of labels on SYSRES. ) 
TPLAB - The sequence of the TPLAB statement is checked. It must follow a VOL statement. If 
there is a continuation punch in column 72, a second statement is read into the input 
area contiguously with the first statement. There are 49 characters read from the first 
statement and an additional 20 characters from the second statement. If a continuation 
statement is not indicated, a default value is inserted at the end of the 49-character 
record in the input area. The label is moved from the input area to the label output area. 
A switch is set to indicate that only a VOL statement may follow. 
(See Appendix D for format of labels on SYSRES.) 
TLBL - The sequence of the TLBL statement is checked, and default values are inserted for all 

operands from the file ID through the expiration date. The file name operand is tested and 
moved to the label output area. The file ID and date operands are checked, converted, 
and moved to the output area. The date operand may be omitted or may be a retention 
period or an absolute date "yy/ddd". All the remaining operands (file serial, volume 
sequence, file sequence, generation, and version numbers) are then checked and moved to 
the output area, in turn, overlaying the default values (the default values will remain 
for any missing operands). Default values are then inserted for file security, block count, 
and system code. A switch is set to indicate that no other required statements are to come, 
and that neither TPLAB nor DLAB will be accepted. 
(See Appendix D for format of labels on SYSRES.) 
DLBL - The sequence of DLBL statement is checked and default values are inserted for all operands 
from FILE ID through SYSTEM CODE. A default table is built to be used when processing 
the EXTENT statement(s). The FILE NAME operand is tested and moved to output area. 
The file ID and DATE operand are checked, converted, and moved to the output area. 
The DATE operand may be a retention period, an absolute date "yy/ddd", or may be 
omitted. If the file ID was omitted, the file name is inserted as a default value. The 
specified FILE TYPE code is inserted for SD, DA, or IS, and a switch is set to indicate 
that only EXTENT statement(s) may follow. 
(See Appendix D for format of labels on SYSRES.) 



$ 
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Chart 14. Logical Transient Initiator (Part 2 of 2) 



$$BATTNL 



DLAB/XTENT PROCESSOR 



Charts PS to PX 



DLAB - The sequence of the DLAB statement is checked. If must follow a VOL statement. A 

continuation statement is required. It is read into the input area contiguously with the first 
statement. The disk format 1 label is built in the label output area, one parameter at a time. 
The specified file type code is inserted for SD, DA, or IS, and a switch is set on to indicate 
that a DLAB statement has been processed and only an XTENT statement can follow. 

XTENT - The sequence of the XTENT statement is checked. It must follow a DLAB statement or another 
XTENT statement. The parameters are processed one at a time. An XTENT statement is 
required for each extent to be defined for a given set of VOL and DLAB statements. The 
extents are built in a label output area and are written in the SYSRES VOLUME area. 



$$BATTNM 



EXEC PROCESSOR 



Charts PY to QB 



This phase determines the type of program to be executed by using the scan routine to get the operand. 
It tests a program switch to determine if any additional label information is to be output to the SYSRES 
label track. If necessary, it performs the I/O to write and verify the label data. 

This .phase relocated parts of itself in the B -transient area of main storage. It clears main storage 
within the foreground program area except for the foreground save area. The foreground save area 
is initialized with the name of the program to be executed, the PSW values for that program and 
storage space for all registers used. 



/WCll End of ^\ 
\lnitiation Chart 01/ 



$$BATTNM 



UCS PROCESSOR 



Charts QC, QD 



The 240- character Universal Character Set (UCS) specified by the operand "PHASENAME" is loaded in the 
buffer of the IBM 2821 Control Unit of the logical unit specified by the operand "SYSXXX". The phase 
is loaded from the Core Image Library. 

1 . The operand "SYSXXX" specifies a 1403 with the UCS feature. 

2. The operand "PHASENAME" specifies the core image library phase to be loaded. 

3. The operand "FOLD" (optional) specifies that the buffer is to be loaded with the "folding" operation 
code (hex F3) in the 3rd CCW. 

4. The operand "BLOCK" (optional) specifies that data checks are to be inhibited. The inhibit data check 
operation code, X'73 1 , is set in the 2nd CCW. 

5. The operand "NULMSG" (optional) specifies that the 80- character verification message is not to be 
printed. The chain bit is set off in the 3rd CCW. 



$$BATTNO 



EXTENT/LBLTYP PROCESSORS 



Charts QF to QL 



EXTENT - The sequence of the EXTENT statement is checked, and default values are set from the default 
table built by the DLBL statement processor for vol. serial, extent type, seq. no., upper 
and lower extent limits, logical unit, and bin no. The operands are then processed and 
overlay the default values. If the operands are omitted, the default values remain. When 
extent processing is complete, the extents are written in the volume area on SYSRES. 

LBLTYP - 1 . If the first operand is TAPE the size of the label area is set to 80 bytes. 

2. If the first operand is NSD the second operand (nn) is used to calculate the number of 
bytes required to contain the specified number of extents. This computed value plus 84 
bytes determines the size of the label area. 



$$BATTNP 



READ/HO LD/RELSE PROCESSORS 



Charts QM, QN 



READ - This routine assigns a card reader or reader/punch to the logical unit SYSRDR. Control 
statements following this assignment are read from SYSRDR instead of from SYS LOG. 

HOLD - This routine causes the foreground unit assignments for the foreground area specified in the 
operand to stay in effect from one job to the next. 

RELSE - This routine releases foreground unit assignments at EOJ. The foreground area specified in 
the operand of this statement indicates the I/O units to be unassigned. 



<TJ 
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Chart 15. Logical Transient Terminator (Part 1 of 5) 



f $$BEOJ3 J 



QUIESCE I/O 



Chart RD 



All I/O devices associated with the program are dequeued. 
IfT/P is supported, the T/P devices are halted if on queue. 
Queued or not, they are disabled. 



(^ $$BEQJ J 



IJBEJ20+8 



END-OF-JOB ROUTINE 



RA-RC 



User's option tables (Program Check, Interval Timer and Oper- 
ator Communications) are reset if applicable . For MICR devices, 
all addresses in the DTF table of addresses applicable to the 
partition calling the EOJ (either normally or abnormally) are 
zeroed. This phase is sensitive to the second time the terminator 
is called to cancel the same program. This could occur if the 
terminator itself is canceled due to I/O ERROR in putting out 
initial cancel messages on SYSLOG or SYSLST. To avoid get- 
ting a "Cancel-Within-Cancel " loop in the system, the termi- 
nator will not attempt any I/O the second time it is called but 
will perform standard clean-up function. Asa result, expected 
sequence of cancel-messages could be cut short when the termi- 
nator encounters I/O problems. The cause for ending the job is 
determined and the appropriate subsequent program is fetched. 



Load Job Control 
and initialize 
its PSW 
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Chart 16. Logical Transient Terminator (Part 2 of 5) 



C $$BEOJl J 



CAUSE! 



SPECIAL CNCLMSG RTN 



Charts RJ-RK 



Issues special messages for termination in a logical 
transient routine due to Program Check, Illegal SVC 
or Phase-Not-Found causes. The normal messages 
cannot be used as detailed information such as 
phase-name, SVC code, hex location, etc., is not 
available when the cancellation occurs in a logical 
transient routine. The issued message will have the 
sample format: 

0S091 JOB NAMEXXXX CANCELED DUE TO 
ILLEGAL SVC 



C SVC2 $$BPSW J 



C $$BPSW J 



IJBPSW20+8 



PROBLEM PROGRAM STATUS 



Charts RR-RS 



Gives status of the problem program area at the time 
of cancellation by printing the users PSW. The PSW 
is printed on SYSLOG in the sample format: 
0S071 PROBLEM PROGRAM PSW XXXXXXXXXX 
XXXXXX 



c 



DUMP Macro 



C 



J f SVC2 $$BDUMP J 



$$BDUMP 



3 



BDUMP 



STORAGE DUMP RTN 



Charts RV-RW 



Determines and analyzes the cause of job termination and selects 
the proper B-Transient Dump routine or terminates without a 
Dump under condition that a CANCEL macro call has been issued, 
the Job Control Switch in the Supervisor Communication Region 
calling for a Dump is not on or SYSLST is not assigned. A dump is 
always given regardless of the setting of the Job Control Switch, 
if the user issues a Dump-macro and SYSLST is assigned. The Job 
Control Switch in the Supervisor Communication Region calling 
for a dump is only tested for a dump for BG programs. 



DISK /SYSLST 

Device Type 



NO/CANCEL \ YES 
Macro Issued ^ 



A VC2 ^\ 

( $$BDUMPD ) 

\ ghart 18 J 




Simulate Normal 
End-of-Job 



UNBATCHED 
FOREGROUND, 



SVC2 
$$BTERM 
Chart 15 




BG OR BJF 



DOS Supervisor and. Physical and. Logical Transients 



Chart 17. Logical Transient Terminator (Part 3 of 5) 



c 



$$BPCHK 



START 



J 



PROGCHK MSG RTN 



Charts RT-RU 



Writes a message on 

SYSLOG or SYSLST giving 

information about the 

program check. The msg 

is 2 lines in the 

sample format: 

0S03I PROGRAM CHECK 

INTERRUPTION - HEX 

LOCATION xxxxxx - 

CONDITION CODE nn - 

FLOATING POINT DIVIDE 

EXCEPTION 

0S00I JOB NAMEXXXX 

CANCELLED 



C 



$$BILSVC 



IJBSVC20 +8 



j 



C 



$$BEOJ2 



CAUSE 1 



ILLEGAL SVC RTN 



Charts RN-RQ 



>\< 



Processes an invalid 
SVC or Phase-Not-Found 
condition. The message 
is printed on SYSLOG 
(1052 or Printer) if 
SYSLOG is assigned, but 
not assigned to the 
same unit as SYSLST. 
The message(s) is 
printed on SYSLST (prin- 
ter, tape, or disk) if 
SYSLST is assigned. 
The issued message will have 
the sample format: 
0S04I ILLEGAL SVC-HEX 
LOCATION xxxxxx-SVC CODE 
xx 

0S00I JOB NAMEXXXX 
CANCELLED 



j 



CANCEL MSG RTN 



Charts RL-RM 



Prints or records a message 
describing the reason for 
cancellation when a program 
reaches an abnormal end-of-job 
condition. The issued message 
will have the sample format: 
0P75 JOB NAMEXXXX CANC- 
ELLED DUE TO I/O ERROR 
QUEUE OVERFLOW 
The message is printed on SYSLOG 
(1052 printer) if SYSLOG is 
assigned, but not assigned to the 
same unit as SYSLST. 
The message(s) is printed on 
SYSLST (printer, tape, or disk) if 
SYSLST is assigned. 



AVC2 $$BDUMP A 
yChart 16 J 



C 



SVC2 $$BPSW 
Chart 16 



J> 



Charts 
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Chart 18. Logical Transient Terminator (Part 4 of 5) 



C $$BDUMPF j 



START 



FG TAPE/PRINTER DUMP Charts RX-SA 



Records on tape or prints the contents of 
main storage at the time an abnormal 
end-of-job condition occurs. The print- 
out or main storage is in the format: 

1 . Page heading; 

2. General registers 0-7; 

3. General registers 8-15; 

4. Floating point registers, if present; 

5. Partition communication region; 

6. Supervisor; 

7. Label length; 

8. Fl or F2 program identification; 

9. FG program storage area. 

The entire Supervisor and problem pro- 
gram area is printed 12 words to the 
line. For identical lines, the first line 
is printed and —SAME — is inserted for 
all identical lines following. 



O 



a 



SVC2 $$BTERM 
Chart 15 



) 



C $$BDUMPD J 



START 



DISK DUMP 



Charts SG-SK 



Records on disk the contents of main 
storage at the time an abnormal end- 
of-job condition occurs. 
The print-out of main storage is in the 
format: 

1. Page heading; 

2. General registers 0-7; 

3. General registers 8-15; 

4. Floating point registers, if present; 

5. Supervisor COMREG; 

6. Supervisor; 

7. Label length; 

8. BG program identification; 

9. BG program storage area. 

The entire Supervisor and problem pro- 
gram area is printed 12 words to the 
line. For identical lines, the first line 
is printed and — SAME — is inserted for 
all identical lines following. 



Simulate Normal 
End-of-Job 




C $$BDUMPB J 



START 



BG TAPE/PRINTER DUMP Charts SB-SF 



Records on tape or prints the contents 
of main storage at the time an abnor- 
mal end-of-job condition occurs. The 
print-out of main storage is in the 
format: 

1. Page heading. 

2. General registers 0-7; 

3. General registers 8-15; 

4. Floating point regitsers, if present; 

5. Supervisor COMREG; 

6. Supervisor; 

7. Label length; 

8. BG program identification; 

9. BG program storage area. 

The entire supervisor and problem pro- 
gram area is printed 12 words to the 
line. For identical lines, the first line 
is printed and — SAME — is inserted for 
all identical lines following. 



From PDUMP >I12 ^ 



YES 



( SVC 1 1 J 
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DOS Supervisor and Physical and Logical Transients 



Chart 19. Logical Transient Terminator (Part 5 of 5) 



c 



$$BDUMPD 
Chart 18 



D 



C 



PDUMP 
Macro 



J 



C $$BPDUMP J 



START 



PARAMETER-SPECIFIED DUMP Chart SL 



Provides a means of clumping a portion 
of main storage as desired. Analyzes 
whether a Background or Foreground 
program is to be dumped. Tests the 
type of I/O device to receive the 
dump to determine which subsequent 
B-transient routine will be called 
to perform the actual dump. 



DISK 




TAPE/PRINTER 



C 



$$BPDUM1 



:> 



START 



TAPE/PRINTER PDUMP 



Charts SM-SQ 



Records on tape or prints the contents 
of main storage at the time an abnor- 
mal end-of-job condition occurs. The 
print-out of main storage is in the 
format: 

1 . Page heading; 

2. General registers 0-7; 

3. General registers 8-15; 

4. Floating point registers, 
if present; 

5. Program storage area 
specified by parameter limits. 

The problem program area is printed 12 
words to the line. For identical lines, 
the first line is printed and — SAME — 
is inserted for all identical lines 
following. 



T 



SVC 11 
Exit from B- 
Transient Chart 0J, 



Charts 
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Chart AA. $$A$SUP1 - SUPVR Macro, General Entry 
Refer to Chart 01. 



****BL********* 

* EXTERNAL * 

* INTERRUPT * 

* * 
*************** 



CI *. 




.* TIMER *. 




FEATURE OR *. 


NO 


USER INTRPT . 


*.... 


. KEY RTN .* 




*. *D3 .* 




*. .* 


X 


*YES 


***** 




*BD * 




* B2* 


X 


* * 


***** 


* 


*FJ * 


ENTEXT 


* A2* 





****B2********* 

* SUPERVISOR * 

* CALL * 

* INTERRUPT * 
************ - 



***** 
*FA * 
* Bl* 



****B3********* 

* PROGRAM * 

* CHECK * 

* INTERRUPT * 
*************** 



.* USER *. 

. PROG CHECK . 

*. ROUTINE .* 

*. *D5 .* 



****B4********* 

* MACHINE * 

* CHECK * 

* INTERRUPT * 
*************** 



***** 
*DF * 
* H3* 



***** 

*BA * 

* C4* 

* * 



****B5********* 

* I/O * 

* INTERRUPT * 

* * 
*************** 



***** 
*BD * 
* B4* 



*D5 
SUPERVISOR GENERATION 
OPTIONS (FOR ROUTING 
IN FLOWCHARTS). 



STORAGE 
PROTECT 

*D5 



E3 *. 
.* USER *. 
* INTERRUPT *. YES 
KEY ROUTINE .*..X 
*. *D5 .* 
*. .* , 



NTERVAL 


* 


YES 




TIMER 




*..X 




ROUTINE 


*" 






. *D5 .* 








*. .* 




X 


♦NO 




***** 
*FH * 






* B2* 


X 




* * 


***** 




* 


*FG * 




ENTPCK 


* Bl* 
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DOS Supervisor and Physical and Logical Transients 



Chart BA. $$A$SUP1 - FOPT Macro, General Cancels and Program Check without PC Routine 
Refer to Charts 02 and 03. 



****A1********* 

* LOGICAL I/O * 

* CANCEL ENTRY * 

* *A2 * 
*************** 



*****Bi********** 

* * 

* CALCULATE * 

* CANCEL CODE * 

* IN REG. 11 * 

* * 
***************** 



CI *. 
.* DASD *. 
.* FILE PROT *. NO 
*0R 2311 SYSTEM.*... 
*. I/O .* 
*. *D2 .* 
*. .* 
*YES 



*****DL******* 
♦MODIFY SWITCH* 

* AT PCHKSW * 

* IN PROG CHECK * 

* INTERRUPT RTN* 

* TO A NOP *E2* 
************** 



*****EX ********** 
♦CNLSVE BA* 

*_*_*_*_*_*_*_*_* 

* STORE CANCEL * 

* CODE AND * 

* SAVE REGS * 
***************** 



*****P1********** 

* * 

* LOAD ADDRESS * 

* OF BACKGROUND * 

* PIB IN REG 10 * 

* * 
***************** 



*A2 
ENTRY LABELS— 
ERR30,ERR31 
ERR32 t ERR33 
(DEPENDING ON 
SUPERVISOR 
OPTIONS). 
SEE NOTE *D2 
AND FIGURE 25. 



*D2 
SUPERVISOR 
GENERATION 
OPTIONS, 



*E2 
REFER TO NOTE 
N CHART CG THIS 
PROGRAM SWITCH 
IS SET TO BRANCH 
WHEN I/O IS 
ATTEMPTED ON 
A FILE PROTECTED 
DASD. 



*****P2********** 
♦GETPIB CN* 

*_*„*..*_*_*.. *_*.r* 

.X*GET PIB ADDRESS* 
* OF PROGRAM * 
♦BEING CANCELED * 
***************** 



*****G2********** 

* * 

* LOAD PIB * 

* ADDRESS INTO * 

* REG 10 * 

* * 
***************** 



****A3********* 

* LOGICAL * 

* CANCEL ENTRY * 

* *A4 * 
*************** 



*****B3********** 

* * 

* CALCULATE * 

* CANCEL CODE * 

* IN REG 11 * 

* * 
***************** 



*****C3********** 
*CNLSVE BA* 
*_*_*_*-*-*_*_*_* 

* STORE CANCEL * 

* CODE AND * 

* SAVE REGS * 
***************** 



*****D3********** 

* ESTABLISH * 
*EXT02 AS CANCEL* 

* EXIT ADDRESS * 

* IN REG 8 * 

* * 
***************** 



*A4 
ENTRY LABELS— 
ERR20-ERR27, 
INCLUSIVE, AND 
ERR10 FROM SVC 14. 
SEE FIGURE 25. 



***** 

*AA * 

* C3* 

* * 



♦ JG *... 






* D2* 






**** X 






PDNOPCK .*. 






D4 


*. 




.* 






NO .* DASD 


FP *. 




...♦. OR DISK 


I/O 


* 



*****C 5**** ****** 

* STORE REGS. * 

* 9-11, LOAD * 
X* REG. 11 WITH * 

* 4096 AS BASE * 

* REGISTER * 
***************** 



***** 
*JG * 

* B2* 



PROGRAM 

CHECK 
SWITCH 



***** 
*CG * 
* B2* 



*****F4********** 

* MODIFY * 

* GENERAL EXIT * 

* ROUTINE TO * 

* LOAD PROGRAM * 

* CHECK OLD PSW * 
***************** 



*****Hi********** 

* LOAD AODR * 

* OF EXT02 * 

* INTO REG 9 * 

* FOR GENERAL * 

* EXIT * 
***************** 



****G3 ********* 

* * 

* CNLSVE * 

* * 
*************** 



CNLSVE 

*****H3********** 

* STORE * 

* CANCEL CODE * 

* FROM REG 11 AND* 
♦RESTORE REG 11 * 

* AS BASE REG * 
***************** 



*****H4********** 

* STORE REGS * 

* 9-11 UNTIL * 

* GENERAL * 

* EXIT * 

* * 

:************ 



*****J1 ********** 

* ESTABLISH * 

* DEQUEUE AS * 

* CANCEL EXIT * 

* ADDRESS IN * 

* REG 8 * 
***************** 



*****J3********** 
♦SVEREG HA* 
*-.*-.*_*-*-*_*-*-* 
*SAVE REGISTERS * 

* FOR CANCELED * 

* PROGRAM * 
***************** 



*****J4********** 
*GENENT BD* 
*-* T *-*_ *-*-*_*_* 

* GET PIB * 

* ADDRESS * 

* * 
***************** 



X 

***** 

*BB * 

* B2* 

* * 

ERRGO 



****K3********* 

* RETURN TO * 

* LINK ADDRESS * 

* IN REG 7 * 
*************** 



* 1 * 

* * 
**** 
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Chart BB. $$A$SUP1 - FGPT Macro, General Cancel Subroutine 
Refer to Chart 03. 



♦BA-D3 
BA-J1 
***** 



* 1 * 

* * 
**** 



ERRGO X 

*****B2******* 

* SET X«40' * 

* IN PIB 

* CANCEL FLAG 

* TO LOAD 

* $$BE0J * 
************** 



*****B4* ********* 

* * 

* RESET LOGICAL * 

* TRANSIENT KEY * 

* TO IN COMM * 

* REGIN * 
***************** 





C2 *. 










*****C4******* 








.♦CANCEL ♦. 










* RESET TRT * 






YES .♦ IN ♦. 










♦ FUNCTION BYTE* 






...*. PROGRESS .* 










* TO X'03' ♦ 






*. .* 










* B-TRAN AREA ♦ 






*. .♦ 










♦ INACTIVE * 






*. .* 










************** 






*NO 


*D3 
















SUPERVISOR 














GENERATION 






X 






ERRSETO X 


OPTION 




LTACNL .♦. 






*****02 ********** 










D4 ♦. 




****oi********* 


* POST * 










.* SVC *. 




* 


* CANCEL CODE * 










.♦ ISSUED *. NO 




ERRSET * 

* 


* IN PIB * 

* CANCEL FLAG * 










♦. BY LOGICAL .♦... 






♦.TRASIENT .♦ 






*************** 


* * 
***************** 










♦ . .♦ 
♦ . .* 






lx . 












*YES 






X 


X 
















.♦. 


.*. 










X 






El *. 


E2 *. 










*****E4********** 


X 


.♦MULTI- *. 


.* *. 










♦ RESET LOGICAL ♦ 


****E5******* 


.♦PROGRAMMING*. YES 


.* MULTI- . ♦ . NO 








♦ TRANSIENT ♦ 


♦ BRANCH TO 


OPTION .*.... 


*. PROGRAMMING .*. 
*. OPTION .* 










♦ CONTROL ♦ 

♦ SWITCH ♦ 


♦ EXIT ADDR 


*. *D3 .* 






♦ IN REG 8 ^J4 


*. .* 


♦ . *D3 .♦ 










* * 


************* 


*. .* 


*. .* 










***************** 




*NO 


*YES 














X '. 
**** 


x! 




X 










* * 






* 2 * 


ERRSET X 




.♦. 






X 




* * 


*****F2******* 




F3 *. 






*****P4******* 




**** 


* SET PIB * 




.* *. 






♦ SET B-TRAN ♦ 






* FLAG TO * 




.♦BACKGROUND 


♦ . 


NO 


♦ BIT X«80' ♦ 






* X'81' t REGS * 




*. PROG BEING 




♦ . .. . 


♦ IN CANCEL ♦ 






* SAVED AND * 




♦.CANCELED . 


*" 




♦ BYTE OF PIB ♦ 






* SVC 2 BOUND* 




*. .* 






* * 






************** 




♦ . .* 
♦YES 
**** 

* * . 

* 2 ♦. . . 

* * 




X 

***** 

*DC ♦ 

* G4* 

* * 

* 


************** 


♦ G5 
ADDRESS POINTERS 




X 




**** x 




SUPCNL 




OF THE LOGICAL 




.*. 


ERRSET .*. 




SETLT2 X 


TRANSIENT SAVE 




G2 *. 




G3 *. 






*****G4********** 


AREA AND THE 




.* *. 










♦ EXCHANGE ♦ 


PROBLEM 




.* SUPVR *. YES 


.* LOGICAL 


♦ . 


YES 


♦ LOGICAL TRAN ♦ 


PROGRAM USING 




*. BEING .♦. 




♦. TRANSIENT 




♦ ... . 


♦ AND PIB SAVE ♦ 


THE TRANSIENT 




♦.CANCELED .♦ 




♦. ACTIVE . 


*" 




* AREA POINTER ♦ 


AREA ARE 




*. .♦ 




♦ . .♦ 






* *G5 ♦ 


REVERSED WHEN A 




*. .* 


X 


*. .* 




X 


***************** 


LOGICAL 




*NO 


***** 

*DC * 

* G4* 

* * 

* 


♦NO 




**** 

* * 

* 1 * 

* * 
**** 




TRANSIENT IS 
ACTIVE. 




X 

*****H2 ********** 


SUPCNL 
















X 






X 






* RESTORE * 




****H3********* 


****H4********* 






* REG 10 * 




* BRANCH TO 




* 


♦ BRANCH TO ♦ 






* TO ADDRESS * 




* EXIT ADDR 




* 


♦ EXIT ADDRESS ♦ 






* OF PIB * 




♦ IN REG 8 ^J4 


* 


♦ IN REG 8 ^J4 ♦ 






* TABLES * 




************* 


l=** 


*************** 






***************** 

















DOES THE 

CANCELED PROGRAM 
OWN THE LTA. 



LOGICAL 
TRANSIENT 
. ACTIVE . 
♦. *J1 .♦ 



♦J4 
EXT02 (CHART BC ) IS THE EXIT FOR 
LOGICAL CANCELS AND 
NORMAL EOJ. 

DEQUE (CHART FD) IS THE EXIT FOR 
LOGICAL I/O CANCELS. 
SEE CHART BA. 



♦ ♦♦♦^♦♦♦♦♦♦♦♦^ 

♦ BRANCH TO ♦ 

♦ EXIT ADDRESS ♦ 
♦IN REG 8 ^J4^ 

*************** 
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dos supervisor and Physical and Logical Transients 



Chart BC. $$A$SUP1 - FOPT Macro, General Exits 
Refer to Chart 01. 



***** 

* * * 

* A2* 



***** 

*HA * 

* A4* 

* * 



*A2 
MULTIPLE 
ENTRIES 
FROM ALL 
MACROS. 



**** 

* * 

* 1 * 

* * 
**** 



*B2 
SUPERVISOR 
GENERATION 
OPTION. 

**** 

* * 

* 3 * 

* * 
**** 



SUPEXT 

*****D2******* 

* SET FLAG * 

* IN SUPERVISOR* 

* PIB TO X'84' * 

* INACTIVE * 

* * 
************** 



**** 

* * 

* 4 * 

* * 
**** 



**** 

* * 

* 2 *.X 



EXT03 

*****B3********** 

*SVEREG HA* 
*_*_*_*_*_*_*_*_* 

*SAVE REGISTERS * 
*OF INTERRUPTED * 
* PROGRAM * 
***************** 

**** 



NO .* MICR 
...*. AND MPS 
*. *B2 



*****D3********** 

* SET EXT04 * 

* ENTRY TO A * 

* NOP FOR NO * 
*TASK SELECTION * 

* * 
************ 



* 6 



**** 
EXTEOJ X 

*****B4******* 

* RESET PIB * 

* FLAG TO X'03'* 

* REGISTERS NOT 

* SAVED, NOT * 

* 7 OR 2 BOUND* 
************** 



* H3* 




X **** 




EXT04 .*. 




Fl *. 




.* *. 




.* TASK *. YES 


*. SELECTION .*. 




*. .* 




*. .* 




*. .* 


X 


*NO 


**** 




* 




* 2 




* 


x! 


**** 


X 




*****Gi ********** 




* GET ADDRESS * 




* OF PROBLEM * 




* PROGRAM SAVE * 




* AREA * 




* * 




***************** 




" **** 




* * 




. ..* 5 * 




. * * 




**** 




X 




*****H1 *«.******** 




* * 




* RESTORE * 




* REGISTERS * 




* 1-8 * 




* * 




***************** 




I **** 




* * 




...* 4 * 




* * 




**** 




LMERA X 




*****J i********** 




* * 




* RESTORE * 




* REGISTERS * 




* 9-11 * 





*****P2********** 

* EXECUTE * 

* BRANCH * 
♦INSTRUCTION IN * 

* INTERRUPTED * 

* PROGRAM PIB * 
***************** 



*****E3********** 

* SCAN PIBS TO * 

* DETERMINE * 
♦HIGHEST ACTIVE * 

* OR NOT-SVC 7- * 
*B0UND PROG. *G2* 
***************** 



*****F3****** 

* EXECUTE * 

* BRANCH * 

* INSTRUCTION * 

* IN HIGHEST * 

* ACTIVE PIB * 
***************** 



C4 *. 

.♦CANCEL *. 

* BIT IS * 

ON IN PIB 
*. FLAG .* 



*****04* ********* 

* MOVE OLD PSW * 

* FROM SAVE * 

* AREA TO * 
♦COMMUNICATIONS * 

* REGION, ERA * 
***************** 



MPS *. NO 
AND FP .*... 
*B2 .* 



*****F4********** 

* RESTORE * 

* FLOATING * 

* POINT * 

* REGISTERS * 

* * 
***************** 



CNCL 

*****A5******* 

* SET PIB * 

* FLAG TO * 
.X*X«80« TO AVOID 

* RE-SAVING * 

* REGISTERS * 
************** 



*****B5********** 

* * 

* LOAD ADDRESS * 

* OF $$BE0J3 * 

* INTO REG 1 * 

* * 
***************** 



*****C5********** 

* TURN OFF * 
*LIOCS BYTES IN * 
♦COMMUNICATIONS * 

* REGION * 

* * 
***************** 



***** 
*FC * 
* Bl* 



*****P5********** 

* GET ADDRESS * 

* OF COMM. * 

* REGION FROM * 

* 2ND HALF OF * 

* PIB TABLE * 
***************** 



*G2 
IF THE SYSTEM HAS 
BEEN SEIZED BY A 
SVC 22 ISSUED IN 
A FG1, FG2, OR BG 
PROGRAM, THE TRT 
OPERATION WILL 
NOT STOP AT THE 
OTHER 2 PROBLEM 
PROGRAM PIBS OR 
THE ATTENTION PIB. 



***************** 



****Kl ********* 

* LOAD PSW * 

* (OLD PSW FROM * 
*LAST INTERRUPT)* 

*************** 







NO .* *. 


YES 


* ATTENTION 






*. MICR .* 


. ..* 


ROUTINE 






*. *B2 .* 


*. PIB 






*. .* 




*. .* 






*. .* 


X 


*. .* 






*YES 


*HA * 

* A4* 

* * 

* 

ATNRTN 


♦NO 
X 


X 


X 




.*. 


*****J2******* 


*****J3******* 




J4 *. 


* TURN ON * 


* TURN ON * 




.* * 


* WAIT BIT * 


* WAIT AND * 


YES 


.* QUIESCE 


* IN EXTERNAL * 


* PROB. PROG. * 


...* 


I/O PIB 


* OLD PSW * 


* BITS IN I/O * 




*. 


* * 


* OLD PSW * 




*. .* 


************** 


************** 


X 


*. .* 






***** 


*NO 








*DG * 










* B2* 










* * 
* 


• 








QUISIO 


X 


X 


X 




K4* **. 


****K2********* 


****K3********* 




.* * 


* LOAD * 


* LOAD * 




.♦SUPERVISOR 


* EXT. OLD * 


* I/O OLD * 


* 


INTERRUPT 


* PSW * 


* PSW * 




*. 


*******s 


******** 


*************** 




*. .* 



*****G5********** 

* * 

* RESTORE * 

* ALL GENERAL * 

* REGISTERS * 

* * 
***************** 



****H5********* 

* LOAD PSW * 

* FROM * 

* ERA * 
*************** 



*****J5********** 

* GET ADDRESS * 

* OF SAVE AREA ♦ 
.X* FROM HIGHEST * 

* ACTIVE PIB * 



* 3 * 

* * 
**** 
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Chart BD. $$A$SUP1 - FOPT Macro, General Entry 
Refer to Chart 01. 



***** 

*AA * 

* CI* 

* * 



I/O INTERRUPT 
***** 
*AA * 
* B5* 



.* INTERRUPT *. NO 
*. FROM MICR .*... 
*. DEVICE .* 



.X* 



****B3********* 
* LOAD EXTERNAL * 
OLD PSW * 
(IGNORE) * 
*************** 



*****C i********** 

* SAVE ADDRESS * 

* OF EXTERNAL ' 

* OLD PSW FOR 

* GENERAL * 

* EXIT * 
***************** 



*X. 



PROB .* *. ALL 
PROG .*INTERRUPTED*.BOUND 

*. SYSTEM .* 

*. STATE .* 



* LOAD BASE * 
X* REGISTER * 

* (40961 * 

* * 
***************** 



ENTIO X 

*****B4********** 

* SAVE AODR OF * 

* I/O OLD PSW * 

* AND REGS 9-11 * 

* FOR GENERAL * 

* EXIT * 
***************** 



*****C4********** 

* LOAD ADDRESS * 

* INTRTN IN * 

* REG 9 FOR * 

* LINK RETURN * 

* * 
***************** 



*B5 
SUPERVISOR 
GENERATION 
OPTION. 



****C5********* 



*************** 



*****01********** 

* SAVE REGS * 

* 9-11 FOR * 
*. GENERAL * 

* EXIT * 

* * 
***************** 



*****E1********** 

* SET UP * 

* REG 11 WITH * 

* 4096 FOR * 

* BASE REG. * 

* * 
***************** 



PDSUPV 

*****Q2********** 

* SAVE REG 11 * 

* IN PDREG AND * 

* LOAD Rll WITH * 

* 4096 AS BASE * 

* t REG. * 
***************** 



*****E2********** 

* * 

* SAVE REGS * 

* 1-10 IN * 

* PDSAVB+12 * 

* * 
***************** 



YES .* MULTI- *. NO 

....*. PROGRAMMING .*... 

*. OPTION .* 



GENENT 

*****E3********** 

* USE PIK FROM * 

* COMM RGN TO * 

* CALC ADDR OF * 

* INTERRUPTED * 

* PIB IN REG 10 * 
***************** 



* SET REG 11 * 
.X* AS BASE REG. * 

* WITH 4096 * 

* * 
***************** 



E5 *. 

.♦PROBLEM*. 

* PROGRAM * 

INTERRUPTED 



.* MPS *. YES 
OPTION .*.... 
*. *B5 .* 



*****G1********** 

* GET SAVE * 

* AREA ADDR * 

* FROM * 

* BACKGROUND * 

* PIB * 
***************** 



*****H1 ********** 

* SAVE USER'S * 

* REGS 1-8 * 

* IN REG * 

* SAVE AREA * 

* * 
****************** 



*****jl********** 

* GET ADDRESS * 

* OF BACKGROUND * 

* PIB IN * 

* REG 10 * 

* * 
***************** 



*****G2********** 

* USE PIK FROM * 

* CCMM RGN TO * 

* CALC ADDR OF * 

* INTERRUPTED * 

* PIB IN REG 10 



*****H2********** 

* GET ADDR OF * 

* INTERRUPTED * 

* PROGRAM SAVE * 

* AREA FROM * 

* PIB * 
***************** 



*****j2********** 

* STORE * 

* REGISTERS * 

* 1-8 IN * 

* SAVE AREA * 

* * 
***************** 



*****Q3********** 

* GET ADDR OF * 

* INTERRUPTED * 

* PROGRAM SAVE * 

* AREA FROM * 

* PIB * 

***********: 



*****H3********** 

* STORE * 

* REGISTERS * 

* 1-8 IN * 

* SAVE AREA * 

* * 
***************** 



GEN1 X 

*****P4********** 

* GET ADDRESS * 

* OF PIB FOR * 

* INTERRUPTED * 

* TASK * 

* * 
***************** 



*****G4******* 

* SET ACTIVE * 

* BIT X»01» * 

* IN PIB * 

* FLAG * 

* BYTE * 
************** 

* **** 
. * * 
..X* 2 * 
* * 
**** 
GEN1 

*****H4******* 

* SET ACTIVE * 

* BIT X«01« * 
..X* IN PIB * 

* FLAG BYTE * 

* * 
************** 



*****(:5********** 

* GET ADDRESS' * 

* OF SAVE * 

* AREA FROM * 

* BACKGROUND * 

* PROGRAM PIB * 
***************** 



*****G5********** 

* STORE * 

* REGISTERS * 

* 1-8 IN * 

* SAVE AREA. * 

* * 
************ 



*****H5********** 

* LOAD ADDRESS * 

* OF BACKGROUND * 

* PROGRAM PIB * 

* INTO REG 10 * 

* * 
***************** 



* 1 *.X. 



***** 
*JA * 
* Bl* 



* SET UP REG 11 * 

* AS BASE REG * 

* WITH 4096 * 

* * 
***************** 



****K3********* 

* RETURN TO * 

* LINK ADDRESS * 

* IN REG 9 *K4 * 
*************** 



*K4 
REGISTER 9 
POINTS TO 
INTRTN — CHART CJ-Ai. 
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Chart CA. $$A$SUP1 - SGTCHS Macro, Channel Scheduler with MPS 
Refer to Chart 04. 



SVC 15 
***** 
*FA * 
* J2* 



SVC15 .♦. 


SUPEXP X 


Bl *. 




*****B2********** 


.* *. 




* LOAD ADDRESS * 


.* CHANQ *. YES 


* OF SUPERVISOR * 


*. TABLE .* 




* CCB FROM * 


*. FULL .♦ 




* REG. 15 TO * 


*. .* 




* REG. 1 * 


*. .* 


X 


***************** 


♦ NO 


***** 

*BC * 

* Bl* 

* * 

EXT01 




X 




X 


*****d********** 




*****C2********** 


* CLEAR REG * 




* LOAD REG 6 * 


* TO INDICATE * 




*WITH REQUESTOR * 


* NO CHANQ * 




* I/O KEY * 


* OVERFLOW * 




* FROM RIK * 


* * 




* * 


***************** 




***************** 


l **** 






* * 






.X.* FA * 






* Gl* 






x ****svc 




SVCOO .♦. 




X 


01 *. 




*****D2 ********** 


.* *. 




* * 


.* CHANQ *. YES 


* GET ABSOLUTE * 


*. TABLE .* 




* LUB NUMBER * 


*. FULL .♦ 




* FROM CCB * 


** .* 




* * 


*. .* 


X 


***************** 


*N0 


***** 




**** 


*FC * 




* * 


* F2* 




** *... 


* * 




* Kl* 


* 




**** . RESVC 




SVC25.SVC27 X 

*****£ 1********** 




X 




*****E2********** 


* LOAD PIK * 




* SUBTRACT * 


* FROM * 




* NUMBER OF * 


* COMMUNICATION * 




* BACKGROUND * 


* REGION * 




* LUBS * 


* INTO REG 6 * 




* * 


***************** 




***************** 



* LOAD ADDRESS * 

* OF END * 

* OF CCB * 

* * 
***************** 



*****C3********** 
*VLDADR2 HA* 
*_*_*,.*_*_*-*_*_* 

* VALIDATE * 

* END OF CCB * 

* ADDRESS * 
***************** 



EXCP4 

*****D3********** 

* CLEAR PUB * 

* ADDRESS FROM * 

* REG 3 AND * 

* GET LUB INDEX * 

* * 
***************** 



*****B4********** 
♦STORE RELATIVE * 

* LUB NUMBER, * 

* RELOAD THE * 

* ABSOLUTE * 

* LUB NUMBER * 
***************** 



**** 

.xl 



EXCP6 X 

*****C5******* 

* CLEAR * 

* CHANNEL 

* SCHEDULER 

* BITS IN 

* THE CCB * 
************** 



*****Q5********** 

* CALCULATE * 

* ADDRESS OF * 

* LUB ENTRY * 

* AND PUB * 

* POINTER * 
***************** 



SYSTEM *. NO 
CLASS LUB .*... 
*K3 .* 



**** 

* * 

* 1 * 

* * 
**** 



COMPCLC .*. 

Gl *. 
.* *. 
NO .* SVC 
...*. BY LOGICAL 
♦.TRANSIENT. 



.♦ IS ♦. YES 
RESULT .♦... 
♦.NEGATIVE .* 



*****G2*********+ 

♦ SUBTRACT ♦ 

♦ NUMBER OF ♦ 

♦ FOREGROUND 2 ♦ 

♦ LUBS ♦ 

♦ * 
***************** 



.* IS * 




NO .* IS ♦. 


*. TRANSIENT 


"* 


...♦. RESULT .♦ 


♦.IN SUPVR .♦ 




♦.NEGATIVE .♦ 


*. .* 




♦ . .* 


*. .* 




♦ . .♦ 


*YES 




♦YES 


X 




!x 

RADLDS X 


*****jl********** 


*****j2********** 


* ZERO RID 


* 


* RE-ADD THE ♦ 


* IN REG 6 


* 


♦ NUMBER THAT ♦ 


* FOR ADDRESS 


* 


♦ WAS JUST ♦ 


* VALIDATION 


* 


♦ SUBTRACTED ♦ 


* 

*************** 


* 
(t* 


* * 
***************** 


xl 




xl 


X 


X 


**** 




**** 



*****G3********** 

♦ SET LOGICAL * 

♦ UNIT ID AND * 

♦ CALCULATE ♦ 

♦ LUB INDEX ♦ 

♦ FACTOR ♦ 
***************** 



*****F4********** 

♦ GET NUMBER ♦ 

♦ OF FIRST LUB ♦ 

♦ ASSIGNED TO ♦ 

♦ INTERRUPTED ♦ 

♦ PROGRAM ♦ 
***************** 



♦ CALCULATE ♦ 

♦ PROGRAMMER ♦ 

♦ LUB NUMBER ♦ 

♦ * 
***************** 





E5 *. 




.* IS 


NO 


.♦ LUB X'FF 


.. .♦ 


. OR X'FE« 




♦ . ^K5 




*. 


X 


*. .* 


***** 


♦ YES 


♦CC *EXCP3 


* Bl* 




* * 




* 






X 


EXCPIGN .*. 




F5 ♦. 



X 

***** 
*BA ♦ 
* B3 + 



LUB 

NUMBER 

VALID 



***** 

♦ BA ♦ 

♦ B3* 
* * 



*****G5******* 

♦ TURN ON ♦ 

♦ TRAFFIC BIT 

♦ IN CCB, 

♦ BYTE 2 

♦ * 
************** 



*****H5******* 

♦ POST ♦ 

♦ CHANNEL END 

♦ AND DEVICE 

♦ END IN CCB, 

♦ BYTE 4 * 
************** 



***** 
*BC ♦ 
* Bl* 



•FF'= IGNORE 
'FE^ UNASSIGNED 



♦ Kl 
LABELS APPEAR WITH 
TP OPTIONS ONLY. 
ENTRY IS FROM FA-J2. 
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Chart CB. $$A$SUP1 - SGTCHS Macro, Channel Scheduler without MPS 
Refer to Chart 04. 



*A2 
SUPERVISOR 
GENERATION 
OPTION. 



*A4 
X'00'=SYSTEM CLASS UNITS 
X'Ol^PROGRAMMER UNITS 



***** 
*FA * 
* J2* 



**** 

* * 

* 3 * 

* * 
**** 



CHANQ * 


. YES 


TABLE 


.* 




. FULL .* 






*. .* 






*. .* 




X 


*NO 




***** 

*BC * 

* Bl* 

* * 

EXT01 


X 






**ci********** 




LEAR REG. 


* 




TO INDICATE 


* 




NO CHANQ 


* 




OVERFLOW 


* 





SUPEXP X 

*****B3********** 

* LOAD ADDRESS * 

* OF SUPERVISOR * 

* CCB FROM * 

* REG. 15 TO * 

* REG. 1 * 
***************** 



SYSTEM 
CLASS LUB 

*A4 



***************** 



CHANQ 
TABLE 
FULL 



X 

***** 
*FC * 
* F2* 



.* SP *. 
*. OR DASDFP .* 

*. *A2 .* 



STORAGE 

PROTECT 

*A2 



* LOAD ADDRESS * 

* OF END * 

* OF CCB * 

* * 
***************** 



*****E2********** 
*VLDADR2 HA* 
*_*_*_*_*_*_*_*_* 

* VALIDATE * 

* END OF CCB * 

* ADDRESS * 
***************** 



*****03********** 

* LOAD REG. 6 * 
*WITH REQUESTOR * 

* I/O KEY * 

* FROM RIK * 

* * 
***************** 



*****04* ********* 

* GET LUB * 

* NUMBER .* 

* FROM REG. 3 * 

* INTO REG. 2 * 

* * 
***************** 



*****05 ********* 
* 

* CALCULATE 

* PROGRAMMER 

* LUB NUMBER 
* 
**************** 



*****E3********** 

* * 

* GET SYMBOLIC * 

* UNIT ADDRESS * 

* FROM CCB * 

* * 
***************** 



*****Gi ********** 

* LOAD X'10« * 

* (BACKGROUND * 

* PIK) INTO * 

* REG. 6 AS RID * 

* * 
***************** 



* SVC 

BY LOGICAL 
♦.TRANSIENT. 



* CLEAR PUB * 

* ADDRESS * 

* FROM REG. 3 * 

* * 
***************** 



SP 

OR DASDFP 

*A2 



YES .* REQUEST 
.X.*. IS FROM 
*. SUPVR 



**** 

* * 

* 2 * 

* * 
**** 



EXCP6 

*****F3******* 

* CLEAR * 

* CHANNEL 

* SCHEDULER 

* BITS IN 

* THE CCB * 
************** 



*****G3* ********* 

* CALCULATE * 

* ADDRESS OF * 

* LUB ENTRY * 

* AND PUB * 

* POINTER * 
***************** 



EXCP5 


.*. 

E4 *. 

* * 






.* 


LUB 


* 


NO 


*. 


NUMBER 




*. . . . 


* 


VALID 
*. .* 


* 






*. .* 




X 




*YES 




***** 
*BA * 
* B3* 

* * 






ERR27 



.*. 

H3 *. 

.* IS * 

LUB X'FF' 

OR X'FE' 


* 
* 


YES 


EXCP 
. ..X* 


.* 
** 


i .*. 

H4 *. 
* 

IS . 
LUB X'FF 


*G4 

*. .* 

*. .* 

*NO 






**. .** 
*YES 


X 
***** 

*cc * 

* Bl* 










X 

***** 
*BA * 
* B3* 



*****K1********** 

* ZERO RID * 

* IN REG. 6 * 

* FOR ADDRESS * 

* VALIDATION * 

* * 
***************** 



*****j2********** 

* * 

* LOAD LUB * 

* NUMBER * 

* INTO REG. 3 * 

* * 
***************** 



* 3 * 

* * 
**** 



*****H5******* 

* TURN ON * 

* TRAFFIC BIT 
X* IN CCB 

* BYTE 2 

************** 



*****j5******* 

* POST * 

* CHANNEL END 

* AND DEVICE 

* END IN CCB, 

* BYTE 4 * 
************** 
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Chart CC. $$A$SUP1 - SGTCHS Macro , Channel Scheduler (Part 
Refer to Chart 04. 



1 of 2) 



**** 

* * 

* 2 * 

* * 



*A2 
SUPERVISOR 
GENERATION 
OPTION. 



*****B2********** 

* STORE CCB * 

* ADDRESS AND * 

* X«FF« CHAIN * 

* FIELD IN THE * 

* CHANQ ENTRY * 
***************** 



*A3 
THIS TEST AND 
THE SUBSEQUENT 
CODING WILL BE 
EXECUTED ONLY 
IF THE OPTION 
WAS SPECIFIED 
AT GENERATION 
TIME. 



*B3 
REFER TO FIGURE 
26 FOR QUEUING 
AN ENTRY TO THE 
CHANQ TABLE. 



X 
.*. 
CL *. 
* 

1419D 

*A2 
*. 

*. .* 
*NO 



*****01********** 

* SET SYSTEM * 

* MASK TO * 

* DISABLE ALL * 

* INTERRUPTS * 

* * 
***************** 



NO .* *. 

...♦TELEPROCESSING.* 
*. *A2 .* 



.* HALT I/O 
(SVC 25 
*. OR 27) 



SP 

OR DASDFP 

*A2 



*****D2********** 

* STORE * 

* REQUESTOR * 

* I/O KEY * 

* IN REQID * 

* ENTRY * 
***************** 



*****Q3********** 

* STORE X«10« * 

* (BACKGROUND) * 
*IN REQID ENTRY * 

* * 
***************** 



***** 
*CD * 
* B2* 



FLPTR X 

*****G1********** 

* CALCULATE * 

* ADDRESS OF * 

* FIRST CHANQ * 

* ENTRY IN * 

* FREE LIST *B3 * 
***************** 



*****Hl ********** 

* MOVE CHAIN * 

* FIELD FROM * 

* FIRST ENTRY * 

* TO THE FREE * 

* LIST POINTER * 
***************** 



*****E2********** 

* DETERMINE * 

* PUB * 

* FOR * 

* THIS * 

* DEVICE * 
***************** 



* SEEK *. 

SEPARATION . 

*. *A3 .* 



*****G2********** 

* DETERMINE * 

* DEVICE * 

* TYPE * 



***************** 



**** 

* * 

* 4 * 

* * 
**** 



SVNWAD X 

*****F3********** 

* SAVE NEW * 

* SEEK * 

* ADDRESS * 



***************** 



G3 *. 

.* PUB *. 

.*HAS REQUEST*. 

ALREADY 

*. QUEUED 



MVCCW X 

*****B4********** 

* GET CCW * 

* ADDRESS FROM * 

* CCB, LOAD IT * 

* IN REG 6 * 

* * 
***************** 



.* COMMAND * 
.CODE IS LONG 
*. SEEK .* 



*****D4********** 

* GET SEEK * 

* ADDRESS FROM * 

* CCW, LOAD IT * 

* IN REG 7 * 

* * 
***************** 



*****E4********** 

* GET SAB * 

* POINTER FROM * 

* PUB, UPDATE * 

* SAB TO NEXT * 

* ENTRY * 
***************** 



.* NEW 
SEEK 
*. ADDRESS 



**** 

* * 

* 3 * 



*****A5********** 

* TURN OFF * 

* CHAIN BIT * 

* IN SEEK * 

* CCW * 

* * 
***************** 



*****B5********** 

* TURN ON BITS * 

* IN CCB FOR * 
*POST-AT-DEVICE-* 
*END AND ACCEPT * 

* UNRECOV ERROR * 
***************** 



*****C5********** 

* TURN ON * 

* SEEK * 

* OVERLAP * 

* BIT IN CCB * 

* * 
***************** 



.* 



**** 

* * 

* 5 * 

* * 
**** 



*****H3********** 

* QUEUE THE * 

* REQUEST * 

* TO THE * 

* PUB * 

* * 
***************** 



DOES *. YES 
USER WANT .*, 
. SENSE .* 



.* DEVICE *. 

.END OR ACCEPT. 

*. UNRECOV .* 

♦.ERROR.* 



* GET 

* CHANQ POINTER 

* FROM THE PUB 
* 
**************** 



FNDQUE1 X 

*****P5********** 

* GET * 

* POINTER * 

* TO NEXT ENTRY * 

* IN QUEUE FROM * 

* CHAIN FIELD * 
***************** 



*****G5********** 

* CALCULATE * 

* ADDRESS OF * 

* CHANQ ENTRY * 

* IN TABLE ♦ 



***** 



********* 



* 

MI( 

*. *; 
*. 
*. 


:r 

*2 

.* 
.* 

>NO 


*. 
.* 


YES 


.♦ ♦. YES 

..X*. 1419D .*.... 

♦ . ^A2 .♦ 

♦ . .* 

*. .* 

*NO 

X I 
*****«2********** 

* SET SYSTEM * 

* MASK TO * 

* DISABLE ALL ♦ 

* INTERRUPTS ♦ 

* * . 
***************** 

x!x 1 



.* CAN *. 


.♦ 


DEVICE *. YES 


.* IS 


BE STARTED .*.... 


*. SEEK 


.♦ 


*. CHAINED 



***** 
*BC ♦ 
♦ Bl* 



*****J5********** 

♦ STORE OLD * 

♦ FREE LIST * 

♦ POINTER IN * 

♦ CHAIN FIELD * 
♦TO QUEUE ENTRY * 
***************** 



***** 
*BC * 
* Bl* 



*K4 
CE-B1 (NO OPTIONS) 
CF-A1 (MAXIMUM OPTIONS) 



* 1 * 

* * 
**** 
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Chart CD. $$A$SUP1 - SGTCHS Macro, Channel Scheduler (Part 2 of 2) 
Refer to Chart 04. 



*cc * 

* Fl* 
* * 



DEVICE 

TYPE IS 

T/P 



ANY *. NO 
CHANQ .*..) 
ENTRIES .* 



***** 
*BC * 
* Bl* 



*****D2********** 
*CQDSP CN* 
*..*_*_*_*_*_*_*_* 

* GET CHANNEL * 

* QUEUE * 

* ENTRY * 
***************** 



HALT X 

******B4*********** 

ISSUE 

* HALT I/O * 

ON T/P 

* DEVICE * 

************* 



* INTERRUPT : 

PENDING IN 
*. SUB-CHAN . : 



***** 
*FC * 
* F2* 



.* NOT * 


YES 


. OPERATIONAL 


*. . . . 


*. .* 




*. .* 




*. .* 


X 


*NO 


***** 




*DA * 


. 


* Bl* 



.* WAITING 
. FOR DEVICE 
♦.END ONLY . 



CHANNEL 
IN BURST 
. MODE 



H2 *. 
* THIS * 
IS LAST 
DEVICE 
STARTED 



***** 
*FD * 
* H5* 



X 

***** 
*FC * 
* F2* 



***** 
*DF * 
* E5* 



* HALT I/O 


*« 


YES 


(SVC 25) 




*.... 


*. 


.* 




*. .* 






*. .* 




X 


*NO 




***** 
*FD * 
* H5* 


X 




* * 


***** 




* 


*BC * 




IOPSE 


* Bl* 






* * 
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Supervisor and Physical and Logical Transients 



Chart CE. $$A$SUP1 - Supervisor, SGTCHS Macro, Start I/O — No Options 
Refer to Chart 04. 



**** 

* * 

* * 
**** 



***** 

*CF * 
* C5* 



* LOAD CHAN * 

* AND UNIT * 

* FROM PUB * 

* * 
***************** 



.* READING *. YES 
*. PAST /£ .*.... 



***** 

*BA * 

* Bl* 

* * 



* MOVE CCW * 

* ADDR FROM * 

* CCB TO CAW * 

* * 
***************** 



UNCOMMON .*. 






C3 *. 






.* CHAN * 






.* BUSY OR 


*. 


YES 


*NOT OPERATIONAL*.... 


*. 


* 




*. .* 






*. .* 




X 


♦ NO 




***** 
*DA * 






* Al* 


I 




* * 

* 


X 




NOSTART 


.*. 

D3 *. 






.* * 






.* CHANNEL 


"*. 


YES 


*. FAILURE 




*.... 


*. 


,*" 




*. •* 






*. .* 




X 


*NO 




***** 

*DF * 

* E5* 

* * 






* 


X 

.*. 
E3 *. 




CHFAIL 






.* ANY * 






YES .*CHAN STATUS*. 




...♦.EXCEPT PCI OR. 


* 


*. WRONG 


.* 




♦LENGTH.* 







************* 



F3 *. 

.* ANY *. 

.DEVICE STATUS. 

*. EXCEPT BUSY . 

*. OR .* 

*. MOD .* 

*. .* 

*YES 



***** 
*BC * 
* Bl* 



* MOVE CHANNEL * 

* AND UNIT TO * 

* I/O OLD PSW * 

* * 
***************** 



* 1 * 

* * 
**** 



*****H1********** 

* SAVE CHAN * 

* AND UNIT, * 

* AND PUB * 

* ADDR * 

* * 
***************** 



*****H3********** 

* STORE CAW * 

* WITH CCW * 

* ADDR + 8 IN * 

* CSW * 

* * 
***************** 



*****jl******* 

* SET X«80« * 

* IN PUB FLAG 

* TO INDICATE 

* DEVICE BUSY 

* * 
************** 



***** 
*CJ * 
* A4* 



X 

***** 
*BC * 
* Bl* 
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Chart CF. $$A$SUP1 - SGTCHS Macro, Start I/O — 
Refer to Chart 04. 



Maximum Options (Part 1 of 3) 



***** 


***** 


*cc * 


*CK * 


* J3* 


* Jl* 


* * 


* * 


* 


* 


*A2 


. 


EXT03 IF ATTENTION. 




X EXT02 IF RETURN FROM 


Ix 


R .*. ER"P TRANSIENT. 


TSTEOJ X 


Al *. EXT01 FOR OTHER 


*****A3********** 


.♦ MPX ♦ . CONDITIONS. 


* STORE CHANNEL * 


* CHAN ♦ . YES 


* AND UNIT * 


OPERATING IN .*.... 


* FOR START * 


*.BRST MODE.* 


* I/O COMMAND * 


*. *E2 .* 


* * 



*****B1 ********** 

* * 

* LOAD CHANNEL * 

* AND UNIT * 

* FROM PUB * 

* * 
***************** 



.* DEVICE * 
.ON MULTIPLEX 
*. CHAN .* 



******D1 *********** 



************* 



EI *. 

.* CHAN *. 

.♦BUSY OR NOT*. 

*. OPERATIONAL . 



***************** 



B3 *. 
.♦DEVICE *. 

* A SEVEN 

TRACK 

♦ . TAPE 



.* 



STMODE X 






.*. 


*****C2********** 




C3 * 


* SET COMMAND 


* 




* 


* CODE FROM PUB 


* 


YES .* 


DEVICE 


* IN CCW AND 


* 


...*. 


IS 


* GET CCW ADDR. 


* 


* 


SYSLOG 


* FOR CAW 


* 




♦ . 


***************** 


X 


*. .* 






***** 


*NO 






*CH * 








* B4* 




X 




* * 




***** 




* 




*CH * 




LOGPRC 


X 


* E4* 






.*. 


* * 






D3 * 


* 






* 


LOGPRC1 




.♦' 


SEEK 






*. 


SEPAR. 






* 


*G2 



*****A5********* 

* MOVE STORAGE 

* PROTECTION 

* KEY FROM 

* REQID ENTRY 

* TO CAW 
**************** 



*****B4********** 

*GETPIB CN* 
*_*_*_*_*_*_*_*_* 

* GET ADDR * 

* OF REQUESTOR * 

* PIB * 
***************** 



************* 





*****C4********** 


C5 *. 






* GET COMM. * 


.* *. 






♦REGION ADDRESS * 


NO .* NORMAL * 






* FROM 2ND * 


...*. START 






* HALF OF PIB * 


*. .* 






* TABLE * 


*. .* 






***************** 


X *. .* 
***** *YES 
*CE * 
* C3* 
* * 








* 




X 


UNCOMMON 




.*. 


X 




D4 *. 


*****D5******** 


ft* 


.* *. 


* 


* 


YES YES .* JOB *. 


* STORE ADDR 


* 


....X....*. CONTROL .♦ 


* OF PUB 


* 


. 


*. OPEN .* 


* LAST STARTED 


* 



*E2 

EXIT ON YES LEG IF BURST 
DEVICE HAS BEEN STARTED 
PREVIOUSLY AND IF IT DID 
NOT COMPLETE OPERATION 
PRIOR TO THE CURRENT MPX 
START I/O ATTEMPT. 



*****E3******* 

* RESET SWITCH* 

* AT NOPINSTR * 

* TO A NOP * 

* *K5 * 

* * 
************** 



***** 
*CH * 
* Bl* 



***************** 



*****E5******* 

* SET DEVICE * 

* BUSY FLAG 

* IN PUB 

* FLAG BYTE 

* * 
********* 



.*. 




*F2 








.*. 


SYSINOUT .*. 




.*. 


Fl *. 




SYSIPT, 




F3 *. 


F4 *. 




F5 *. 


.* *. 




SYSRDR, 




.* *. 


.* *. 




.* *. 


NO .* DEVICE *. 




SYSPCH, OR 




.♦ DEVICE *. YES .* SYSRDR *. 


NO 


.* BURST *. NO 


....*. SWITCHABLE .* 




SYSLST 




*. IS SYSTEM .* 
*. I/O .* 


X*. OR 


*. .. 


*. DEVICE ON .*.... 


♦. . .♦ 


*. SYSIPT .*. 


*. MPX .* 


*. .* 








*. .* 


*. .* 




*. .♦ 


*. .* 








*. .* 


*. .* 




*. .* 


*YES 


*G2 






*NO 


*YES 




♦ YES 




SUPERVISOR 














GENERATION 




X 


X 






'. X 


OPTION. 




.*. 


.*. 




X '. 


*****G1********** 








G3 *. 


G4 *. 




*****G5******* 


* * 








.* *. 


.* *. 




* SET MPX * 


* LOAD NUMBER * 








YES .* SUPVR *. 


YES .* JOB * 




* CHAN IN BURST* 


* OF ALTERNATE * 




*CG-B2 




....*. REQUEST .* 


...*. OVERRUN 


* 


♦MODE SWITCH AT * 


* CHANNEL * 




CH-B4 






*. .* 


*. .♦ 




♦ BRSFLG * 


* * 




***** 






*. .♦ 


*. .* 




* *J5 * 


. ***************** 




* * 

* * * 
* * 

* 






*. .* 
♦ NO 


***** '♦NO 
*BA *ERR30 
* Bl* 




************** 

Ix '. 














* * 




X 














X 


* .x 




***** 


X 




** * 


'. X 












.*. 


SYSFILE5 .*. 




* B2^ 


******Hl *********** 












H3 *. 
.* *. 


H4 *. 
.♦ *. 




* * 
* 


'. * TEST * 












.* DEVICE *. YES .* DASD * 


NO 


REG 9 


ALTERNATE 












*. A DASD .* 


*. DEVICE 


♦ ... 




* CHANNEL * 












♦ . FILE .* 
*. .* 


*. .* 
*. .* 






* ************* 












*. .* 
*NO 

**** 
* * 


X *. .* 
***** *YES 

♦ CG * 

* Bl* 
















X .X.* 3 * 


* * . 




♦ J5 












X. * * 


* 




BRSFLG= 


'. X 








**** 


PROTECT X 




GIOADR+1, 


.*. 








STRTIO X 


.*. 




CHART CF. 


Jl *. 








*****J3********** 


J4 *. 






.* CHAN *. 








* * 


.* *. 






.*BUSY OR NOT*. NO 








* MOVE CCW * 


.* RETRY * 


YES 




*. OPERATIONAL .*.. 








* ADDRESS FROM * 


*. IN PROGRESS 


♦ ..X 




*. .* 








* CCB TO CAW * 


*. .* 






*. .* 








* * 


*. .* 






*. .* 


X 






***************** 


*. .* 




< 


*YES **** 








*NO 


* 


(<** 


* 


* 






**** l 


* 


* 


* 


X. * 


1 * 






*CG-H4* * 




* 


3 ♦ 


X * 


* 






CH-F4* *... 


X 




* 


***** **** 






* * * 




* 


ft** 


** * 








**** 


* * 






* A2* 








STRTIOl X 


* 4 * 




♦ K5 


* * 








*****«3******* 


* * 




BRANCH = CHECK 


* 








* RESET SWITCH* 


**** 




DIB EXTENTS FOR 


REG 9 


*K2 






* AT NOPINS * 

* TO A NOP * 






1. SYSRDR 

2. SYSIPT 




BRANCH = NO EXTENT 


CHECK 


* *K2 * 






3. SYSPCH 




(INDICATES DEVICE 


IS 


* * 






4. SYSLST 




SYSRES). 




************** 










NOP 


= CHECK JIB EXTENTS. 












THE 


SWITCH IS RESET TO 












NOP 


IN THE S 


FRTIOl 


ROUTINE 


. 









* 2 * 

* * 
**** 
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Chart CG. $$A$SUP1 - SGTCHS Macro, Start I/O — 
Refer to Chart 04. 



Maximum Options (Part 2 of 3) 



* i * 

* * 
**** 



*BA-E4 
CH-C2 
FG-DL 
FH-B4 



*****B2******* 

* SET SWITCH * 

* AT PCHKSW 

* TO, NO-OP 

* >*B4 

* * 
************** 



*****C1******* 

* SET SWITCH * 

* AT PCHKSW * 

* TO BRANCH 

* *B4 * 

* * 
************** 



INHWRITE 

*****□!********** 
*GETPIB CN* 
*_*_*_*_*_*_*_*_* 

* GET ADDRESS * 

* OF REQUESTOR * 

* PIB * 
***************** 



USER 

SEEK 

CHAINED 



*****C3 ********** 

* COPY USER * 

* SEEK TO * 

* CHANNEL CHAIN * 

* SEEK CCW * 

* * 
***************** 



D3 *. 
.USER CCW*. 
.* CHAIN HAS *. YES 
.TIC FOLLOWING.*.... 
*.THE SEEK .* 



SET ON TO INSURE 
MAINTAINED-CONTROL 
IN CASE OF A 
PROGRAM CHECK AS A 
RESULT OF USING 
INVALID USER-SUPPLIED 
ADDRESS PARAMETERS. 



* 3 * 

* * 
**** 



DEVICE 

IS 

.DATA CELL. 



DASD2321 

*****B5******** 

* GET ADDR OF 

* SUBCELL AND 

* STRIP FROM 

* SEEK ADDR 



GETJIB 

*****C5********** 

* GET ADDR OF * 

* LUB FOR THIS * 

* DEVICE USING * 

* LUBID ENTRY * 

* * 
***************** 



.* WRITE 


* 


YES 




*. ALLOWED ON 




.* 






*. SYSRES « 


* 








*. .* 










*. .* 






X 




*N0 






**** 

* * 

* 1 * 

* * 
**** 




X 










*****F1 ********** 




*F2 


* CALCULATE 




* 




SUPERVISOR 


* DESIRED 




* 




GENERATION 


* CHANNEL 




* 




OPTION. 


* CCW CHAIN 




* 







NOTIC 

*****E 3**# ******* 

* LOAD ADDR * 

* OF USERS 2ND * 

* CCW INTO * 

* CHANNEL CHAIN * 

* TIC CCW * 



***E4********* 

COPY USER 

TIC ADDRESS 

TO CHANNEL 

CHAIN TIC 

CCW 

************** 



*F4 
BRANCH=CHECK 

DIB EXTENTS FOR , 

1. SYSRDR 

2. SYSIPT 

3. SYSPCH 

4. SYSLST 



*****E5****** 


**** 


*J1BTYP 


(.H* 


*_*_*_*_*_*_* 




*GET ADDR OF 


JIB* 


* CONTAINING 


* 


* EXTENT 




************* 


**** 


**** 






* * 






* 4 *.. 






* * 






**** X 




CLCINS .*. 




F5 *. 




.* . * 




NO .* VALID 


*,. . 


.X.*. LOWER 




*. EXTENT 


.* 



************* 



*****G1 ********** 

* INHIBIT LONG * 

* SEEK, STORE * 

* CHANNEL CCW * 

* CHAIN ADDRESS * 

* IN CAW * 
***************** 



*****g 2 ********** 

* * 

* INHIBIT * 
X* WRITE IN * 

* CCW * 

* * 
***************** 



****H2******* 

SET BRANCH * 

AT NOPINS 

TO BRANCH 

*K2 

* 
************* 



************* 



IS 

SYSFIL 

DISK 



H3 *. 

.* * 

DIB 

CHECK 

. SWITCH 

*. *F4 .* 

*. .* 

*N0P 



**** 

* * 

* 5 * 

* * 
**** 



***** 
*CH * 
* CI* 



LGD1 

*****H4* ****** 

* SET SWITCH * 
H * AT PCHKSW * 

* TO NO-OP 

* *B4 * 

* * 
************** 



SEEKTEST 

J 

.* 



USER 

CCW HAS 

LONG 

*.SEEK .* 



***** 
*BA * 
* Bl* 



*K2 
BRANCH = NO EXTENT 
CHECK (INDICATES 
DEVICE IS SYSRES). 
NOP = CHECK JIB 
EXTENTS. THE SWITCH 
IS RESET TO NOP IN 
THE STRTIOl ROUTINE. 



.* JIB *. E 

*. CHECK .* 

*. SWITCH .* 

*. *K2 .* 

*. .* 

*NOP 


RANCH 

X 

**** 
* 

* 5 
* 






**** 


X 
*****«3 ********** 

* GET ADDRESS * 

* OF CYLINDER * 

* NUMBER FROM * 

* SEEK CCW * 





DEVICE 

IS 

2311 



A2321 

*****H5 ********** 
*TSTNXT ^ ^ CH* 

* GET ADDR OF * 

* NEXT JIB CON- * 
*TAINING EXTENT * 
***************** 



***************** 



VALID 

UPPER 

EXTENT 



*****«5********** 
*TSTNXT CH* 
*_*_*_*_*_*_*_*_* 

* GET ADDR OF * 

* NEXT JIB CON- * 
*TAINING EXTENT * 
***************** 
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Chart CH. $$A$SUP1 - SGTCHS Macro, Start I/O 
Refer to Chart 04. 



Maximum Options (Part 3 of 3) 



***** 

*CF * 

* DA* 



SYSFILE4 X 

*****B1******* 

* SET SWITCH * 

* AT PCHKSW 

* TO BRANCH 

* *J4 

* * 
************** 

**** 

* * 
*CG * 

* H3* 
**** 

SYSFILE 

*****cx********** 

* LOAD ADDRESS * 

* OF SYSFILEl * 

* INTO LINK * 

* REGISTER 6 * 

* * 
***************** 



****A2********* 

* SYSFILE2 * 
♦(FROM CHART CMJ* 

* * 
*************** 



SYSFILE2 

*****D1********** 

* GET START * 

* ADDRESS OF * 

* DIB FROM * 

* COMMUNICATION * 

* REGION * 
***************** 



.* SYSRDR 
*. OR 
*. SYSIPT 



SYSIN .*. 

C2 *. 

.* *. 

.* CURRENT *. 

*.ADDRESS=USER . 

*. SEARCH .* 

♦.ADDR .* 

*. .* 

*YES 



***** 
*CG * 
* B2* 



*****B3********** 

* INCREASE * 
♦SEARCH ADDRESS ♦ 

X^ BY 1 RECORD ♦ 

* IN SAVE AREA ♦ 

* * 
***************** 



CORREC .*. 

C3 ♦. 
.♦CURRENT^. 
NO NO .♦ ADDRESS= ♦ . 
X....^. INCREASED . 
♦ , ADDRESS .♦ 



***** 
*CF * 
♦ C3^ 



REQID 
SYSLOG 
ID 



***** 

*CF * 

* J3* 

* * 



****A5^*^*^*** 

* * 

* JIBTYP * 

* * 
*************** 

**** 

* * 

* 2 ♦., 

* * 
**** 

JIBTYP X 

*****B5********** 

* CALCULATE * 

* ADDRESS OF ♦ 

* NEXT JIB ♦ 

* IN QUEUE ♦ 

* *K4 * 
***************** 



***** 
*BA * 
* BL* 



D3 ♦. 

♦ COUNT ♦ 

FIELD 

VALIO 

♦F3 

*. .* 

*. .* 



***** 
*CG * 
* H4* 



*. SYSPCH 
♦ • 

♦ . . 



X 

.♦. 

Gl ♦. 

* * T 
READING ♦. NO 

PAST .♦... 
/a .♦ 

♦ . — .* 



***** 

*BA * 

* Bl* 

* * 



* CALCULATE * 
X* ADDRESS OF *. 

* SYSPCH DIB * 

* * 
***************** 



* CALCULATE * 
X^ ADDRESS OF ♦. 

* SYSLST DIB ♦ 

* * 
***************** 



* CALCULATE ♦ 
X^ ADDRESS OF ♦ 

* SYSIN DIB ♦ 

* * 
***************** 



,♦. 

H2 ♦. 

.♦ THIS *. 

.♦ ROUTINE ♦. 

♦. ENTERED AT . 

♦.SYSFILE2 .♦ 



♦F3 
COUNT FIELD 
POINTED TO 
BY USER'S 
WRITE-COUNT- 
KEY-AND-DATA 
CCW. 



*****C4********** 
♦GETPIB CH* 
*_*_*_*_*-*_*_*-* 

♦ GET ADDRESS ♦ 

♦ OF REQUESTOR ♦ 

♦ PIB ♦ 
***************** 



*****D4********** 

* * 

♦ MOVE SYSLOG ♦ 

♦ ID TO ♦ 

♦ OUTPUT AREA ♦ 

* * 
***************** 

**** 

* * 
*CF ♦ 

,♦ C2* 
**** 
LOGPRCl 

*****E4********** 



***************** 



*****P4********** 

* * 

* MOVE TIC ♦ 

* ADDRESS TO ♦ 

* USER CCW ♦ 

* * 
***************** 



***** 
*CF ♦ 
♦ K3^ 



,♦ EXTENT 
*. TYPE 
♦ . JIB 
♦ . 



****05********* 

♦ RETURN ♦ 

♦ TO LINK ♦ 

♦ ADDRESS ♦ 
*************** 



****£5********* 

* * 

* TSTNXT ♦ 

* * 
*************** 



END OF 

QUEUED 

JIBS 



X 

***** 
*BA * 
* Bl* 



*****G5********** 

* * 

* GET CHAIN * 

* FIELD FROM * 

* THIS JIB * 

* * 
***************** 



****H3********* 

* RETURN TO * 
f X* LINK ADDRESS * 

* (CHART CM) * 
*************** 



*****J3********** 

* GET USER'S * 
♦SEARCH ADDRESS ♦ 

X^ INTO SAVE ♦ 

* AREA FROM CCW ♦ 

* * 
***************** 



*JA 
SET ON TO INSURE 
MAINTAINED-CONTROL 
IN CASE OF A PROGRAM 
CHECK AS A RESULT OF 
USING INVALID 
USER-SUPPLIED 
ADDRESS PARAMETERS. 



***** 
♦BA ♦ 
♦ Bl* 



*K4 
USE JIB POINTER FROM 
LUB TO FIND FIRST 
JIB» USE CHAIN FIELD 
IN JIB TO FIND NEXT 
JIB IN QUEUE. MULTIPLE 
JIB EXTENTS MAY BE 
PRESENT. 
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Chart CJ. $$A$SUP1 - SGTCHS Macro, I/O Interrupt (Part 1 of 4) 
Refer to Chart 04. 



***** 

* * 

* * * 



.♦BD-G4 
. BD-H5 
. BD-J3 
INTRTN X 

*****A1 ********** 

* LOAD ADDR * 

* OF EXTOl * 

* INTO REG 9 * 

* FOR GENERAL * 

* EXIT * 
***************** 



*B3 
SUPERVISOR 
GENERATION 
OPTIONS. 



GETCHQ X * * 
*****/\4********** **** 

*CQDSP CN* 
*_*_*_*_ *_*_*_*^* 

* GET FIRST * 

* CHANQ ENTRY * 

* FOR DEVICE * 
***************** 



CHANNEL * 


. YES 


FAILURE 


.* 




.♦ 






*. .* 






*. .* 




X 


*NO 




***** 
*DF * 
* G5* 
* * 
* 
CHFAIL1 


X 






**d******** 


t<* 
* 




RESET WAIT 


* 




BIT IN 


* 




I/O OLD PSW 


* 





***************** 



* TELE- 
PROCESSING 
*. OPTION .: 



* CHANQ 

PTR IN PUB 

*. EQUALS . 

*.X'FF'.* 



APPENDAGE *. 

N SPECIFIED. 

IN CCB .* 



*****E1 ********** 

* LOAD PUB * 

* ADDRESS OF * 

* LAST DEVICE * 

* STARTED * 

* ON CHANNEL * 
***************** 



.* INTERRUPT *. YES 
. FROM LAST .*.... 
*. DEVICE .* 
♦STARTED* 



MPS 

OPTION 

*B3 



*****£ 5********** 

♦GETPIB CN* 

*_*_*_*_*_*-*_*_* 

X* GET ADDR * 

* OF REQUESTOR * 

* PIB * 
***************** 



LDREGS 

*****F3 ********** 

RESTORE 



.* INTERRUPT * 


YES 




*_*_*_*_*_*«*_*_* 




* CHAN 


"AND 


UNIT ♦ 


.♦ APPENDAGE ♦. NO 










*. FROM LAST 


*. 






* GET ♦ 




♦ AND PUB 


ADDR * 


♦. ALLOWED .♦. 










*. DEVICE .* 








♦ FOCL ♦ 




♦TO REGS 2 


AND 3* 


♦. *H3 .♦ 










♦STARTED* 








* * 




* 




* 


♦ . .* 








**** 


*. .* 








***************** 




***************** 


♦ . .♦ 








* * 


*NO 








**** '. 

* * 

♦ 2 ♦. . . 






X 




♦ YES 








* 3 * 

* * 
**** 










* * 






**** 






















**** x 




* 


* 


X 












INTPUBSC X 






CORPUB .♦. 




♦ 1 


* 


.♦. 












*****Gi********** 






G2 *. 




* 


* 


G4 ♦. 












* GET ADDR 


* 






.* *. 






**** 


.♦ *. 












* OF FIRST 


* 






.* INTERRUPT *. YES 








.♦ SEEK ♦. YES) 


( 








* PUB ON 


* 






*. FROM THIS .*. 










♦. SEPARATION .♦. 








...X 




* CHANNEL 


* 






*. DEVICE .♦ 


. 








♦. *Q3 .♦ 












* 


* 






♦ . .♦ 










*. .* 












*************** 








'♦NO 


X 
**** 

* * 

* 1 * 

* * 








*. .* 
♦ NO 












X* 










**** 




















X 


























X 


.CORPUS .*. 








X 










X 




TSTUCK 


.♦. 


HI *. 








*****H2********** 










*****H4********** 








H5 ♦. 


.* *. 








* INCREMENT ♦ 




*H3 






* GET ADDR ♦ 








* *. 


.* INTERRUPT * 


. YES 




♦ POINTER TO ♦ 




BYTE 12 OF 


APPROPRIATE 


♦ OF REQUESTORS ♦ 




YES 


* 


UNIT 


*. FROM THIS 


.♦« 


.X 




* NEXT PUB * 




PIB IS 


CHECKED. 


♦ APPENDAGE ♦ 




. . .♦ 




CHECK 


*. DEVICE .* 








♦ IN CHANNEL * 










♦ ROUTINE ♦ 






* 




*. .* 








♦ LIST ♦ 










♦ FROM CCB ♦ 








*. .** 


*. .* 






k 


***************** 










***************** 




X 




*. .* 


♦NO 




* 
* 
* 
* 


*** 

* 
L ♦ 

* 




♦ J3 












***** 

♦ DA ♦ 

♦ Gl* 
* * 




*NO 






* 


e** 


X 


MULTIPLE RETURN FROM 
USERS APPENDAGE ROUTINE 






* 
UNTCK2 




X 


ICORCHN X 








.*. 


TO 


ADDRESS 


IN 


REG 7, IF 
IS TO BE 










.♦. 


*****jl ********** 






J2 ♦. 


CSfc 


PROCESSING 


X 








J5 ♦. 


* INCREMENT 


* 






.♦ ♦. 


SKIPPED TO 


DEV 


ICE END. 


****J4********* 








♦ CHAN ♦. 


* POINTER TO 


* 






.♦ STILL *. YES TO 


ADDRESS 


IN 


REG 7+4 


* EXECUTE USERS ♦ 




YES 


.♦DATA, CHAN 


* NEXT PUB 


* 






*. IN CHANNEL .* 


... BYTES, IF 
. PROCESSING 


ENTIRE CSW 


♦ APPENDAGE RTN ♦ 




...♦CHAINING, PROG 


* ON CHANNEL 


* 






*. LIST .* 


IS 


REQUIRED. 


* *J3 ♦ 






* 


OR PROT . 


* 


* 






♦ . .♦ 










*************** 








♦ .CHECKS 


***************** 






♦ . .♦ 


X 












X 




♦ . .* 










♦ NO 


♦ *** 

* * 

* 2 * 












***** 
*DA * 
* B2* 




♦ NO 










X 


* * 












* * 




X 










***** 


**** 












* 




***** 


'. X 








♦CL ♦ 










X 




UNTCK1 




♦CK ♦ 


• .*. 








♦ B4^ 










.♦. 








♦ Al* 


Kl *. 








♦ * 










K4 ♦. 








* * 


.* *. 








* 










.♦ ♦. 








* 


.YES .* SAME * 








INITRG 










.♦ SKIP ♦. NO 






TSTATTN 


...... CHANNEL 


















*, CSW PROC .♦ 










*. .* 


















♦. +J3 .♦ 










*. .* 


















♦ . .♦ 










*. .* 


















♦ . .♦ 




< 






♦NO 


















♦YES 


* 
* 


>** 

* 






IlNITRG 


















cedetst! 


♦ 


3 ♦ 






X 


















X 


* 








***** 


















***** 


* 


*** 






♦CL ♦ 


















*CK * 










* B4+ 


















* A2^ 
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Chart CK. $$A$SUP1 - SGTCHS Macro, I/O Interrupt (Part 2 of 4) 
Refer to Chart 04. 



***** 
** * 

* B4* 



***** 
*CJ * 
* K4* 



**** 

* * 
.* 1 * 

* * 
**** 

YES 



*****B1******* 



************** 



X 






*. .* 


**** 






*N0 


e * 








< 2 * 








* 








**** 






X 

.*. 

B2 *. 

.* *. 






* 


CTRL *. 




* 




UNIT BUSY . 



***** 
*CL * 
* B4* 



CI ♦ . 
.* SUPVR ♦ . 
.* UPDATE OR *. YES 
.REALLOCATION .*... 
*. IN PROC .* 



.* DEVICE A 
1052 
*. 

*. .♦ 



*****E1******* 

* CHANGE ATTN* 

* RTN PIB FLAG * 

* TO X«83« TO * 

* INCLUDE * 

* ATTN RTN * 
************** 



*****C2******* 
♦RESET DEVICE * 

* BUSY AND * 

* INTERVENTION 

♦ REQUIRED ♦ 

♦ FLAGS IN PUB+ 
************** 



*****PL********** 


* 


LOAD ADDR 


* 


* 


OF EXT03 


* 


* 


TO REG 9 


* 


* 


FOR GENERAL 






EXIT 


* 


***************** 


**** 






* 


* 






* 


2 *.. 






* 


* 






**** X 




CHENC 


.*. 

Gl ♦ . 

.* *. 




YES . 


* DEVICE * 




...*. 


BUSY 
*. .* 


!♦ 




*. .* 




X 


*. .* 




**** 


*NO 




* 






1 * 






* 






**** 









ANY 
DEVICE 
STATUS 



***** 

* * * 

* K3* 



ES .* ANY 

..*. DEVICE 

*. STATUS 



.* PROGRAM : 

. CONTROLLED 

*. INTERRUPT. 



*****G2********** 
♦GETPIB CN* 
*_*_*-*_*_*.,*_*_* 

* GET ADDR OF * 

* PIB OWNING * 

* THIS DEVICE * 
***************** 



.*. 

H2 *. 

.♦REQUEST*. 

.♦PIB HIGHER ♦. 

.PRIORITY THAN. 

♦INTERRUPTED^ 

PROG PIB^ 

♦ . .♦ 

♦ YES 



*****J2********** 

♦ LOAD ADDR ♦ 

♦ OF EXT03 ♦ 

♦ TO REG 9 ♦ 

♦ FOR GENERAL ♦ 

♦ EXIT ♦ 
***************** 



*****B3******* 
♦RESET DEVICE ♦ 

♦ BUSY AND ♦ 

♦ INTERVENTION 

♦ REQUIRED ♦ 

♦ FLAGS IN PUB+ 
************** 



.♦ DEVICE ♦ 
. END POSTING 
♦.REQUIRED .♦ 



♦♦♦♦..^♦♦♦♦♦♦^ 

♦ POST DEVICE^ 

♦ STATUS FROM * 

♦ CSW TO BYTES 

♦ 4 AND 5 ♦ 

♦ OF CCB ♦ 
************** 

**** 

♦ * 
♦CM-D4^ * 

FD-K5^ ♦ ♦ 
**** 

TRNOFF X 

*****E3******* 

♦ RESET DEVICES 
♦BUSY, POST DEV^ 
♦END AND INTER- ♦ 

♦ VENTION REQ ♦ 

♦ FLAGS IN PUB^ 
************** 



♦A4 
SUPERVISOR GENERATION 
OPTIONS. 



♦B4 
CJ-J5 
DA-J4 
DB-D1 
DD-H2 



PURGE X 

*****A5******* 

♦ POST ♦ 

♦ TRAFFIC BIT ♦ 
♦IN CCB, BYTE 2,^ 

♦ X'80« ♦ 

♦ * 
************** 



MPS 

OPTION 

♦A4 



***** 
♦CL ♦ 
* B3* 



-*_*-*_*_ 



***** 
♦CM ♦ 
* E5+ 



.♦ PIOCS ♦. 

ERROR RTN 

OPERATING 

*F4 



TEB 

OPTION 

♦ A4 



DEVICE 

A 

TAPE 



*F4 
X'80« IN BYTE 
12 OF CCB. • 



♦ GET ADDR OF 

♦ PIB OWNING * 

♦ THIS DEVICE ♦ 
***************** 



E5 ♦. 
.♦DEVICES^. 
NO .♦PIB HIGHER ♦. 
...♦.PRIORITY THAN.^ 
♦INTERRUPTED^ 
PROG PIB^ 
♦ . .♦ 
♦ YES 



*****F5********** 

♦ LOAD ADDRESS ♦ 

♦ OF EXT03 ♦ 

♦ TO REG 9 ♦ 

♦ FOR GENERAL ♦ 

♦ EXIT ♦ 
***************** 



RSETWAIT X 

*****Q5******* 

♦ SET REQUEST 

♦ TOR PIB FLAG ♦ 

♦ TO NOT 

♦ SVC 7 BOUND ♦ 

♦ * 
************** 



***** 
♦CL ♦ 
♦ Jil* 

* * 



*****j3********** 

* * 

* RESET ♦ 

* RETRY CTR ♦ 

* IN PUB ♦ 

* * 
***************** 



CLRTEB 

*****j4********** 

♦ GET TEB * 

♦ NO. FROM ♦ 

♦ PUB AND CALC ♦ 

♦ ADDR OF TEB ♦ 

♦ * 
***************** 



CAUTION- 
IF THE I 
PROGRAM 
PRIORITY 
PROGRAM 
THE DEVI 
ATTACHED 
TO THE I 
PROGRAM. 
NOT THE 
TO TASK 



NTERRUPTED 
HAS HIGHER 

THAN THE 
TO WHICH 
CE IS 

, RETURN IS 
NTERRUPTED 

IF THIS IS 
CASE, GO 
SELECTION. 



.♦. RSETWAIT X 


Kl ♦. 


*****K2**+^^ 


.♦ ♦. 


♦SET REQUESTORS 


.♦ CCW ♦. YES 


* 


PIB FLAG 


♦.ADDR PRESENT ...... 


* 


TO NOT 


♦. IN CSW .♦ 


* 


SVC 7 BOUND 


♦. +K5 .♦ 


* 


* 


♦ . .♦ X 


************** 


*N0 ***** 






♦CM ♦ 






. CHNDRT ♦ Bl* 




. REG 9 


X * ♦ 




X 


**** * 




***** 


* * 




* * * 


* 1 * 




* K3^ 


* * 




* * 


**** 




* 



**** 

♦K3 

RETURN TO ADDR IN REG 9 

. EXT03 IF ATTENTION 

. EXT02 IF ERP TRANSIENT 
RETURNED (SVC 3) 
TO EXIGN OR EXWHY 

. EXT01 FOR OTHER CONDITIONS 



*****K4********** 

♦ * 

♦ RESET ♦ 

♦ RETRY CTR ♦ 

♦ IN TEB ♦ 

♦ * 
***************** 



*K5 
IF ADDRESS IS NOT PRESENT 
= DEVICE END ONLY. IF 
PRESENT, = CHANNEL END. 
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Chart CL. $$A$SUP1 - SGTCHS Macro, I/O Interrupt (Part 3 of 4) 
Refer to Chart 04. 



*A2 
SUPERVISOR 
GENERATION 
OPTION. 



**** 

* * 

* L *.X 



*CK-C3 
CM-B2 
DC-J2 
DD-D5 



* SEEK *. NO 
SEPARATION .*... 
*. *A2 .* 



N0S01 

*****B 2 ********** 

* RESET REQID * 

* ENTRY FOR * 
...X* THIS CHANQ * 



*****C1 ********** 

* TURN OFF SEEK * 

* SEPARATION * 
*BIT AND TRAFFIC* 

* BIT IN * 

* CCB * 

***************** 



*****D1 ********** 

* TURN OFF BITS * 

* FOR POST-AT- * 
*DEVICE-END AND * 
♦ACCEPT UNRECOV.* 

* ERROR IN CCB * 
***************** 



*****£ 1********** 

* GET ADDRESS * 

* OF CCW * 

* FROM CCB * 

* * 

* * 
***************** 



*****P1********** 

* LOAD FIRST * 

* CCW AND * 

* TURN ON CHAIN * 

* BIT IN SEEK * 

* * 
***************** 



* 3 



**** 
INITSIO .*. 

Gl *. 
.* *. 
.* CHANNEL 
*. SWITCHING 
*. *A2 



.* 



*****H1********** 

* LOAD RETURN * 
♦ADDRESS TSTEOJ * 
*AND GET CHANNEL* 

* AND UNIT * 

* NUMBER * 
***************** 



*****jl********** 

*CQDSP CN* 
*_*_*_*_*_*_*_*_* 

* GET CHANQ * 

* ENTRY * 

* * 
***************** 



X 

***** 
*CF * 
* A3* 



TO X'FF' 



*****C2********** 

* * 

* SAVE PUB * 

* CHANQ * 

* POINTER * 

* * 
***************** 



*****D2********** 

* MOVE CHAIN * 

* FIELD FROM * 

* CHANQ ENTRY * 

* TO PUB CHANQ * 

* POINTER * 
***************** 



*****£ 2 ********** 

* MOVE FREE * 

* LIST POINTER * 

* TO CHAIN * 

* FIELD OF * 

* CHANQ ENTRY * 
***************** 



*****F2********** 

* MOVE OLD * 

* PUB CHANQ * 

* POINTER TO * 

* FREE LIST * 

* POINTER * 
***************** 



* 1 * 

* * 
**** 



.* DEVICE *. 

.ON MULTIPLEX . : 

*. CHANNEL .* 





*CJ-K1 




*A5 




CK-C1 




DEQUEUE FIRST 




CM-H5 




CHANQ ENTRY 
FROM QUEUE FOR 
THIS DEVICE AND 
ADD IT TO THE 
FREE LIST. 
WHEN MICR=1412/ 
1419, THE SYSTEM 
MASK WILL HAVE 
BEEN SET (PRIOR 
TO THIS 


**** 






INSTRUCTION) TO 


* * 






DISABLE ALL 


* 2 *.X 

* * 
**** 






INTERRUPTS. 








INITRG X 






*****B4********** 




* LOAD ADDRESS 


* 




* OF PUB 


* 




* LAST STARTED 


* 




* 






* 


* 




***************** 




**** 








* * 








* 4 *.. 






*C5 


* * 






WHEN MICR=1412/ 


**** 






1419, THE SYSTEM 


X 




MASK IS SET AT 


*****C4********** 


THIS POINT TO 


* INCREMENT 


* 


DISABLE I/O 


* POINTER TO 


* 


INTERRUPTS ONLY. 


* NEXT PUB 


* 




* ENTRY 


* 





.* PUB *. 

*. CHANQ POINTER. 

*.IS X'FF* .* 



* 3 * 

* * 
**** 



***************** 



.* PAST * 

LAST PUB 

ON THIS 

. CHANNEL 



*****H2********** 

* LOAD RETURN * 

* ADDRESS * 

* GIOADR * 



*********** 



*****J2********** 
*CQDSP CN* 
*_*_*_*-*_*_*_*_* 

* GET CHANQ * 

* ENTRY * 

* * 
***************** 



NO .* BURST 
...*.ON MPX OPTIO 
*. *A2 



*CM * 
* J5* 
**** 
SELBMX 



.* BURST * 
*.ON MULTIPLEX 
*. DEVICE .* 



NO .* TELE- 
X..*. PROCESSING 
*. *A2 



INITCHN1 

*****E4********** 

* LOAD ADDRESS * 

* OF PUB LAST * 

* STARTED AND * 

* OF FIRST PUB * 

* ON CHANNEL * 
***************** 

**** 



*.IS X'FF' 



*****G4********** 

* INCREMENT * 

* POINTER TO * 
*NEXT PUB ENTRY,* 
*BEGIN AT FIRST * 
*PUB ON CHANNEL * 
***************** 



.* PUB *. 
.CHANQ POINTER. 
*.IS X'FF' .* 



***** 
*CE * 
* Bl* 



*J5 
RETURN TO ADDR IN REG 9. 
. EXT03 IF ATTN INTERRUPT 

OR DEVICE OF HIGHER 

PRIORITY PROGRAM. 
. EXT02 IF ERP TRANSIENT 

RETURNED (SVC 3) TO 

EXIGN OR EXWHY. 
. EXTOl FOR OTHER 

CONDITIONS. 
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Chart CM. $$A$SUP1 - SGTCHS Macro, I/O Interrupt (Part 4 of 
Refer to Chart 04. 



4) 



*A2 
SUPERVISOR 
GENERATION 
OPTIONS. 



***** 
*CK * 
* Kl* 



**** 

* * 

* 3 * 



T/P 
OR 1419D 
. OPTIONS . 
*. *A2 .* 



IS 

THERE A 

CCB 



***** 
*CL * 
* B3* 

* * 



*****B2 ********** 

* * 
.NO * MOVE RESIDUAL * 
.* X*C0UNT FROM CSW * 

X * TO CCB * 

* * 
***************** 



.* TELE- 
. PROCESSING 
*. OPTION . 



*G1 
SYSLST 
SYSIN 
SYSOUT 
SYSRDR 
SYSIPT 
SYSPCH 



D2 *. 
.* CCB *. 
YES .* SPECIFY 
...*. ADDENDAGE 
*. ROUTINE . 



*****B3********** 
*SYSFILE2 CH* 
*_*-*_*-*-*_*-*-* 

* GET ADDR * 

* OF DIB FOR * 

* THIS FILE * 
***************** 



*****C3********** 

* UPDATE * 

* CURRENT DISK * 

* ADDRESS * 

* IN DIB * 

* * 
***************** 



.* BURST *. YES .* BURST *. NO 

.ON MULTIPLEX .* X*.ON MULTIPLEX .*... 

*. OPTION .* *. DEVICE .* 

*. *A2 .* *. .* 



*****C5******* 

* MOVE BURST * 

* MPX MASK * 

* TO BRSFLG 

* IN START I/O * 

* ROUTINE *F4* 
************** 



*****E2********** 

* MOVE ADDRESS * 

* OF NEXT CCW * 

* IN CHAIN TO * 

* CCB * 
***************** 



D3 *. 

* * 

SYSRDR 

OR 

SYSIPT 

*. .* 

*. .* 

*YES 



*****E3********** 

* DECREMENT * 

* CSW ADDRESS * 

* BY 8 TO GET * 

* ADDRESS OF * 

* LAST CCW * 
***************** 



* POST STATUS 

* FROM CSW 

* TO CCB 

* * 
************** 



SYSFIL 

OPTION 

*A2 



.*. 

H2 *. 

* IS 

DEVICE 

SYSTEM 

I/O 



*G1 



DEVICE 
TYPE 
2311 



**** 

* * 

* 2 * 

* * 

**** 



D4 *. 

.* CTRL *. 

.* UNIT END, *. 

*.DEV END, UNIT. 

*CK, OR UNIT* 

*.EXCP..* 

"**YES 



* E3* 

* * 

* 

TRNOFF 



*F4 
BRSFLG=GIOADR+l 
ON CHART CF. 



***** 05 ******* 

* POST DEVICE* 

* BUSY X'80' * 
X* IN PUB 

* FLAG BYTE * 

* * 
************** 



E5 *. 

.* DEV *. 

.*END POSTING*. 

. REQUESTED . 

*. IN CCB .* 



***** 
*CK * 
* F3* 



*. 



*****f5******* 

* POST DEVICE* 

* END POSTING * 
♦REQUIRED X'04" 

* IN PUB * 

* FLAG BYTE * 
************** 



SELECTOR 

CHANNEL 

. OPTION . 

*. *A2 .* 



*****J3******* 

* POST EOF * 

* X'20' IN 

* PUB CHANNEL 

* SCHED. FLAG 

************** 



*****H4********** 






H5 *. 


*GETPIB CN* 






* * 


*_*_*_*_*_*_*_*_* 


NO 


* 


INTERRUPT 


* GET ADDRESS * 






FROM MPX 


* OF REQUESTOR * 




* 


CHAN 


* PIB * 






*. . * 


***************** 


X 




*. .* 




***** 




*YES 




*CL * 








* B4* 








* * 








* 

INITRG 




Ix. . . 




X 


X 






.*. 


*****j 4* ****** 






J5 *. 


* POST EOF * 






.* BURST * 


* X'20» IN * 


YES 


* 


ON 


* REQUESTOR * 


. ..* 




MULTIPLEX 


* PIB * 




'* 


. OPTION 



*****K3******* 

* POST EOF * 

* AND UNIT 

* EXCEPTION 

* IN CCB 

* * 
************** 



*K4 

RETURN TO ADDR 

IN REG 9. 

. EXT03 IF ATTN 
INTERRUPT OR 
DEVICE OF HIGHER 
PRIORITY PROGRAM. 

. EXT02 IF ERP 

TRANSIENT RETURNED 
(SVC 3) TO EXIGN 
OR EXWHY. 

. EXTOl FOR OTHER 
CONDITIONS. 
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Chart CN. $$A$SUP1 - SGTCHS Macro, I/O Interrupt Subroutines 
Refer to Chart 04, 



****BL********* 

* 4c 

* CQDSP * 

* * 
*************** 



* GET CHANQ * 

* POINTER * 

* FROM PUB * 

* * 
***************** 



*• .* 

*. .* 
*N0 



*****Ei********** 

* * 

* LOAD ADOR * 

* OF LUBID * 

* TO REG 5 * 

* * 
***************** 



*****Pl********** 

* CALC ADDR * 

* OF CHANQ * 

* ENTRY IN * 

* REG 4 * 

* * 
***************** 



*****E2 ********** 

* CALCULATE * 

* ADDRESS OF * 

* CHANQ ENTRY * 

* IN REG 4 * 

* * 
***************** 



*****P2********** 

* CALCULATE * 

* ADDRESS OF * 

* LUBID ENTRY * 

* IN REG 5 * 

* * 
***************** 



****B3********* 

* * 

* ZROREG * 

* * 
*************** 



* LOAD CHAN * 

* NUMBER * 

* TO REG 2 * 

* * 
***************** 



*****D3********** 

* LOAD ADDR * 

* OF FIRST * 

* PUB ON * 

* CHANNEL * 

* TO REG 3 * 
***************** 



****E3********* 

* RETURN TO * 

* LINK ADDR * 

* * 
*************** 



****B4********* 

* * 

* GETPIB * 

* * 
*************** 



GETPIB 

*****C4********** 

* LOAD LTK * 

* FROM COMM * 

* REGN TO * 

* REG 8 * 

* * 
***************** 



* I/O *. 
REQUEST *. YES 
FROM B- .*... 
TRAN .* • 



*****EA********** 

* MOVE REQID * 

* FOR THIS * 

* CHANQ ENTRY * 

* TO REG 8 * 

* * 
***************** 



GETPIBl X 

*****F4********** 

* CALC ADDR * 
.» OF PIB * 

* FOR CHANQ * 

* ENTRY IN * 

* REG 8 * 
***************** 



*****Gi********** 

* * 

* LOAD ADDR * 

* OF CCB * 

* INTO REG 1 * 

* * 
***************** 



*G2 

SUPERVISOR 
GENERATION 
OPTION. 



****G4********* 

* RETURN TO * 

* . LINK * 

* ADDR * 
*************** 



****H1********* 

* RETURN TO * 

* LINK ADDR * 

* * 
*************** 
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Chart DA. $$A$SUP1 - SGUNCK Macro, 
Refer to Chart 06. 



Unit Check Entries 



NOSTART 

.* 
YES .* 



*A3 
SPECIAL SWITCHES 
FOR I/O DEVICE 
NOT OPERATIONAL. 



*****B1******* 

* SET DEVICE 

* STATUS TO 
*X'44«, CHANNE 

* STATUS TO 

* X«F0« *A3 
************** 



MOVE ADDRESS 

OF SEARCH CCW 

INTO CSW 





***** 




*CJ * 




* J5* 




* * 




* 




X 


UNTCK1 


.*. 




B2 * 




* 


NO .* 


T/P 


. ..*. 


OPTION 


* 


*G2 






X 


*. .* 


**** 


*YE 



T/P 

PTION 
*G2 



**** 

* * 

* 3 *. 



NO .* PCI 

,..*. BIT ON IN 
*. CSW 



* HAS UNIT *. NO 
STATUS BEEN .*..) 
*. STORED .* 



********** 
SET * 
ETRY * 
AG IN * 
OERR * 
*F5 * 
********** 



Fl *. 

.* CHAN *. 

.* DATA OR *. NO 

*.CHAN CHAINING.*... 

*. CHECK .* 

*. CCB .* 



**** 



*YES 



*CJ * 

* H5* 
**** 

UNTCK2 X 

*****Gi ********** 
*SET RETRY FLAG * 

* IN IOERR AND * 

* GET SENSE * 

* BITS IN CSW * 

* *F5 * 
***************** 



T/P 

OR 1419D 

*G2 



CHAN 
QUEUE PTR 
. =X'FF' . 



*****«! ********** 

* LOAD * 

* CSW * 

* INTO * 

* REG 8 * 

***************** 



*****£ 2********** 

* SET RETRY * 

* FLAG IN * 

* IOERR * 

* *F5 * 

* * 
***************** 



B3 *. 
.* CCW *. 
.* PRESENT *. YES 
*. (REG 8 NOT .*.... 



* 2 



**** 
NOCCB1 X 

*****£ 3 ********** 

*RESET RETRY FLG* 

* SET NO CCB * 

* AVAILABLE AND * 
*IGNORE FLAGS IN* 

* IN IOERR *F5 * 
***************** 



.* PUB *. 
* DEVICE * 

END POSTING 
*. FLAG ON .* 



* AVAILABLE * 

* FLAG IN * 

* IOERR *F5 * 

***************** 



CHAN 
CHAINING 
. OPTION 
*. *G2 .* 



CMDCHN .*. 

C4 *. 

.* CHAN *. 

.* CHAINING *. fs 

*. BIT ON IN .*..X. 

*. CCB .* 

*. .* 

*. .* 



*****D4********** 

* * 

* GET * 

* COMMAND * 

* ADDRESS * 

* * 
***************** 



*****E4********** 

* STORE COMMAND * 

* ADDRESS IN * 

* CAW AND * 

* IN CCB * 



*****: 



******* 



USRUCK .*. 

F3 *. 

.* USER *. 

.* UNIT *. 

*. CHECK ROUTINE. 

*. (CCB) .* 



*F5 
IOERR IS THE 
MASK BYTE IN 
INSTRUCTION 
CCBQED, CHART DB. 



*G2 
SUPERVISOR 
GENERATION 
OPTION. 



.* CHAN *. YES 
*. QUEUE POINTER.*.... 
*. =X , FF« .* 



IS *. YES 
IT AN ERP .*.... 

CCB .* 



X 


BSTTST .*. 


USREXT X 


*****J2******* 


J3 *. 


*****J4******* 


* TURN OFF * 


.* *. 


* 


POST * 


* BURST-ON-MPX * 


NO .* BURST ON *. 


* 


UNRECOVERABLE* 


*FLAG AT BRSFLG * 


...*. MULTIPLEX .* 


* 


ERROR FLAG 


* IN START I/O * 


*. OPTION .* 


* 


IN CCB * 


* ROUTINE *K5* 


*. *G2 .* 


* 


* 


************** 


*. .* 


************** 


. 


*YES 






lx 






* 


X > 


X 


***** 






***** 


*DB * 


X 




*CK * 


* Bl* 


.*. 




* Al* 


* * 


K3 *. 




* * 


* 


.* *. 




* 


PRTPRG 


NO .* BURST *. 
...*.ON MULTIPLEX .* 
*. DEVICE .* 
*.(PUB).* 




TSTATTN 



*K5 
BRSFLG=GIOADR+l» 
CHART CF. 
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Chart DB. $$A$SUP1 - SGUNCK Macro, Build Error Queue Entry 
Refer to Chart 06. 



PRTPRG X 

*****Bi ********** 

* LOAD ADDRESS * 
*F0R THIS ERROR * 

* QUEUE ENTRY * 

* INTO REG 6 * 

* * 
***************** 



* ERROR *. NO 

QUEUE TABLE .*... 
*. FULL .* 



.X* 



*****B2********** 

* GET NEXT * 

* ADDRESS IN * 
ERROR QUEUE * 

TABLE, STORE * 
*FOR NEXT ENTRY * 
***************** 



*****C2********** 

* CLEAR PRESENT * 

* ERROR QUEUE * 

* ENTRY AND * 

* INSERT CSW * 

* AND PUB ADDR * 
***************** 



L .*. 






.*. 






.*. 


GETSEN .*. 


Dl *. 






D2 *. 


*****03******* 




D4 *. 


D5 *. 


.* * 






.* *. 


* SET NO * 




* *. 


.* *. 


* CCB 


* 


YES 


.* CHANNEL *. YES 


* -CCB- * 


YES .* 


2702 *. 


YES .* T/P *. 


NOT AVAILABLE 


*... . 


*. QUEUE POINTER.* 


...X*AVAILABLE FLAG * 


. ..*. 


OR .*X.. 


*. OPTION .* 


*. SET IN 


* 




*. =X«FF« .* 


* IN IOERR * 


* 


2703 .* 


*. .* 


*.I0ERR.* 






*. .* 


* * 




*. .* 


*. .* 


*. .* 




X 


*. .* 


************** 


X 


*. .* 


*. .* 


*NO 




***** 


*N0 




**** 


*N0 


♦ NO 






*CK *TSTATTN 




* * 










* Al* 






* 3 * 










* * 






* * 










* 

CC 


Ix 




**** 




xl 


X 

.*. 


BQED X 






X 


El *. 






*****E2******* 








*****E5*********# 


.* * 






* TURN ON * 








* MOVE ADDRESS * 


* SUPVR 


* 


YES 


* FLAGS IN * 








* FOR SENSE * 


INTERRUPT 




*.... 


* ERROR * 








* DATA IN ERROR * 


*. IN I/O 


*" 




* QUEUE * 








* QUEUE TO CCW * 


*. PSW .* 






* *G1 * 


**** 






* * 


*. .* 




X 


************** 


* * 






***************** 


*NO 




***** 




* 2 * 












*DC * 
* E4* 




* * 
**** 








X 




* * 












***** 




* 












*BA * 




FCHOVL 












* Bl* 






X 


X 






X 


* * 






*****P2******* • 


******F3*********** 






******F 5* ********** 


* 






* SET FLAGS * 


ERRSIO DF 






ERRSIO DF 


ERR31 






* IN PUB FOR * 

* DEVICE BUSY * 

* AND DEVICE * 

* ERROR * 
************** 


*_*_*_*_*_*_*_*_* 

GET 

* SENSE * 

DATA 

************* 






*_*_*_*_*_*.,*_*_* 

GET 

* SENSE * 

DATA 

************* 



*G1 
FLAGS WERE 
PRESET IN 
UNIT CHECK 
ENTRY ROUTINE, 
CHART DA. 



.* CCW *. 






.* *. 








.* 


.* STATUS IS *. 


YES 




* ERROR * 


. YES 






YES .* ERROR 


*.PROG. OR PROT. 


*.... 


*I 


ON SENSE 
*. .* 


.*. . . 




....... .X. .......... 


*. ON SENSE 


*. CHECK .* 








*. 


*. .* 






*. .* 








*. 


*. .* 


X 




*. .* 








*. .* 


*N0 


***** 

*DC * 

* C2* 

* * 

* 




*N0 

X 
***** 








*N0 
**** 

* * 

* 3 *... 

* * . 


X 


EXTRAN 




*DD * 






. 


**** x 


.*. 






* G2* 




ERRSEN X 


MVZEX .*. 


H2 *. 






* * 






*****H4******* 


H5 - *. 


.* *. 






* 






* RESET DEVICE* 


.* 


NO .* IS *. 






EXIGN 






*STATUS BITS IN* 


YES .* DEVICE 


....*. THERE A 


* 










*CSW EXCEPT DEV * 


...*. A 


*. CCB .* 












*END, CHAN END,* 


*. PRINTER 


*. .* 












* AND UNIT CK* 


*. 


*. .* 












************** 


X *. .* 


*YES 














***** *No 

*DD *ERRPRT . 
* B2* 
* * 
* 


" X 












X 


X 


.USRSEN .*. 












.*. 


RESCHK .*. 


J2 *. 




*****J3********** 




J4 *. 


J5 *. 


.* *. 




* 








.* DEV *. 


.♦DEVICE 


.* USER *. 


YES 


* 


GET ADDRESS 


* 


YES .* STATUS *. 


YES .* 2311 


*. WANTS SENSE . 


*....... 


X* 


OF CCW 


* 




.*. IS DEV END .* 


...*. OR 


*. INFO .* 




* 




* 




*.AND UNIT .* 


*. 2314 


*. .* 




* 




* 




*. CHECK.* 


*. 


*. .* 




***************** 


X 


*. .* 


X *. .* 


*N0 










**** *nq 


***** *nq 












* 


* 


*GA * 


X. 










* 1 


* 


* Al* 


X 






X 




* 


* X 


* * X 


**** 






**** 




**** ***** 


* ***** 


* * 






* * 






*DC * 


RESERR *DC * 


* 1 * 






* 2 * 






* B2* 


* C2* 


* * 






* * 






* * 


* * 


**** 






**** 






* 


* 
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Chart DC, $$A$SUP1 - SGUNCK Macro, Error Recovery Exits (Part 1 of 2) 
Refer to Chart 06. 



♦DB-G2, J5 
DD-B2 
GG-J5 
***** 



♦DB-J4 




DF-E4 




GA-J2 




GB-E5 




***** 




* * 




* * * 




* * 




* 






*B3 




SUPERVISOR 




GENERATION 


X 


OPTION. 



RCVERR 

*****B2********** 

* MOVE ERROR * 
*0N RECOVERY MSG* 
*C0DE» X«20% TO* 

* ERROR QUEUE * 

* ENTRY * 
***************** 



* MULTI * 

PROGRAMMING 

*. OPTION .* 

*. *B3 .* 



*****L,2********** 
*RSTREG DE* 
*-*_*-*-*_*_*_*_* 

* RESTORE * 
*CHAN SCHEDULER * 

* REGISTERS * 
***************** 



*****D3********** 
*CQDSP CN* 
*-.*_*. r *_*_*_*_*-* 

* RESTORE * 

* REGISTERS * 



*** 



************* 



HAROWT X 

*****C4********** 

* MOVE SENSE * 

* BYTES FROM * 

* ERQSNS TO * 

* CORE LOC * 

* 5 TO 10 ' * 
***************** 



*****D4********** 

* SET WAIT * 

* ERROR CODE * 

* TO HARD * 

* FETCH ERROR * 

* * 
***************** 



***** 
*DB * 
* El* 



E2 *. 
.*NO CCB *. 
YES .*AVLBL FLAG *. 
...*.SET IN ERROR .* 
*. QUEUE .* 
♦.ENTRY.* 
*. .* 
*NO 



IS 

THIS A 

FETCH 



FCHOVL 

*****E4********** 

* SET WAIT * 

* ERROR CODE * 

* TO FETCH * 

* ERROR QUEUE * 

* OVERFLOW * 
***************** 



*****F4********** 

* MOVE CHANNEL * 

* AND UNIT * 

* FROM PUB * 

* TO CORE LOC * 

* 2 AND 3 * 
***************** 



**BB-F3, G2 



STDEXT X 

*****H2********** 

* LOAD ADDRESS * 

* OF EXT03 * 

* INTO REG 9 * 

* FOR GENERAL * 

* EXIT * 
***************** 



*****j2******* 


* 


SET QUIESCE* 


* 


I/O PIB 


* 


FLAG TO 


* 


ACTIVE 


* 


X'85' * 


************** 




X 




***** 




*CL * 




* B3* 




* * 




* 




SELECT 



SUPCNL 

*****G4********** 

* MOVE WAIT * 

* ERROR CODE * 

* TO CORE * 

* LOC * 

* * 
***************** 



*****H4********** 

* MOVE ACTION * 

* CODE 'W 1 * 

* TO CORE * 

* LOC 1 * 

* * 
***************** 



****J4********* 

* ENTER * 

* WAIT STATE * 

* *K4 * 
*************** 



*K4 
HARD WAIT 

THE CPU ENTERS THE 
WAIT STATE WHEN THE 
LOAD PSW INSTRUCTION 
LOADS A DOUBLE WORD 
WITH A 1 IN BIT 
POSITION 14. 
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Chart DD. $$A$SUP1 - SGUNCK Macro, Error Recovery Exits (Part 2 of 
Refer to Chart 06, 



2) 



*A1 
MULTIPLE ENTRIES 
FROM ERP A-TRANSIENTS. 



***** 

*DB * 

* H5* 

* * 



.*. 

B2 *. 

.* * 

CHAN 

9 

.OVERFLOW 

*. .* 

*. .* 

*YES 



DISWHY 

EXIT 
***** 



EXWHY X 

*****B 3 ********** 

* MOVE CSW * 

* FROM ERROR * 

* QUEUE ENTRY * 

* TO CSW * 

* * 
***************** 



*B4 
SUPERVISOR 
GENERATION 
OPTION. 



B5 *. 

.* RETRY * 

FLAG ON 

IN ERROR 

. QUEUE 

*. ENTRY.* 

*. .* 

*YES 



* STORAGE 
PROTECT 
*. OPTION . 
*. *B4 .* 



*****C 5** ******** 

* LOAD ADDR * 

* OF SELECT * 

* INTO LINK * 

* REG 8 * 

* * 
***************** 



*****P2********** 

* * 

* POST CHAN * 

* 9 OVERFLOW * 

* TO CCB * 

* * 
***************** 



******q 3 *********** 

EPRSIO OF 

*_*_*_*_*- r *_*_*_* 

RE-EXECUTE 

* USERS * 

CCB 

************* 



************* 



*****Q5********** 



* DEQUEUE * 

* ERROR * 

* ENTRY * 
***************** 



***** 
*CL * 
* B3* 



* DEQUEUE 

* ERROR 

* ENTRY 
************* 



EXIGN 

*****G2******* 

* MOVE STORED 

* CSW FROM 

* ERROR QUEUE 

* ENTRY TO 

* CSW 
************** 



***** 
*CJ * 
* B4* 



*****H2** ******** 
*DEQUER DE* 
*_*^*_*_*_*,.*_*_* 

* DEQUEUE * 

* ERROR * 

* ENTRY * 
***************** 



***** 
*CK * 
* Al* 
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Chart DE. $$A$SUP1 - SGUNCK Macro, DEQUER and RSTREG Subroutines 
Refer to Chart 06. 



* . . * 

* DEQUER * 

* * 
*************** 



*****C2******* 

* RESTORE * 

* DEQUER 

* SWITCH TO 

* A BRANCH 

* * 
************** 



*****D2********** 

* * 

* LOAD PUB * 

* ADDR INTO * 

* REG 3 * 

* * 
***************** 



*****E2********** 

* DEQUEUE * 

* THE FIRST * 

* ENTRY OF THE * 

* ERROR QUEUE * 

* . * 
***************** 



*****P2********** 

* MOVE CHAN * 

* AND UNIT * 

* FROM PUB * 

* TO I/O OLD * 

* PSW * 
***************** 



DEQUER1 

*****G2********** 
♦DECREMENT ADDR * 
♦OF NEXT AVAIL- ♦ 
♦ ABLE ERROR ♦ 
♦QUEUE ENTRY BY ♦ 
♦LNG OF 1 ENTRY ♦ 
***************** 



♦♦♦♦♦^♦♦♦♦♦♦* 

♦ RESET DEVICE^ 

♦ BUSY AND * 

♦ QUEUED ERROR 

♦ FLAG6 IN PUB ♦ 

♦ * 
************** 



****B5********* 

* * 

* RSTREG ♦ 

* * 
*************** 



*C3 
SUPERVISOR 
GENERATION 
OPTION. 



C4 ♦. 
.♦ MULTI *. 
.♦PROGRAMMING*. 
*. OPTION 

♦. ^C3 .* 



♦ LOAD CHANNEL * 

♦ AND UNIT * 

* INTO REG 2 * 

* * 
***************** 



*****D4********** 
♦CQDSP CN* 
*_*_*„*_*_*_*_*_* 

♦ RESTORE ♦ 

♦ REGISTERS * 

♦ * 
***************** 



****E4********* 

♦ RETURN TO * 

♦ LINK ADDR * 

♦ * 
*************** 
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DOS Supervisor and Physical and Loaical Transients 



Chart DF. $$A$SUP1 - SGUNCK Macro, Error Start I/O Subroutine 
Refer to Chart 06, 



****A1********* 

* * 

* ERRSIO * 

* * 
*************** 



************* 



*B3 
SUPERVISOR 
GENERATION 
OPTION. 



STORAGE 
PROTECT 
OPTION 



LOAD REG 8 * 

TO REG 2, * 

CCW KEY * 

* 
**************** 



*****0i. ********** 

* LOAD PROGRAM * 

* INTERRUPT KEY * 

* FROM COMM * 

* REGN TO * 

* REG 2 * 
***************** 



*****£!********** 

* INSERT * 

* STORAGE * 

* PROTECTION * 

* KEY INTO * 

* REG 2 * 
***************** 



***C2********** 

* 

MOVE CCW * 

ADDRESS * 

TO CAW * 



**** 

* * 

* 1 * 



************* 



****E 2 ********* 

* * 

* ERRSI02 * 

* * 
*************** 



YES .* ERROR 
...*. ON 

*. RECOVERY 
*. .* 
X *. .* 
***** *nq 
*DC *RCVERR . 
* B2* .X... 



RSI02 
*****F1********** 

* MOVE CCW * 

* ADDRESS * 

* FROM REG 8 * 

* TO CAW * 

* * 
***************** 



*****Gl********** 

* MOVE STORAGE * 

* PROTECTION * 

* KEY FROM * 

* REG 2 TO * 

* CAW * 
***************** 



*****H1 ********** 

* LOAD CHANNEL * 

* AND UNIT * 

* FROM I/O * 

* OLD PSW * 

* TO REG 2 * 
***************** 



*CD-E4 
CE-D3 

***** 



* GET * 

* REQUESTOR * 

* ID * 

* * 
***************** 



**** 

* * 

* 2 * 

* * 
**** 



MACHINE CHECK 
INTERRUPT 

***** 

*AA * 



MACHEK X 

*****H3********** 

* MOVE ACTION * 

* CODE S * 

* INTO MAIN * 

* STORAGE * 
*. LOCATION 1 * 
***************** 



*K1 
HARD WAIT 

THE SUPERVISOR ENTERS THE 
WAIT STATE WHEN THE LOAD 
PSW INSTRUCTION LOADS A 
DOUBLE WORD WITH A 1 IN 
BIT POSITION 14. 



****j3********* 


.* *. 


**** 


ENTER * 


NO .* CHANNEL *. 




WAIT STATE * 


...*. END .* 




*Kl * 


*. .* 




*************** 


*. .* 
X *. .* 
**** *YES 

* * 

* 1 * 

* * 
**** 

X 






X 




****K4********* 


****K5********* 




* RETURN TO * 


* RETURN TO 




*' LINK ADDR * 


* LINK ADDR 




* PLUS 4 * 


* 




*************** 


*************** 



*****P5********** 

* * 

* INSERT * 

* CHANNEL AND * 

* UNIT IN I/O * 

* OLD PSW * 
***************** 

**** 

* * 
*CJ * 

* Bl* 
**** 

CHFAIL1 X 

*****Q5 ********** 

* MOVE SYSTEM * 

* ERROR CODE * 

* X'Ol' TO * 

* CORE LOC * 

* * 
***************** 



*****H5********** 

* MOVE SEREP * 

* ERROR CODE * 

* X«OF« TO * 

* MACHINE CHECK * 

* NEW PSW * 
***************** 



Charts 



121 



Chart DG. $$A$SUP1 - SGUNCK Macro, Quiesce I/O Task 
Refer to Chart 06, 



***** 

*BC * 
* J4* 



.* ERROR * 
*. QUEUE TABLE 
*. EMPTY .* 



****A4********* 

* * 

* QISRT1 * 

* * 
*************** 



****A5********* 

* * 

* QISRT2 * 

* * 
*************** 



QISRT2 

*****B5********** . 

* LOAD ADDRESS * 

* OF PUB ENTRY * 

* FOR SYSRES * 

* TO REG 15 * 

* * 
***************** 



*****C2********** 

* SET PIK * 

* IN COMM * 

* REGN TO * 

* SUPVR KEY * 

* X'60' * 
***************** 



*****D2********** 

* GET ADDR * 

* OF 1ST PUB * 

* ON CHANNEL * 

* TO REG 15 * 

* * 
***************** 



NOQUIS X 

*****C3******* 
*RESET QUIESCE* 

* I/O PIB FLAG * 

* BYTE TO 

* X«84«, * 

* INACTIVE * 
************** 



***** 
*BC * 
* C3* 



* SSM TO * 

* ENABLE ALL * 

* INTERRUPTS * 

* * 
***************** 



T/P 

OR MICR 
*J5 



*****F1********** 

*QISRT1 DG* 
*_*-*_*_*_*-,*_*.* 

* QUIESCE * 

* DEVICE * 

* * 
***************** 



*****Hi ********** 

* INCREASE * 

* PUB ADDRESS * 

* TO NEXT PUB * 

* ENTRY * 

* * 
***************** 



.* CAN *. NO 
. DEVICE BE .*..X 
*.QUIESCED .* 



QUISI04 

*****H2********** 
♦QISRT1 DG* 
*_*_*_*,*_*_,*_*_* 



***************** 



QUISI03 

*****J2********** 

* INCREASE * 

* PUB ADDRESS * 

* TO NEXT PUB * 

* ENTRY * 

* * 
***************** 



*****D4********** 

* SSM TO * 

* DISABLE * 

* I/O * 

* INTERRUPTS * 

* * 
***************** 



NO .* 7 OR 9 
,..*. TRACK TAPE 
*. SUPPORT . 
*. *J5 .* 



*****F4********** 

* MOVE D TO * 
♦TRANSIENT NAME * 

* FOR $$ANERRD, * 

* TAPE ERROR * 

* RECOVERY TRAN * 
***************** 



*****G4********** 

* * 

* LOAD ADDRESS * 

* OF PUB * 

* TO REG 15 * 

* * 
***************** 



.* ERROR *. 
.♦QUEUE ENTRY*. 
. FOR TAPE 
*. DEVICE .* 



*****J4********** 

* MOVE A TO * 
♦TRANSIENT NAME * 

* FOR $$ANERRA, * 

* TRANSIENT * 

* MONITOR * 
***************** 







X 








.*. 








E5 * 








.* 


* 


NO 


.* 


PUB 




..* 




CHANQ PTR 




* 


. X'FF* 





****F5********* 

* RETURN TO * 

* LINK ADDR * 

* * 
*************** 



*J5 
SUPERVISOR 
GENERATION 
OPTION. 



END 


* 


NO 


OF PUB 




*. ... 


TABLE 


.* 




.* 






*. .* 




X 


*YES 




**** 


* 




* 
* 2 


X 




* 


**** 




**** 



****K4********* 

* SVC 3 * 
*FETCH $$ANERRA * 

* OR $$ANERD * 
*************** 
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Chart EA. $$A$SUP1 - SGDFCH Macro, Fetch (Part 1 of 3) 
Refer to Chart 03. 



**** 

* * 

* i * 



****Al ********* 

* FCHRT2 * 

* * 
*************** 



FCHRT2 

*****B1 ********** 

* LOAD PROGRAM * 

* INTERRUPT KEY * 

* FROM COMM * 

* REGN TO * 

* REG 6 * 
***************** 



****A2 ********* 

* FCHRT1 * 

* * 
*************** 



DASDFP 

OPTION 

*B4 



FCHRT3 

*****0l ********** 

* MOVE SUPVR * 

* KEY TO PROG * 

* INTERRUPT KEY * 

* IN COMM REGN * 

* * 
***************** 



FCHRT3 

*****C2********** 
♦INDICATE FETCH * 

* IN REQUESTOR * 
...X* I/O KEY OF * 

* ERROR RECOVERY' * 

* BLOCK * 
***************** 



*****02********** 

* MOVE SUPVR * 

* KEY TO PROG * 

* INTERRUPT KEY * 

* IN COMM REGN * 

* * 
***************** 



*****A3********** 

* LOAD ADDRESS * 
*0F A-TRANSIENT * 

* AREA (PTA) ♦ 

* TO REG 9 * 

* * 
***************** 



*****B3********** 

* MOVE PHASE * 

* NAME FROM * 

* REG L TO * 

* 1ST 8 BYTES * 

* OF PTA * 
***************** 



*****C3********** 

* CLEAR * 

* REGISTER * 

* 4 TO COMPUTE * 
♦DIRECTORY DISK * 

* ADDRESS ♦ 
***************** 



SUPERVISOR 
GENERATION 
OPTION. 



LOAD ADDRESS TABLE— LOADING 
REGISTER 4 + CONSTANT INTO 
REGISTER 4 INCREMENTS REGISTER 
4 BY THE CONSTANT. 



*****g i********** 

* SAVE PROGRAM ♦ 

* INTERRUPT KEY ♦ 
♦IN INSTRUCTION ♦ 
♦AT LABEL «FIK' ♦ 

* * 
***************** 



E3 ♦. 
* 

$$ 
PHASE 



OPCLOSE 

*****D4********** 

* CALC OPEN DIR * 
♦DISK ADDR, HRR ♦ 

...X^ TO BE 601 *. 

* IN REG 4 ♦ 

* *C4 * 
***************** 



ABTRANS 

*****E4********** 

* CALC TRAN DIR ♦ 
♦DISK ADDR, HRR,+ 

...X^ TO BE 501 ♦. 

* IN REG 4 ♦ 

* *C4 * 
***************** 



1 ♦ 




*****F2^***^+^** 




♦ . 


♦VLDADR2 HA* 


MPS 


♦ . YES 


*_*_*-*-*_*_*_*_* 


OR SP 


.♦ 


...X^ VALIDATE ♦ 


♦ B4 


.♦ 


♦ LOCATION OF ♦ 




* 


♦ PHASE NAME ♦ 


♦ . .♦ 




***************** 



PREFERED 

*****F4* ********* 

♦ CALC LIB-RTN ♦ 
♦DIR DISK ADDR, ♦ 

...X^HRR, TO BE 701 ♦. 

♦ IN REG 4 ♦ 

♦ *C4 * 
***************** 



*****G1 ********** 
♦SVEREG HA+ 
*_*•*_*_*_*-*_*_* 

♦ SAVE USERS ♦ 

♦ REGISTERS ♦ 



****** 



*********** 



IPL 

TIME 
♦H2 



*****jl ********** 
♦LTA KA^ 

*_ *- *- *_ *_*_*_*_ * 

♦ DETERMINE IF ♦ 

♦ SYSRES IS ON * 

♦ SELECTOR CHAN ♦ 
***************** 



*****«! ********** 

♦ * 

♦ LOAD REG 4 ♦ 

♦ TO LINKAGE * 

♦ REG 13 ♦ 

♦ * 
***************** 



♦ H2 
ON THE FIRST ENTRY TO 
THE FETCH SUBROUTINE 
DURING IPL. 



LTA=ADDRESS OF LOGICAL 
TRANSIENT AREA 
(B-TRANSIENT). 

PTA=ADDRESS OF PHYSICAL 
TRANSIENT AREA 
(A-TRANSIENT). 



♦ K2 

DEVICE CHHR 

2311 = 1001 

2314 = 0101 



*****H4********* 

♦ CALC FGP DIR 
♦DISK ADDR, HRR, 

X^ TO BE 801 

♦ IN REG 4 

♦ +C4 
**************** 



.X+ 



*****j4********** 

* LOAD ADDRESS ♦ 
OF CORE IMAGE ♦ 

DIRECTORY ♦. 

* IN REG 4 ♦ 

* *K2 ♦ 
***************** 



X. 

PHASE X 

*****K3********** 
♦CALC PROB PROG ♦ 
♦PHASE DIR DISK ♦ 

♦ ADDR, HRR, TO ♦ 

♦ BE 901 IN ♦ 

♦ REG 4 *C4 ♦ 
***************** 



SETSKAD X 

*****H5********* 

♦ STORE ADDRESS 

♦ OF SELECTED 

♦ DIRECTORY 

♦ FROM REG 4 

♦ AS SEEK ADDR 
**************** 



*****j5********** 



SET CCW 

TO READ 

DIRECTORY 



***** 
*EB * 
* Bl* 
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Chart EB. $$A$SUP1 - SGDFCH Macro, Fetch (Part 2 of 3) 
Refer to Chart 03. 



***** 

*EA * 
* J5* 



RDDIR2 X 

****** Bl *********** 

READUPDT ED 

**_*_*- r *_*_*_*_** 

READ DIRECTORY 

♦BLOCK, UPDATE* 

DISK ADDR 

************* 



*#***Ci ********** 

* LOAD ADDRESS * 

* OF PTA IN REG * 

* 14, DIRECTORY * 

* LENGTH IN * 

* REG. 12 *A4 * 
***************** 



*****D1 ********* 

* LOAD EXIT 

* ADDRESS EXT02 

* IN REG. 15 

* FOR SVC 23 

* EXIT 
**************** 



**** 

* * 

* 1 * 

* * 
**** 



*****B 2 ********** 

* INCREASE * 

* ADDRESS * 

* TO NEXT * 

* DIRECTORY * 

* ENTRY * 
***************** 



END OF 
DIRECTORY 
. BLOCK . 



GETENTRY X 

*****B 3 ********** 

* LOAD PHASE * 

* ENTRY ADDRESS * 

* FROM DIRECTORY * 

* TO REG. 12 * 

* * 
***************** 



*****C 3 ********** 

* LOAD PHASE * 

* LOAD ADDRESS * 
*FROM DIRECTORY * 

* TO REG. 7 * 

* * 
***************** 



.♦OVERRIDING * 
.LOAD ADDRESS 
*.IN REG .* 



♦ A4 

PTA=ORIGIN OF DSECT INTO 
WHICH DIRECTORY BLOCK 
WAS READ. 

DIRECTORY LENGTH=360. 

SEARCH IS THUS LIMITED 
TO 18 ENTRIES BECAUSE 
EACH SEARCH INCREMENT= 
20. 



*B4 
IF THE PHASE IS TO BE 
LOADED AT OTHER THAN 
THE LOAD ADDRESS IN 
THE DIRECTORY ENTRY, 
THE PHASE ENTRY FROM 
THE DIRECTORY ENTRY 
MUST BE ADJUSTED BY 
A RELOCATION FACTOR. 
RELOCATED ENTRY ADDRESS= 
L/E ENTRY ADDRESS + (OVER- 
RIDING LOAD ADDRESS-L/E 
LOAD ADDRESS). THE 
SUPPLIED LOAD ADDRESS IS 
FIRST SAVED IN REGISTER 1. 



.♦ END OF *. NO 
*. CORE IMAGE .*... 
♦.DIRECTORY.* 



EQUAL 
PHASE 
NAMES 



*****[= 3 ********** 

* ADD RELOC. ♦ 

* FACTOR OF * 
♦PHASE TO ENTRY * 

* ADDRESS IN * 

* REG. ^B4 ♦ 
***************** 



NOLOADAD 

*****Q4* ******** 

♦ LOAD PHASE 

♦ ENTRY ADDRESS 
...X* FROM REG. 12 

♦ TO REG. 



***************** 



*****£ 4********** 

♦ LOAD PHASE ♦ 

♦ LOAD ADDRESS ♦ 

♦ FROM REG. 7 ♦ 

♦ TO REG. 1 * 

♦ * 
***************** 



SUPERVISOR 
GENERATION 
OPTIONS. 



Gl ♦. 
SVC 23 



***** 
*BA * 
* B3* 



G2 ♦. 
* 

SVC 23 



*****H2*^****^** 

♦ MOVE LOAD ♦ 

♦ ADDRESS OF * 

♦ PHASE TO USER ♦ 
♦AREA SPECIFIED ♦ 

♦ BY REG. * 
***************** 



EXPAND 

*****F3********** 

* BUILD LIBRARY ♦ 

♦ SEEK ADDRESS * 
♦FROM DIRECTORY * 

♦ PHASE ENTRY ♦ 

* * 
***************** 



*****G3** ******** 

* * 

* INSERT ♦ 

* BLOCK SIZE * 

* IN READ CCW ♦ 

* * 
***************** 



**** 

* 3 ♦ 



.♦. 



MPS 

OR 
SP 



***** 
*BC ♦ 
* C3^ 



G4 

$$ 
PHASE 

"♦NO 



.* PHASE *. YES 
*.LOAD ADDRESS .*.... 
*. WITHIN .* 
♦.SUPVR.* 



*****j3********** 

♦ STORE NUMBER ♦ 
♦OF TEXT BLOCKS ♦ 

* AND LENGTH OF ♦ 

♦ LAST BLOCK ♦ 

* * 
***************** 
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Chart EC, $$A$SUP1 - SGDFCH Macro, Fetch (Part 3 of 3) 
Refer to Chart 03. 



*EB * 

* J3* 

* * 

* 




**** 

* * 

* 1 * 

* * 
**** 






* 


RDTXT X 

*****B2********** 

* LOAD BLOCK * 

* LENGTH OF A * 

* FULL BLOCK * 

* INTO REG. 12 * 

* * 


♦ B3 
BLOCK COUNT IN 
THE DIRECTORY 
ENTRY INCLUDES 
THE LAST BLOCK. 


X 
*****B4* ********* 

* UPDATE * 

* LOAD ADDRESS * 

* FOR NEXT * 

* TEXT * 

* * 



***************** 



LAST 
TEXT 

BLOCK 
♦ B3 



***************** 



.♦ MORE 
BLOCKS 
♦ . TO LOAD 



*****02********** 

* LOAD LENGTH * 

* OF LAST BLOCK * 

* INTO REG. 12 * 

* AND IN CCW * 

* * 
***************** 



*D3 
SUPERVISOR 
GENERATION 
OPTIONS. 



MPS 
OR SP 

♦ D3 



DATAADDR X 

*****£ 2********** 
♦CALCULATE LOAD * 
♦ADDRESS OF END * 

* OF TEXT BEING * 

* LOADED IN * 

* REG. 2 * 
***************** 



.* FETCH *. 
YES .* FROM * 
....*. BACKGROUND 

*. PROG. .* 



MPS *. YES 

OR SP .*.... 
*D3 .* 



*****P3********** 

♦VLDADR3 HA* 

*-* T *_*^.*_*_*-*_* 

.X* CHECK ADDRESS * 

* LIMITS OF * 

* TEXT BLOCK * 
***************** 



NO .*PROGRAM KEY*. 
...*. IN LOC. 

*. «FIK' .* 



G2 



*. 



END 

.♦ADDRESS OF *. 

. TEXT BLOCK . 

*. WITHIN .* 

♦.CORE .* 

*. .* 

*NO 



*****G3********** 

* STORE LOAD * 

* ADDRESS FOR * 

* TEXT FROM * 

* REG. 1 TO * 

* READ CCW * 
***************** 



*****G4********** 

* STORE END * 

* ADDRESS OF * 

* PHASE IN * 

* COMM. REGION, * 

* DISPL. 36 * 
***************** 



***** 
*BA * 
* B3* 



******H3*********** 

READUPDT ED 

*-*_*_*-*_*-*_*-* 

READ TEXT 

♦BLOCK, UPDATE* 

DISK ADDR. 

************* 



SETSVAR X 

*****H4********** 

* STORE ADDRESS * 

* OF SAVE AREA, ♦ 

* REG. 10+4, ♦ 

* INTO REG. 9 * 

* * 
***************** 



****J4********* 

♦ RETURN TO ♦ 

♦ ADDRESS IN ♦ 

♦ LINK REGISTER ♦ 
*************** 
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Chart ED. $$A$SUP1 - SGDFCH Macro, READUPDT and RSTPUB Subroutines 
Refer to Chart 03. 



****B1********* 

* * 

* READUPDT * 

* * 
*************** 



READUPDT 

*****d ********** 
*QISRT2 DG* 
*_*_*_*_*_*-*_*_* 

* QUIESCE * 

* I/O ON SYSRES * 

* * 
***************** 



**** 

* * 

* 1 * 



**** 

* * 

* 2 * 



*****£ 1 ********** 
*RSTPUB ED* 
*-*-*-*-*-*-*_*_* 



***************** 



*****p i ********** 

* SET SYSTEM * 

* MASK TO * 

* ENABLE * 

* I/O * 

* * 
***************** 



*****G1 ********** 

* * 

* LOAD ADDR * 

* OF CCB * 

* TO REG 15 * 

* * 
***************** 



******H1 *********** 

SVC 

* READ * 

FROM 

* SYSRES * 

************* 



*****£ 2 ********** 
*QISRT1 DG* 

*_*_*_*_*_*_*_*_* 

* COMPLETE * 

* I/O ON SYSRES * 

* * 
***************** 



**** 

* * 

* L * 

* * 

**** 



**** 

* * 

* 2 * 

* * 
**** 



*****D3********** 

*RSTPUB ED* 
*^*_*_*. *_*_*_*,.* 

* RESTORE * 

* PUB FLAGS * 

* * 
***************** 



E3 *. 

.*END OF *. 

CYLINDER 

POSTED IN 

CCB 



*****p 3 ********** 
*UPDATE CYLINDER* 

* NUMBER AND * 

* RESET HEAD * 

* AND RECORD * 

* NUMBER * 
***************** 



* UPDATE 

* DISK ADDR 

* TO NEXT BLOCK 
* 
**************** 



H3 *. 
.♦STORAGE*. 
.♦PROTECT OR 
. MPS OPTION 
*. *G4 



*****j3********** 

* RESTORE PIK * 

* IN REGISTER 6 * 

* FROM * 
♦LOCATION 'FIK' * 

* * 
***************** 



*G4 
SUPERVISOR 
GENERATION 
OPTIONS. 



****K3********* 

* RETURN TO * 

* LINK ADDRESS * 

* * 
*************** 



****Q5********* 

* * 

* RSTPUB * 

* * 
*************** 



* SET SYSTEM * 

* MASK TO ♦ 

* DISABLE I/O * 

* * 
***************** 



RSTPUB1 

*****J5********** 

* EXCHANGE * 

* SYSRES PUB * 

* FLAG WITH * 

* FETCH PUB * 

* FLAG * 
***************** 



****K5******* 

* RETURN TO 

♦ LINK ADDR 
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Chart FA. $$A$SUP1 - SGSVC Macro, SVC Interrupt Handler 
Refer to Chart 03. 



*A4 
SUPERVISOR 
GENERAT'ION 
OPTION. 



***** 

*AA * 

* B2* 

* * 



MICR 

DEVICE 

*B4 



*****C1********** 

* MODIFY * 

* GENERAL EXIT * 

* ROUTINE TO * 

* LOAD SVC * 

* OLD PSW * 
***************** 

**** 



**** 
X 
*****D1 ********** 

* SAVE REGS * 

* 9-11 * 

* UNTIL GENERAL * 

* EXIT * 

* * 
***************** 



*****gl ********** 

*GENENT BD* 
*_*_*_*_*_*_*_*_* 

* GET PIB ADDR, * 
*SAVE REGSt AND * 

* EST. BASE REG * 
***************** 



*****F1 ********** 

* LOAD ADDR * 

* OF EXTOl * 

* IN GENERAL * 

* EXIT RTN * 

* TO REG 9 * 
***************** 



*****C 2 ********** 

* LOAD REGISTER * 

* 11 WITH 4096 * 

* FOR USE AS * 

* BASE REGISTER * 

* * 
***************** 



***** 
*JC * 
* Bl* 





*.NO 


SVC 22 


.*.. 




.* 


.* 




*. .* 




*YES 




• 




. 




X 




.*. 




C3 *. 




* 




RECORD 


*. 


ZERO 


.* . 


= 


.* 


.* 




*. .* 




*N0 




!x... 





*B4 
EXTERNAL INTERRUPTS ARE NOT 
PROCESSED FOR MICR DEVICES 
ONLY. THE ENTSVC INSTRUCTION 
WILL BE SET TO A NO-OP BEFORE 
ENTERING THE USER'S STACKER- 
SELECT ROUTINE (SEE CHART JB-H2). 
THE NO-OP NOW PERMITS A RETURN 
TO THE MICR INTERRUPT HANDLER 
AT PDSVC28, CHART JB. 



N0TPD1 X 

*****D3********** 

* SET SYSTEM * 

* MASK TO * 

* DISABLE I/O * 

* INTERRUPTS * 

* ONLY * 
***************** 



N0TPD2 X 

*****E3********** 

* MODIFY * 

* GENERAL EXIT * 

* ROUTINE TO * 

* LOAD SVC * 

* OLD PSW * 
***************** 



**** 

* * 

* 1 * 



X 








*G3 


.*. 








THE SVC CODE IS 


1 *. 








STORED IN BYTE 3 


* 








OF THE SVC OLD 




* 


YES 




PSW (LOCATION 35). 


SVC 




*. .. . 




SVC CODES 30, 31, 
AND 32 ARE RESERVED 


*G3 


* 






.* 








FOR QTAM AND ARE 


*. .* 




X 




NOT DOCUMENTED IN 


• *N0 




***** 




THIS PLM. 

REFER TO THE QTAM 






*CA *SVCOO 






* Dl* 




PLM LISTED IN THE 






* * 




PREFACE. 






* 




SVC CODES 33 AND 34 


X 








ARE RESERVED FOR THE 


.*. 




SVCRTN1 


COMRG AND GETIME 


1 *. 






*****H2********** 


MACROS. ANY OTHER 


* 






* DEVELOP * 


USE RESULTS IN A 


VALID 


* 


YES 


* PTR TO TABLE * 


BRANCH TO EXTOl. 


SVC 




* 


.X* OF SVC RTN * 




CODE 


* 




* ADDRS FROM * 




*G3 .* 






* SVC CODE * 




*. .* 






***************** 




*N0 
X 










***** 










*BA * 










* B3* 






X 




* * 






*****J2********** 




* 






* MOVE ADDR * 




ERR21 






* OF SVC * 

* ROUTINE FROM * 

* TABLE TO * 

* REG 6 * 
***************** 





*D4 








.SVC . 


OPTION 


. LABEL 


.CHART . 


. . 


ALL 


. SVCOO 


.CA-01 . 


. 1 . 


ALL 


. SVC01 


.FB-B1 . 


. 2 . 


ALL 


. SVC02 


.FC-B1 . 


. 3 . 


ALL 


. SVC03 


.FD-B1 . 


. 4 . 


ALL 


. SVC04 


.FD-B3 . 


. 5 . 


ALL 


. SVC05 


.FB-B2 . 


. 6 . 


ALL 


. ERR23 


.BA-B3 . 


. 7 . 


ALL 


. SVC07 


.FD-B4 . 


. 8 . 


ALL 


. SVC08 


•FE-B1 . 


. 9 . 


ALL 


. SVC09 


.FE-B3 . 


. 10 . 


TIMER 
NO TIMER 


. SVC10 
. ERR21 


.FE-B5 . 
.BA-B3 . 


. 11 . 


ALL 


. SVC11 


.FC-B4 . 


. 12 . 


ALL 


. SVC12 


.FB-B3 . 


. 13 . 


ALL 


. SVC13 


.FB-B4 . 


. 14 . 


ALL 


. ERR10 


.BA-C4 . 


. 15 . 


MPS 
NO MPSI 


. SVC15 

• SVC15I 


.CA-B1 . 

•CB-B1I . 


. 16 . 


PC, NO IT OR OC 
PC AND IT OR OC 
NO PC 


. SXTRT1 
. SXTRT1 
. ERR21 


.FG-B5 . 
.FD-B2 . 
.BA-B3 . 


. 17 . 


PC, NO IT OR OC 
PC AND IT OR OC 
NO PC 


. EXTRT1 
. EXTRT1 
. ERR21 


.FG-B4 . 
.FL-B2 . 
.BA-B3 . 


. 18 . 


TIMER 
NO TIMER 


. SVC18 
. ERR21 


.FL-B2 . 
.BA-B3 . 


. 19 . 


TIMER 
NO TIMER 


. SVC19 
. ERR21 


.FL-B2 . 
.BA-B3 . 


. 20 . 


OC RTN 
NO OC RTN 


. SXTRT1 
. ERR21 


.FL-B2 . 
.BAxB3 . 


. 21 . 


OC RTN 
NO OC RTN 


. EXTRT1 
. ERR21 


•FL-B2 . 
.BA-B3 . 


. 22 . 


MPS 
NO MPS 


. SVC22 
. EXTOl 


.FF-B1 . 
.BC-B1 . 


. 23 . 


MPS 
NO MPS 


. SVC23 
. ERR21 


.FF-B3 . 
.BA-B3 . 


. 24 . 


TIMER 
NO TIMER 


. SVC24 
. ERR21 


.FF-B5 . 
.BAtB3 . 


. 25 . 


BTAM 
NO BTAM 


. SVC25 
. ERR21 


.CA-E1 . 
.BA-B3 . 


. 26 . 


STOR PROT 
NO STOR PROT 


. SVC26 
. EXTOl 


.FF-H4 . 
.BC-B1 . 


. 27 . 


BTAM 
NO BTAM 


. SVC27 
. EXTOl 


.CA-E1 . 
.BC-B1 . 


. 28 . 


MICR 
NO MICR 


. PDSVC26 
. ERR21 


.JC-B1 . 
.BA-B3 . 


. 29 . 


MICR 
NO MICR 


. SVC29 
. ERR21 


.FB-B5 . 
.BA-B3 . 
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Chart FB. $$A$SUP1 - SGSVC Macro, SVCs 1, 5, 12, 13, and 29 
Refer to Chart 03. 



SVC 1 
***** 
*FA * 
* J2* 



SVC 5 
***** 
*FA * 
* J2* 



SVC 12 
***** 
*FA * 
* J2* 
* * 



SVC 13 
,.**** 
*FA * 
* J2* 
* * 



SVC 29 
***** 
*FA * 
* J2* 



SVC01 X 

*****B1********** 
*SVEREG HA* 
*_*_*-.*_*_*_*_*_* 

* SAVE USER * 

* REGISTERS * 

* * 
***************** 



*****£}********** 



***************** 



*****Q1********** 

*FCHRT2 EA* 
*_*-*_*_*_*.,*_*_* 

* LOAD PHASE * 

* FROM CI LIB * 
*TO MAIN STORAGE* 
***************** 



El *. 

.* USER *. 

.♦OVERRIDING 

ENTRY 

*. ADDRESS . 



*****Fi********** 

* MOVE * 

* OVERRIDING * 

* ENTRY ADDR * 

* TO REG * 

* *E4 * 
***************** 



SVC05 X 

*****B2********** 

* MOVE '1' INTO * 

* SVC 3 PHASE * 

* NAME TO FETCH * 

* $$ANERR1 * 

* *J2 * 
***************** 



*****C2********** 
*SVEREG HA* 
*-.*_*-*_*«*«*_*_* 

* SAVE USER * 

* REGISTERS * 

* * 
***************** 



***** 
*FD * 
* 02* 



*****E2******* 

* INSERT * 

* OP CODE IN * 

* INSTRUCTION *X.. 

* SVC1213 TO * 
*TURN OFF BITS* 
************** 



*****C3******* 

* TURN OFF * 

* BITS IN 2ND * 
*JOB CTL SWITCH * 

* AT COMREG +57* 

* *F4 * 
************** 



***** 
*BC * 
* Bl* 



*****F3******* 

* INSERT * 

* OP CODE IN * 

* INSTR SVC1213 *X. 

* TO TURN ON * 

* BITS * 
************** 



*****C4******* 


* 


TURN ON * 


* 


BITS IN 2ND * 


*JOB CTL SWITCH 


* 


AT COMREG +57* 


* 


*F4 * 


************** 




X 




***** 




*BC * 




* Bl* 



SVC29 X 

*****B 5** ******** 

* SSM TO * 

* DISABLE * 

* ALL * 

* INTERRUPTS * 

***************** 



PDCCBT X 

*****C 5* ********* 

* LOAD ADDRESS * 

* OF CCB FROM * 

* REG 1 TO * 

* REG 6 * 

* * 
***************** 



*****F3********** 

* * 
*GET ADDRESS OF * 

* CORRECT * 

* COMMUNICATION * 

* REGION * 
***************** 



.X* 



* STORE ENTRY * 

* ADDR IN SVC * 

* OLD PSW * 

* * 
***************** 



* STORAGE *. NO 
PROTECTION .*... 
*. FEATURE .* 
*. *G4 .* 



*****jl********** 

* RESTORE USER * 

* PROTECTION * 

* KEY IN SVC * 

* OLD PSW * 

* * 
***************** 



.* SVC *. YES 
♦.ISSUED BY BG .*... 
*. PROG. .* 



X 

***** 

*BA * 

* B3* 

* * 



SVC1213 X 

*****G3******* 

* TURN BITS * 

* ON OR OFF 

* IN COMREG+57 

* PER OP CODE 

* *F4 * 
************** 



***** 
*BC * 
* Bl* 



*E4 
REG CONTAINS 
THE L/E ENTRY 
ADDRESS LOADED 
IN THE FETCH 
SUBROUTINE. 



*F4 
MASK IS SPECIFIED 
IN REG 1. 



*G4 
SUPERVISOR 
GENERATION 
OPTION. 



TRAFFIC 
BIT ON 
IN CCB 



POINT TO 
NEXT CCB 
IN REG 1 



***************** 



NO .* WAS 
...*. LAST CCB 
*. CHECKED 



***** 
*BC * 
* C3* 



ERR21 



*J2 
WHEN A MVCOM MACRO IS ISSUED, REGISTER 1 IS 
LOADED WITH THE ADDRESS OF THE MOVE 
INSTRUCTION IN THE MVCOM MACRO EXPANSION. 
REGISTER 1 IS STORED IN THE INTERRUPTED 
PROGRAMS SAVE AREA DURING SUPERVISOR 
INITIALIZATION. REGISTER 1 IS THEN FREE 
TO BE LOADED WITH THE ADDRESS OF THE 
NAME OF THE MVCOM A-TRANSIENT 
PROGRAM. SVC 3 FETCHES THE 
TRANSIENT USING REGISTER 1. 
THE MVCOM A-TRANSIENT PROGRAM 
WILL PICK UP THE ADDRESS OF THE 
MOVE INSTRUCTION IN THE MACRO 
EXPANSION FROM THE PIB SAVE 
AREA AND LOAD IT BACK INTO 
REGISTER 1. 



*****H4********** 

* * 

* TURN OFF * 

* SVC 7-BOUND *X 

* FLAG IN PIB * 

* * 
***************** 



*****J4********** 

* * 
*SSM TO DISABLE * 
*I/0 INTERRUPTS * 

* ONLY * 

* * 
***************** 



***** 

*BC * 
* B3* 



MPS 

OPTION 

*G4 



*****H5 ********: 

* SET WAIT BIT 

* IN SVC OLD 

* PSW 
* 

*************** 



*SSM TO DISABLE 
*I/0 INTERRUPTS 
* ONLY 
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Chart FC. $$A$SUP1 - SGSVC Macro, SVCs 2 and 11 
Refer to Chart 03. 



**** 

* * 

* i * 



SVC02 
YES .* 



Bl *. 
* SVC 
ISSUED 



(SVC INTERRUPT) FA-J2 
(FETCH SSBATTNA) HA-J4 
(FETCH $$BE0J) BC-C5 



***** A3 ********** 

* MOVE LOAD * 

* ADDR +8 TO * 

* PSW STORED IN * 

* LOGICAL TRAN * 
*SAVE AREA *J5 * 
***************** 



*****B3********* 



***************** 



B-TRAN 

AREA IN 

USE 



.* PIK *. 
.*EQUALS LTK 
IN COMM 
*. REGN 



.* SVC 
* ISSUED 

BY 
*. B-TRAN 



**** 
SVC11A X 

*****C4******* 

* SET X'SO" IN* 

* PIB FLAG BYTE* 

* TO INDICATE 

* REGS SAVED * 

************** 



*B5 
SUPERVISOR 
GENERATION 
OPTION. 



***** 
*BA * 
* B3* 



*****£ 1********** 

* MOVE PIK * 

* FROM COMM * 
*REGN TO BE USED* 

* AS LOGICAL * 

* TRANS KEY *H5 * 
***************** 



X 

SVC02A 

*****P1 ******* 

* RESET CANCEL* 

* BIT X«40' * 

* IN PIB CANCEL 

* FLAG * 

* * 
************** 



*****E2******* 

* RESET X'02'* 

* IN PIB FLAG * 
*BYTE, INDICATES* 

* SVC 2 BOUND * 

* * 
************** 



** * 

* H2* 
**** 

RESVC X 

*****F 2** ******** 

* SUBTRACT 2 * 

* BYTES FROM * 

* ADDR IN SVC * 

* OLD PSW * 

* * 
***************** 



LOAD B-TRAN 

FROM CI LIB 

E-TRAN AREA 



CANCEL 

CODE IN 

PIB 



B-TRAN 

AREA IN 

USE 



*****£ 4**** ****** 

* MOVE ZEROS * 

* TO LTK TO * 

* INDICATE B- * 

* TRAN AREA IS * 

* NOT IN USE * 
***************** 



****E5********* 

INVERT 

LOGICAL 

TRANSIENT KEY 

TO X' 10" 

*G5 





< 




F4********** 






ENABLE 


* 


PSW 


* 


IN LTA 






* 


************ 




.X... 





X 

*BC 



*****Gi ********** 






* * 


G3 *. 




* * 


*SVEREG HA* 








.* *. 




**** 


*_*_*_*_*_*_*_*_* 






EXT03 


NO .* MPS *. 






* SAVE REGS * 








...*. *B5 .* 






* 12-0 IN PROG * 








*. .* 






* SAVE AREA * 








*. .* 






***************** 








X *. .* 
**** *YES 

* * 

* 4 * 




















*H2 






* * 








CA-D1 






**** 








CB-D1 












X 


CD-C4 






LTABSY X 






*****H1 ********** 


CD-H2 






*****H3 ********** 






* GET ADDR OF * 








* MOVE PIK TO * 






* B-TRANSIENT * 








* LTK TO * 






* AREA FROM * 








* INDICATE * 






* ATTN ROUTINE * 








* B-TRAN AREA * 






* PIB IN REG 15 * 








* IN USE * 




**** 


***************** 


*J2 






***************** 

**** '. 

* * 

* 3 *... 

* * 




* * 

* 2 * 

* * 

**** 




REG 15 IS 


USED 


**** 






X 


AS A 


3ASE 


REGISTER 


SETLT1 X 


SETLT2 X 


*****J1 ********** 


FOR B 


-TRANSIENTS. 


*****J3******* 


*****J4********** 


* STORE REGS * 








* EXCLUSIVE * 


* 


EXCHANGE * 


*15-1 IN LOGICAL* 








* 'OR' SVC 2 * 


* 


LOGICAL TRAN * 


* TRANSIENT * 








* BOUND TRT * 




AND PIB SAVE * 


* SAVE AREA * 








* BYTE * 


* 


AREA POINTERS * 


* *J2 * 








* * 


* 


*K5 * 


***************** 








************** 


***************** 










**** * 














* * 














*FE *... 




X 










* Fl* 




***** 










**** 




*BC * 


X 








SETLT2A X 




* B3* 


*****K1 ********** 








*****K3 ********** 




* * 


* USE ADDR OF * 








* LOAD ADDR * 






* B-TRAN AREA * 








* OF EXT02 * 




EXT02 


* FOR LOAD * 








* INTO REG 7 * 




(REG 7) 


* ADDR IN REG * 








* FOR GENERAL * 






* * 








* EXIT * 







ALL LOGICAL TRANSIENTS 
ARE ATTACHED TO BG 
PROGRAMS IN BATCH 
OPERATION. 



*J5 
ADDRESS OF B-TRANSIENT 
AREA + 8 BYTES = ENTRY 
ADDRESS FOR A B-TRANSIENT. 
THE TRANSIENT NAME IS 
LOCATED IN THE FIRST 8 
BYTES. 



*K5 
ADDRESS POINTERS OF 
THE LOGICAL TRANSIENT 
SAVE AREA AND THE 
PROBLEM PROGRAM USING 
THE TRANSIENT AREA 
ARE REVERSED WHEN A 
LOGICAL TRANSIENT IS 
ACTIVE. 



********** 
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Chart FD. $$A$SUP1 - SGSVC Macro, SVCs 3, 4, and 7 
Refer to Chart 03. 



SVC 3 

***** 
*FA * 
* J2* 



SVC 4 
***** 
*FA * 
* J2* 



SVC 7 
***** 
*FA * 
* J2* 



***** 
*BA * 
* B3* 



* LOAD PIK * 
*FR0M COMM REGN * 
*T0 REG 6 (FIK) * 

* * 
***************** 



SVC07 X 

*****B4********** 

* SUB 10 BYTES * 

* FROM ADDR IN * 
*SVC OLD PSW TO * 

* POINT AT 2ND * 
*WAIT MACRO INST* 
***************** 



ON AFTER PENDING 
I/O FROM SPECIFIED 
CCB IS COMPLETED 



*****0L******* 

* RESET SUPVR* 

* PIB FLAG TO * 

* X?84«. SUPVR 

* INACTIVE * 

* * 
************** 



*****PL********** 

* * 

* RESTORE «R« * 

* IN PHASE * 

* NAME +6 - * 

* * 
***************** 



*****Gl********** 

* LOAD ADDR * 

* OF EXT02 * 

* INTO REG 9 * 

* FOR GENERAL * 

* EXIT * 
***************** 



*****Hl********** 

* LOAD ADDRESS * 

* OF ERROR * 

* QUEUE ENTRY * 

* INTO REG 6 * 

* * 
***************** 



*****jl******* 

* SET ERP * 

* SWITCH IN * 

* DEQUEUER SUB- * 
♦ROUTINE TO NOP* 



**** 



c********* 



****K1********* 
♦BRANCH TO ENTRY* 
♦ADDR IN REG 15 * 
* * 

*************** 



FCH3 

*****Q2********** 

* LOAD ADDRESS * 

♦ OF THE A- ♦ 
♦TRANSIENT NAME ♦ 

♦ INTO REG 1 ♦ 

* * 
***************** 



*****E2********** 

* LOAD REG * 

* WITH ADDRESS ♦ 

* OF THE A- ♦ 
♦TRANSIENT AREA ♦ 

* * 
***************** 



*****P2********** 



***************** 



*****G2********** 
♦FCHRT1 EA* 
*_*_*_*_*_*.,.*_*_* 

♦ LOAD A-TRAN * 

♦ INTO THE A- ♦ 
♦TRANSIENT AREA * 
***************** 



*****H2********** 

* LOAD ADDR OF * 
*, A-TRAN AREA * 

* INTO THE ♦ 

♦ A-TRAN BASE ♦ 

♦ REG 11 ♦ 
***************** 



****J2********* 

♦ ENTER THE ♦ 

♦ B-TRANSIENT ♦ 

♦ AT REG 11+0 * 
*************** 



*****D3********** 



***************** 



C4 *. 


OR TIMER INTERRUP 


.*CCB OR *. 


OCCURS. 


TECB *. YES 




TRAFFIC BIT .*.... 




ON .* 




*. *C5 .* 




*. .* X 




*N0 ***** 




*BC * 




* Bl* 




* * 




* 




X EXT01 




D4* **. 


*****D5********** 


.* *. 


* SET WAIT * 


MPS *. NO 


* BIT IN * 


OPTION .♦ 


.X* SVC OLD ♦ 


*G4 .* 


* PSW * 



CALFET 

*****£3********** 

♦FCHRT1 EA* 
*_*_*_*_*_*_*_*_* 

* LOAD PHASE * 
♦FROM CI LIB TO * 

♦ MAIN STORAGE ♦ 
***************** 



*****E4******* 

* RESET BIT * 

* X'Ol* IN PIB * 

* FLAG TO 

* INDICATE * 

* SVC 7 BOUND* 
************** 



X 

***** 
♦ BC * 
■ B3+ 



***************** 



***** 
*BC ♦ 
* Bl* 



*****F3********** 


* * 




* STORE PHASE 


* 


* 




* ENTRY ADDR 


* 


EXT03 




* FROM REG 


* 


(SCAN PIBS] 




* TO USER SAVE 


* 






* AREA (REG 1) 


* 




***** 


***************** 




** * 








* J3* 


* 






* * 

* 


X 




*G4 




***** 




SUPERVISOR 




*BC * 




GENERATION 




* C3* 




OPTION. 


PUBDEQ X 


* * 






*****G5******* 


* 






* SET SUPVR 


EXT02 






* PIB FLAG TO 


(SCAN PIBS) 






* X«85«» SUPVR 






♦BB-D4,H3,H4,J2 


♦ ACTIVE 






***** 


* 



************** 



*J3 
ENTERED FROM $$ANERRZ 
WHEN SVC 3 IS ISSUED 
AND REGISTER 15 HAS 
BEEN LOADED WITH THE 
ADDRESS OF PUBDEQ. 



* * * 



♦CD-F2.F4 



**** 
IOPSET X 

*****H5********** 

* MOVE CHAN * 

* AND UNIT * 

* TO I/O * 

* OLD PSW * 

* * 
***************** 



*****K4********** 
♦CQDSP CN* 
*_*_*_*_*_*_*«*_* 

* RESTORE * 

* USERS REGS * 

* * 
***************** 



*****K5********** 
*RSTREG DE* 
*_*_*_*_*_*,.*_*_* 

* RESTORE * 

* USERS REGS * 

* * 
***************** 



***** 
*CK * 
* E3^ 
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Chart FE. $$A$SUP1 - SGSVC Macro, SVCs 8, 9, and 10 
Refer to Chart 03, 



* i 



**** 

SVC08 X 

*****B1 ********** 

* GET ADDRESS * 

* OF PROB PROG * 

* SAVE AREA * 

* *B2 * 

* * 
***************** 



*****d********** 

* * 

* STORE REGS * 

* AND 1 IN * 

* SAVE AREA * 

* * 
***************** 



*****D1 ********** 

* LOAD SVC * 

* OLD PSW * 

* INTO REG * 

* FOR SVC 9 * 

* RETURN * 
***************** 



*****E1 ********** 

* STORE PROB * 

* PROG ENTRY * 

* ADDR FROM * 

* REG 14 INTO * 

* PROB PROG PSW * 
***************** 



*****F1**** ****** 
*SVEREG HA* 
*-*_*_*_*_*_*_*-.* 
*SAVE REGS 12-0 * 
*IN LOGICAL TRAN* 
* SAVE AREA * 
***************** 



*B2 
ADDRESS POINTERS OF THE 
LOGICAL TRANSIENT SAVE 
AREA AND THE PROBLEM 
PROGRAM USING THE 
TRANSIENT AREA ARE 
REVERSED WHEN A LOGICAL 
TRANSIENT IS ACTIVE. 



*****C3 ********** 

* * 

* RESTORE * 
*PROBLEM PROGRAM* 

* PSW ADDRESS * 

* * 
***************** 



SUPERVISOR 
GENERATION 
OPTION. 



*E2 



****B4********* 
* 
TMEKEY * 
* 

*************** 



SVC 10 

WITH 

( INTERVAL TIMER OPTION) 



*****B5** ******** 

* LOAD ADDR OF * 

* SVC 10A INTO * 

* REG 7, ENTRY * 

* VIA SVC 10 * 

* * 
***************** 



****C4********* 

* * 

* TMEKEY1 * 

* * 
*************** 



LOAD TIME 

INTERVAL 

INTO REG 3 

*G4 

************ 



ENTERED FROM A-TRANSIENTS 
WHEN A SVC 3 IS ISSUED 
AND REG 15 HAS BEEN 
LOADED WITH THE 
ADDRESS OF EXCAN. 



*****D3********** 
*SVEREG HA* 

*_*_*_*_*_*_*_*_* 

*SAVE REGS 12-0 * 

* IN PROB PROG * 

* SAVE AREA * 
***************** 



*****£ 3********** 

* LOAD RE-ENTRY * 

* PSW ADDR FROM * 

* LOGICAL TRAN * 

* AREA TO REG14 * 

* * 
***************** 



TMEKEY1 .*. 

05 *. 

.* TIMER *. 

NO .^CONTROLLED 

...*. BY INTER- 

*. RUPTED . 

♦PROGRAM* 



***** 
*BA * 
* B3* 



*YES 



*FF *... 

* F5* 
**** 

10A X 
*****F5********** 

* GET TIME * 

* ELAPSED SINCE * 

* INTERRUPT * 

* FROM * 

* SYSTIMER * 
***************** 



***** 

*FC * 

* «3* 

* * 



*H1 
ENTERED FROM $$ANERRO 
OR SSANERRL WHEN A 
SVC 3 IS ISSUED AND 
REG 15 HAS BEEN LOADED 
WITH THE ADDRESS OF 
ATNCNL. 



EXCAN X 




*****G2******* 


*****G3********** 


* NO-OP THE * 


* LOAD ADDRESS * 


* LOGICAL * 


* OF PIB FROM * 


* TRANSIENT * 


..X* SAVE AREA * 


* CANCEL * 


* (ERA+4) INTO * 


* SWITCH * 


* REG 10 * 


************** 


***************** 


**** * 




* * 




** *... 




* HI* 




**** x 




ATNCNL .*. 


X 


H2 *. 


*****H3 ********** 


.* *. 


*ERRSET BB* 


.* MPS *. YES 


*-*-*-*_*-*-*_*-* 


*. *D2 .* 


* SET * 


*. .* 


* CANCEL CODE * 



TIME IS IN THE FORM 
SECONDS X 300 IN THE 
3 HIGH ORDER OF 
SYSTIMER. 



************ 



*****Q5** ******** 

* SET INTERVAL * 

* SPECIFIED BY * 

* REG 3 INTO * 

* SYSTIMER * 

* * 
***************** 



*****H5********** 

* SHIFT UNUSED * 
*LOW ORDER BYTE * 

* FROM INTERVAL * 

* AND ELAPSED * 

* TIME REGS * 
***************** 



***************** 



*****J3********** 

* RESTORE * 

* ADDRESS OF * 

* SUPVR. PIB * 

* TO REG 10 * 

* * 
***************** 



SYSTOD IS THE TIME 
THAT THE NEXT TIMER 
INTERRUPT WILL OCCUR 
IF THE INTERVAL IS 
NOT ALTERED BY 
ANOTHER SETIME MACRO. 



*****J5********** 

* INCREMENT * 

* SYSTOD BY * 

* INTERVAL * 

* BEING SET * 

* *J4 * 
***************** 



*****K2******* 

* RESTORE * 

* LOG. TRANS. * 

* CANCEL SWITCH * 
*IN GENL CANCEL* 

* TO A BRANCH* 
************** 



*****K5********** 

* DECREMENT * 

* SYSTOD BY * 
*TIME REMAINING * 

* IN PREVIOUS * 

* INTERVAL * 
***************** 



. EXTOl 

X 

***** 

*BC * 

* Bl* 

* * 



***** 
*BC * 
* Bl* 
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Chart FF. $$A$SUP1 - SGSVC Macro, SVCs 22, 23, 24, and 26 
Refer to Chart 03, 



SVC 22 
WITH 
(MPS OPTION) 
***** 
*FA * 
* J2* 
* * 



SVC 23 
WITH 
(MPS OPTION) 
***** 
*FA * 
* J2* 
* * 



SVC 24 
WITH 
(IT OPTION) 
***** 
*FA * 
* J2* 
* * 



* SVC * 






OLD PSW 


* 


NO 


KEY EQUAL 




*.... 





* 




*. .* 






*. .* 




X 


♦YES 




***** 
*BA * 


'. 




* B3* 



> REG 
NEGATIVE 
*C2 



*****Q1 ********** 

* MOVE PIK * 

* FROM COMM * 
*REG TO STORAGE * 

* KEY OF SVC * 

* OLD PSW * 
***************** 



*C2 
PROTECTION KEY IN THE 
SVC OLD PSW IS 
REPLACED BY KEY IN 
PIK IF REGISTER IS 
NEGATIVE. 



SVC22A 

*****£}******* 

* EXCLUSIVE OR* 

* SVC 22 BOUND * 

* AND SVC 2 * 

* BOUND BITS IN* 

* PIB FLAG * 
************** 



*****F1******* 

* EXCLUSIVE OR* 

* TRT FUNCTION * 

* BYTE TO ALTER 

* SCAN OF PIBS * 

* *F2 * 
************** 



*****Gl ********** 
♦STORE LAST BYTE* 

* OF REG IN * 

* SYSTEM MASK * 

* OF SVC OLD * 

* PSW * 
***************** 



* SVC *. 
















*TMEKEY FE* 


OLD PSW 


* 


. NO 










*_*,.*,.*_*..*_*_*_* 


KEY EQUAL 




.* 












* CHECK PIK * 





* 














* AGAINST TIMER * 


*. .* 
















* KEY * 


*. .* 






X 










***************** 


*YES 






***** 
*BA * 
* B3* 
* * 
* 
ERR21 












X 








♦ C4 








X 


*C3******=< 


* 


** 




TECB 


=TIMER 


EVENT 


CONTROL 


*****C5********** 






* 






BLOCK 


USER 




* LOAD ADDR * 


CLEAR 




* 






SPECIFIES THE 


* OF USER TECB * 


PARAMETER 




* 






ADDRESS IN REG 0. 


* INTO REG 1 * 


REG 4 

********** 


* 


* 
* 

{c* 












* *C4 * 
***************** 


X 

.*. 
















X 


D3 *. 
















*****05********** 


* SVC *. 
















♦VLDADR1 HA* 


ISSUED 


* 


. 


^0 










*_*_*_*_*_*_*^*_* 


BY B-TRAN 


* 


.♦ 


.... 










* VALIDATE * 

* END ADDR * 


*. .*" 
















* OF TECB * 


*. .* 






X 










***************** 


*YES 






***** 

*EA * 

* Bl* 

* * 

* 

FCHRT2 












X 
















X 


*E3********** 












*****E5******* 






* 












* RESET * 


CLEAR FIK 




* 












* TRAFFIC BIT * 


(REG 61 




* 

* 












* IN USERS * 

* TECB * 



*F2 
THE FIRST SVC 22 ISSUED 
WILL ALTER THE PIB FLAG 
AND TRANSLATE AND TEST. 



X 

***** 
*EA * 



************** 



*****F5********** 
COMPLEMENT USER* 

* TECB ADDR AND * 

* STORE IN * 
♦INTERVAL TIMER * 

* OPTION TABLE * 
***************** 



X 
***** 
*FE ♦ 
* F5^ 



SVC 26 
WITH 
(MPS AND STORAGE PROTECT OPTIONS) 
***** 

♦ FA ♦ 

* J2^ 
* * 



***** 
*BC ♦ 
♦ Bl* 





.♦ SVC ♦ 








* OLD PSW 


*. NO 


♦ I 


KEY EQUAL 


.♦ 


... 




*. 


.* 






♦ . .* 








♦ . .♦ 




X 




♦ YES 




***** 
♦ BA ♦ 










* B3^ 










* * 










* 










ERR21 




X 






*****J4********** 




♦VLDADR1 


HA^ 




*- 


*_*_*_*_*- T *. 


-*-* 




* 


VALIDATE 


* 




* 


ADDRESS 


* 




* 


LIMITS 


* 




************* 


Cc*** 






X 








***** 








*BC ♦ 








* 


31* 
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Transients 



Chart FG. $$A$SUP1 - SGSVC Macro, Program Check Interrupt and SVCs 16 and 17 
Refer to Chart 03, 



***** 

*AA * 

* F3* 

* * 



SVC 17 

***** 
*FA * 
* J 2* 



SVC 16 

***** 
*FA * 
* J2* 



MICR 

OPTION 

*G1 



*JG 


*. .. 


* D2* 




**** 


X 


PDNOPCK 


.*. 




CI *. 


.* 


*. 


.* 


DASDFP 


*. OR 


DISK I/O 


*. 


*G1 


* 


-* 




*. .* 




*YES 



*****B 2 ********** 

* STORE REGS * 

* 9-11 AND LOAD * 
X* BASE REG 11 * 

* WITH 4096 * 

* * 
***************** 



***** 
*JG * 
* B2* 



.♦PROGRAM*. 

CHECK 

SWITCH 

*H1 



***** 
*CG * 
* B2* 



*****02********* 

* MODIFY GEN'L 

* EXIT ROUTINE 
X* TO LOAD 

* PROGRAM CHECK 

* OLD PSW 
**************** 



*****E2********** 

* * 

* STORE REGS * 

* 9-11 UNTIL * 

* GENERAL EXIT * 

* * 
***************** 



_*_*_*_*_* 



***************** 



.* USER *. 
.*PC ROUTINE 
ADDR 
*. PRESENT . 



C3 *. 
.♦LOGICAL*. 
.* TRANSIENT *. YES 
AREA IN .*..X 
*. USE .* 



.*. 

D3 *. 

.* USER *. 

.* SAVE AREA *. YES 

IN SUPVR .*..X 

*. *J4 .* 



E3 *. 
.* USER *. 
SAVE AREA 
EXCEEDS 
. CORE 
*. *J4 .* 



*N0 



***** 
*BA * 
* B3* 



*****F3********** 

* MOVE OLD PSW * 

* AND REGS FROM * 
*PROG SAVE AREA * 

* TO USER SAVE * 

* AREA FOR EXIT * 
***************** 



EXTRT1 X 

*****B4********** 

* LOAD USER * 

* PC ROUTINE * 

* ADDR FROM * 
*PC OPTION TABLE* 

* TO REG * 
***************** 



*****C 4**** ****** 
*LOAD USER SAVE * 
*AREA ADDR FROM * 
*PC OPTION TABLE* 

* IN REG 1 * 

* * 
***************** 



*****D4********** 

* RESTORE PC * 

* OLD PSW AND * 
*REGS FROM USER * 

* SAVE AREA TO * 
*PROG SAVE AREA * 
***************** 



***E4******* 

SET REGS * 

SAVED X^O' 

IN PIB 

FLAG BYTE 

* 
************ 



.* USER *. 
YES .*PC ROUTINE 
...*. IN USE 
*. *H4 



C5 *. 

.* USER *. 
* RTN ADDR * 

TO BE RESET 
*. *F5 .* 



*****05 ********** 

* STORE USER PC * 

* RTN ADDR AND * 
*SAVE AREA ADDR * 

* FROM REGS 0»1 * 
*TO PC OPT. TAB * 
***************** 



***** 
*BC * 
* Bl* 



*F5 
USER PC ROUTINE ADDRESS 
TO BE STORED IS SPECIFIED 
IN REGISTER 0. IF REGISTER 
= THE ROUTINE ADDRESS 
IS TO BE RESET. ADDRESS 
OF USER SAVE AREA IS 
SPECIFIED IN REGISTER 1. 



*G1 
SUPERVISOR 
GENERATION 
OPTIONS. 



*H1 
SEE NOTE B4 
ON CHART CG. 



* SAVE OLD PSW * 

* AND REGS IN * 
*PROG SAVE AREA * 

***************** 



*****H2********** 

* LOAD USER * 

* ROUTINE ADDR * 
*FROM PC OPTION * 

* TABLE TO * 

* REG * 
***************** 



*****G3********** 

* MOVE USER * 

* PC ROUTINE * 

* ADDR TO * 

* PROG CHECK * 

* OLD PSW * 
***************** 

**** " 

* * 

* 3 *. . . 

* * 
**** 

SET0P1 X 

*****H3********** 

* COMPLEMENT * 

* THE USER PC * 

* ROUTINE ADDR * 

* IN REG * 

* *H4 * 
***************** 



*H4 
WHEN ENTERING A USER ROUTINE, THE USER ROUTINE ADDR 
IN THE OPTION TABLE IS COMPLEMENTED TO INDICATE THE 
ROUTINE IS IN USE. 

WHEN RETURNING FROM THE USER ROUTINE VIA AN EXIT 
MACRO THE ADDRESS IN THE OPTION TABLE IS RE- 
COMPLEMENTED (RESTORED). 



*****J2********** 

* LOAD USER * 
*SAVE AREA ADDR * 
*FROM PC OPTION * 

* TABLE TO * 

* REG 1 * 
***************** 



**** 
SET0P2 X 

*****J3********** 

* * 

* STORE REG * 

* IN PC OPTION * 

* TABLE * 

* * 
***************** 



COMPARE USER SAVE AREA 
LIMITS TO END OF SUPVR 
AND END OF MAIN STORAGE 
ADDRESSES. 



*****K2********** 

* LOAD ERR20 * 

* AS EXIT * 

* ADDRESS IN * 

* REGISTER 4 * 

* * 
***************** 



***** 
*BC * 
* B3* 



**** 

* * 

* i * 

* * 
**** 
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Chart FH. $$A$SUP1 - SGSVC Macro # Program Check Interrupt 
Refer to Chart 02. 



OPTIONS—USER PC ROUTINE WITH (STORAGE PROTECT,^ INTERVAL TIMER, OR USER OC ROUTINE). 



SEE CHART BA IF NO USER 
PC ROUTINE OPTION PRESENT. 
SEE CHART FG IF NONE OF 
THE OTHER OPTIONS LISTED 
ABOVE ARE PRESENT. 



***** 
*JG * 
* D2* 



MICR 

OPTION 

*E4 



* DASDFP * 

OR DISK I/O 
*. *E4 .* 



.* PROGRAM *.BRA 
.X*. CHECK SWITCH .*.. 
*. *F5 .* 



*****C2********** 

* STORE REGS * 

* 9-11 AND LOAD * 

* BASE REG 11 * 

* WITH 4096 * 

* * 
***************** 



*****C3********** 

* MODIFY GEN'L * 

* EXIT ROUTINE * 

* TO LOAD * 

* PROGRAM CHECK * 

* OLD PSW * 
***************** 



*****D3 ********** 

* * 

* SAVE REGS * 

* 9-11 UNTIL * 
*. GENERAL EXIT * 

* * 
***************** 



*E4 
SUPERVISOR 
GENERATION OPTION. 



***************** 



*F5 
REFER TO NOTE 
*B4 ON CHART CG. 



*G2 
PROGRAM CHECK 
OCCURRED IN A 
PROBLEM PROGRAM 
(BACKGROUND OR 
FOREGROUND). 



.* PIK * 


. YES 


*. GREATER THAN 


.* 




*. X'30« .* 






*. *G2 .* 






*. .* 




X 


*N0 




***** 
*BA * 
* B3* 
* * 
* 
ERR20 


X 






*****G3 ********** 




* 


* 




* GET ADDR 


* 




* OF PC 


* 




* OPTION TABLE 


* 





***************** 



* GET USER * 

* ROUTINE AND * 
*SAVE AREA ADDRS* 
***************** 



*****J3********** 
*PCITRT FL* 
*_*_*_*_*_*_*_*_* 

* EXIT TO * 

* USERS ROUTINE * 

* *K4 * 
***************** 



***** 
*BA * 
* B3* 



*K4 
RETURN FROM PCITRT SUBROUTINE 
IF USER ROUTINE IS IN USE OR 
B-TRANSIENT IS OPERATING. 
BOTH RETURNS BRANCH TO ERR20. 
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DOS Supervisor and Physical and 



Trans i ent s 



Chart FJ. $$A$SUP1 - SGSVC Macro, External Interrupt 
Refer to Chart 05. 



*****A1********** 

* SAVE ADDR * 

* OF EXTERNAL 

* OLD PSW FOR 

* GENERAL * 

* EXIT * 
***************** 



*X. 



MICR 

DEVICE 

*H2 



*****Bi********** 

* MOVE REGS * 

* 9-11 TO * 

* NORMAL * 

* SAVE AREA * 

* * 
***************** 



**** 

X 
*****C l ********** 
♦GENENT BD* 
*_*_*_*_*_*_*_*_* 

* GET PIB * 

* ADDR AND * 

* SAVE REGS * 
***************** 



*****Q1******* 

* RESET WAIT * 

* FLAG IN 

* EXTERNAL 

* OLD PSW 

* * 
************** 



El *. 
.* USER *. 
NO .*OC ROUTINE 
,..*. OPTION 
*. *H2 



Fl • *. 
.EXTERNAL*. 
NO .♦ INTERRUPT 
X..*. KEY FLAG 

*. SET IN . 
*. PSW .* 



*****B2+^******** 

* SAVE REG 9-11 * 

* IN AUXILIARY * 

* SAVE AREA AND * 

* SET UP BASE * 

* REGISTER * 
***************** 



* SAVE ADDR * 
X* OF EXTERNAL * 

* OLD PSW * 

* * 
***************** 



*****B3********* 

* MOVE REGS 

* 9-11 FROM 

* AUX SAVE 
*AREA TO NORMAL 

* SAVE AREA 
**************** 



* 4 * 

* * 
**** 



SYSTIMER = THE TIME THAT 

HAS ELAPSED SINCE 
THE TIMER INTERRUPT 
OCCURRED (TIMER 
PASSED THROUGH 0). 
SYSTOD WILL BE UPDATED TO THE 
TIME THAT THE NEXT 
TIMER INTERRUPT WILL 
OCCUR. 



*****A5********** 

* GET ELAPSED * 

* TIME AND * 

* TIME OF DAY * 

* FROM SYSTIMER * 
*AND SYSTOD *A4 * 
***************** 



♦YES 



*****Gi******* 

* CHANGE * 

* ATTN RTN PIB 

* FLAG TO 

* X'81', 

* ACTIVE * 
************** 



*****H1******* 

* * 

* POST EXTERNAL* 
♦INTERRUPT FLAG * 

* IN PIB * 

* * 
************** 



.* *. PROBLEM 
.♦INTERRUPTED*. PROG. 

SYSTEM .* 

*. STATE .* 



*****D3 ********** 

* * 

* SAVE ADDR * 
X* OF EXTERNAL * 

* OLD PSW * 

* * 
***************** 



PDSUPV X 

*****£ 2********** 

* MOVE REG 11 * 

* TO SPECIAL * 

* SAVE * 

* AREA * 

* * 
***************** 



*****F2********** 

* * 

* STORE * 

* REGS * 

* 1-10 * 

* * 
***************** 



*****E3********** 

* GET PROB PROG * 

* PIB ADDR AND * 
*STORE REGS 1-8 * 

* IN PROB PROG * 

* SAVE AREA * 
***************** 



***** 
*JA * 
* Al* 



*H2 
SUPERVISOR 
GENERATION 
OPTION. 



*J2 
MULTIPLE RETURNS 
FROM PCITRT ROUTINE. 



**** 

* * 

* 3 * 

* * 
**** 



* POST TRAFFIC 

* BIT X«80« IN 

* USERS TECB 

* * 
************** 



*****H3******* 

* RESET PIB * 

* FLAG BYTE * 

* X'Ol' TO NOT * 

* SVC 7 BOUND * 

************** 



*****C4********** 

* LOAD USER * 
♦INTERVAL TIMER * 

* RTN ADDR AND * 
*USER TECB ADDR * 
*INTO REGS 5+6* 
***************** 



YES .* USER 
...*. TECB ADDR 
*. PRESENT . 



*****E4********** 

* LOAD ADDR OF * 
♦INTERVAL TIMER * 

* OPTION TABLE ♦ 

* TO REG 4 ♦ 

* * 
***************** 



*****F4********** 
♦PCITRT FK* 
*_*_*-*_*_*-*_*_* 

♦ EXIT TO ♦ 

♦ USER IT ♦ 

♦ ROUTINE *K2 ♦ 
***************** 



NO .♦B-TRANSIENT*. 
,..*. ACTIVE FOR . 
*.IT OWNER .♦ 
*. *J2 .♦ 



*****H4******* 

♦ SET SWITCH ♦ 

♦ AT ITBRC IN 

♦ ATTN ROUTINE 

♦ TO A BRANCH 

♦ * 
************** 



TIMER 
FEATURE 

♦H2 



.♦ TIMER ♦. 

INTERRUPT 

SET IN 

PSW 



♦K2 
THE INTERRUPT WILL BE 
IGNORED (NO EXIT SET UP) 
IF THE IT (INTERVAL 
TIMER) ROUTINE IS IN USE. 



*****J3********** 

* CLEAR ADDR * 

* OF TECB FROM * 

* IT (INTERVAL * 

* TIMER) ♦ 

* OPTION TABLE ♦ 
***************** 


*****J4******* 

♦ CHANGE ATTN+ 

♦ ROUTINE PIB 

♦ FLAG BYTE 

♦ TO X'81' 

♦ ACTIVE ♦ 
************** 


X 
***** 


X. 

X 
***** 


*BC * 
* B3+ 


*BC * 
* B3* 



*****B 5 ********** 
*RESET SYSTIMER * 

* TO MAXIMUM ♦ 

♦ VALUE ♦ 

♦ X'FFFFFFFF' ♦ 

* * 
***************** 



*****C5********** 

♦ SHIFT UNUSED * 

♦ LOW ORDER ♦ 

♦ BYTE FROM ♦ 

♦ ELAPSED ♦ 

♦ TIME * 
***************** 



*****D5********** 

* CONVERT * 

* ELAPSED TIME * 

* TO POSITIVE * 

* QUANTITY ♦ 

* * 
***************** 



*****E5********** 

* ADD CONVERTED * 

* ELAPSED TIME * 

* TO TIME ♦ 

* OF DAY ♦ 

* * 
***************** 



*****F5 ********** 

* ADD MAXIMUM * 

* VALUE * 

* X'OOFFFFFF* * 

* TO TIME * 

* OF DAY * 
***************** 



*****G5********** 

* * 

* STORE UPDATED ♦ 

* TIME OF DAY ♦ 

* TO SYSTOD ♦ 

* * 
***************** 

**** 

* * 
*HA * 

* E4* 
**** 

TMERT1 X 

*****H5******* 

* RESET SWITCH* 

* AT ITBRC IN * 

* ATTN ROUTINE ♦ 

* TO A NOP ♦ 

* * 
************** 



*****j5********** 

* GET PIB ADDR * 

* OF PROGRAM * 

* SUPPORTED * 

* BY THE TIMER ♦ 

* * 
***************** 



***** 
*BC ♦ 
♦ B3+EXT03 



.♦CANCEL ♦. 




♦ FLAG SET *. 


YES 


IN THIS 


*. . . . 


*. PIB .* 




*. .* 




*. .* 


X 


*N0 


***** 




*BC * 


'. EXT03 


* B3* 


X 


* * 


**** 


* 


* * 




* 2 * 




* * 




**** 
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Chart FK. $$A$SUP1 - SGSVC Macro, External Interrupt Subroutines 
Refer to Chart 05. 



OPTIONS — USER PC ROUTINE WITH (STORAGE PROTECT, INTERVAL TIMER, OR USER OC ROUTINE). 



* * 

* PCITRT * 

* * 
*************** 



C2 *. 
* USER *. 
ROUTINE *. YES 
IN USE .*.... 



. *C1 . 
*. .* 

*NO 



LOGICAL 

TRANSIENT 

. ACTIVE . 



****P3********* 

* RETURN TO * 

* LINK ADDR * 

* * 
*************** 



****B4********* 

* OPTRT2 * 

* * 
*************** 



OPTRT2 

*****C 4* ********* 

* ADD NO. OF * 

* THIS SVC TO * 

* REG 4 TO GET * 

* POINTER TO * 

* OPTION TABLE *. 
***************** 



*****D4********** 

* LOAD POINTER * 

* TO OPTION * 

* TABLE TO * 

* REG 4 * 

* * 
***************** 



****B5*******#* 

* * 

* OPTRT1 * 

* * 
*************** 



****E1********* 

* RETURN TO * 

* LINK ADDR * 

* • PLUS 4 * 
*************** 



*****£ 2********** 
*SVEREG HA* 
*_*_*_*_*_*_*_*_* 

* SAVE OLD PSW * 

* AND REGS IN * 
*PROG SAVE AREA * 
***************** 



*****P2 ********** 

* SAVE OLD PSW * 

* AND REGS IN * 
*USER SAVE AREA * 

* FOR EXIT FROM * 

* USER ROUTINE * 
***************** 



*****G2********** 

* MOVE USER * 

* ROUTINE ADDR * 

* TO OLD PSW * 

* * 
***************** 



***** 
*FL * 
* F2* 



OPTRT1 

*****E4********** 

* LOAD PIK * 

* FROM COMM * 

* REGN TO * 

* REG 3 * 

* * 
***************** 



*****P4********** 

* CALC ADDR * 

* OF OPTION * 

* TABLE IN * 

* REG 4 * 

* * 
***************** 



*****Q4**** ****** 

* LOAD USER * 

* ROUTINE ADDR * 

* FROM OPTION * 

* TABLE TO * 

* REG 5 * 
***************** 



*****H4********** 

* LOAD USER * 

* SAVE AREA * 

* ADDR FROM * 

* OPTION TABLE * 

* TO REG 6 * 
***************** 



****j4********* 

* RETURN TO * 

* LINK ADDR * 

* * 
*************** 
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Chart FL. 



$$A$SUP1 
Options) 

Refer to Chart 



SGSVC Macro, Program Check Interrupt (SVCs 16 through 21 with 



03, 



OPTIONS—USER PC ROUTINE WITH (STORAGE PROTECT, INTERVAL TIMER, OR USER OC ROUTINE). *B1 



*B1 
SEE CHART FG IF ONLY USER 
PC ROUTINE, OF THE ABOVE 
LISTED OPTIONS, IS 
PRESENT. 



SVC 17 AND 21 


SVC 19 


SVC 16 AND 20 


SVC 18 


***** 


***** 


***** 


***** 


*FA * 


*FA * 


*FA * 


*FA * 


* J2* 


* J2* 


* J2* 


* J2* 


* * 


* * 


* * 


* * 


* 


* 


* 


* 


*x 


SVC19 X 


*x 


• 


EXTRT1 X 


SXTRT1 X 


SVC18 X 


*****B2********** 


*****B3********** 


*****B4********** 


*****Q5********** 


* * 


*TMEKEY1 FE* 


* LOAD A 1 * 


*TMEKEY1 FE* 


* CLEAR * 


*_*_*_*_*_*_*_*_* 


* INTO REG * 


*_*_*_*_*_*_*_*_* 


* REGISTER * 


* CHECK PIK * 


* 4 TO CALC * 


* CHECK PIK * 


* 4 * 


* AGAINST * 


* SVC NUMBER * 


* AGAINST * 


* * 


* TIMER KEY * 


* FOR EXIT * 


* TIMER KEY * 


***************** 


***************** 


***************** 


***************** 









*****C2********** 
*0PTRT2 FK* 
*-*-*-*_*_*_*-*.* 

* GET PIK AND * 
*ADDR OF OPTION * 

* TABLE * 
***************** 



*****C4********** 
*OPTRT2 FK* 
*_*_*_*-*•*_*_*_* 

* GET PIK AND * 
*ADDR OF OPTION * 

* TABLE * 
***************** 



*D1 
USER SAVE AREA HAS OLD 
PSW AND REGS FOR RETURN 
TO PROBLEM PROGRAM. 



***** 
*FK * 
* G2* 



*****D2********** 
*SVEREG HA* 
*_*-*_*_*_*_*_*_* 

* SAVE OLD PSW * 

* AND REGS IN * 
*PR0G. SAVE AREA* 
***************** 



*****04********** 

* COMPLEMENT * 

* NEW USER * 
♦ROUTINE ADDR IN* 

* REG 3 * 

* * 
***************** 



*D5 
USER ROUTINE ADDR TO BE 
STORED IS SPECIFIED IN 
REG 0. 

IF REG a THE ROUTIN 
ADDR IS TO BE RESET. 
ADDR OF USER SAVE AREA 
IS SPECIFIED IN REG 1. 



*****E2********** 

* RESTORE * 

* PROGRAM SAVE * 

* AREA FROM * 
♦USER SAVE AREA * 

* *D1 * 
***************** 



.* USER * 
.* RTN ADDR 
TO BE 
*. RESET 



*F1 

WHEN ENTERING A USER ROUTINE, 
THE USER RTN ADDRESS IN THE 
OPTION TABLE IS 
COMPLEMENTED TO INDICATE 
THE ROUTINE IS IN USE. 
WHEN RETURNING FROM THE USER 
ROUTINE VIA AN EXIT SVC 
THE ADDRESS IN THE OPTION 
TABLE IS RE-COMPLEMENTED 
(RESTORED). 



SE'TOPl ,X 
*****F2********** 

* COMPLEMENT * 

* USER ROUTINE * 

* ADDRESS * 

* IN REG 3 * 

* *F1 * 
***************** 



.* USER * 
5 .* ROUTINE 
•X..*. IN USE 
*. *F1 



SET0P2 X 

*****G2********** 

* STORE REG * 

* 3 IN * 

* OPTION * 

* TABLE * 

* * 
***************** 



*****G4********** 

*VLDADR1 HA* 
*^*_*_*_ *„*_*_*_* 

♦VALIDATE LIMITS* 

* OF USER * 

* SAVE AREA * 
***************** 



*****H4********** 

* STORE NEW * 

* USER ROUTINE * 

* AND SAVE AREA * 
*ADDRS IN OPTION* 

* TABLE *H5 * 
***************** 



*H5 
THE NEW. USER ROUTINE 
ADDR BEING STORED IS 
NOT IN COMPLEMENTED 
FORM. 



***** 
*BC * 
* Bl* 
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Chart GA. $$A$SUP1 - SGDSK Macro, Disk Error Recovery (Part 1 of 2) 
Refer to Chart 06. 



***** 

*DB * 
* J 5* 



RESERR X 

*****A1 ********** 

* INCREMENT * 

* RETRY COUNT. * 

* REMOVE CHAIN * 
*FLAG FROM READ * 

* HA CCW * 
***************** 



Bl *. 
.* *. 
* CCB 
AVAILABLE 



*****B2********** 
* MOVE USER * 
SEEK ADDRESS * 
TO ERROR * 
QUEUE TABLE * 

***************** 



.X* 



*C3 
RETRY ONCE ON 
CHANNEL ERRORS. 



CHANNEL 
DATA 
CHECK 



**** 

* * 

* 6 * 

* * 
**** 



NO 

RECORD 

FOUND 



**** 

* * 

* 2 * 

* * 
**** 



*.. 



HI *. 

.* *. 

* DATA * 

CHECK 



RDHA9 X 

*****jl********** 

*EDRDHA GB* 
*-.*_*_*_*_*_*_*_* 

* READ * 

* HOME ADDRESS * 

* * 
***************** 



**** 

* * 

* 7 * 

* * 
**** 



**** 
RECAL X 

******H2*********** 

ERRSIO DF 

*_*_*-*_*_ *,.*_*_* 

RESTORE HEAD 
* TO * 

************* 



**** 

* * 

* 2 * 

* * 
**** 



NORCD 

*****D3********** 

*EDR0HA1 GB* 

*_*_*-*-*_*_*_*_* 

..X* READ HOME * 

* ADDRESS AND * 

* RECORD * 
***************** 



MISSING *. YES 
ADDRESS .*... 
MARKER .* 



* SAME *. NO 

CYLINDER AS .*..X 
*. USERS .* 
*.SEEK .* 



*****G3********** 

* INDICATE * 
*NO-RECORD-FOUND* 

* TO ERROR * 

* MONITOR * 

* * 
***************** 



BUS OUT 

OR 
OVERRUN 



MISSING 
ADDRESS 
MARKER 



**** 

* * 

* 5 * 

* * 
**** 



TRACK 


*. 


YES 


CONDITION 




*... . 


CHECK 






*. .* 






*. .* 




X 


*NO 




***** 

*GB * 

* A2* 

* * 

* 


X 




TRKCHK 


.*. 






G4 *. 






* TRACK * 






OVERRUN 


*. 


YES 


OR END OF 




*.... 


CYL 


* 




*. .* 






*. .* 




X 


*NO 




***** 
*GB * 
* G3* 



RETRY 
COUNT 
= 256 



.* RETRY * 
COUNT IS 
MULTIPLE 

. OF 16 



***** 
*DC * 
* B2* 



**** 

* * 

* 1 * 

* * 
**** 



USER 

WANTS 

RETRY 



*****J3******* 

* * 

* POST * 
*NO-RECORD-FOUND* 

* TO CCB * 

* * 
************** 



***** 
*OD * 
* G2* 



CHANNEL 
CHAINING 
. CHECK 



RTY1 

NO . 



RETRY 

COUNT=l 

*C3 



NO ***** 
**** *dc * 
* * * C2* 
X.* i * * * 



***** 
*DD * 
* B5* 
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Chart GB. $$A$SUP1 - SGDSK Macro, Disk Error Recovery (Part 2 of 2) 
Refer to Chart 06, 



***** 

*GA * 
* FA* 



TRKCHK X 

*****A2 ********** 
' * SET ERROR * 

* CODE IN CSW * 

* AND UPDATE * 

* CCW ADDRESS * 



***** 



*********** 



*****B2********** 

* * 

* SET UP * 

* TIC * 

* CCW * 

* * 
***************** 



*****C 2 ********** 
*EDRDHA1 GA* 
*_*_*_*_*_*_*_*_* 

* READ HOME * 

* ADDRESS AND * 

* RECORD * 
***************** 



**** 

* * 

* 4 * 



*****F2 ********** 

* * 

* INCREMENT * 

* HEAD * 

* NUMBER * 



NO .* DASD FILE 
...*. PROTECT 
*. *J3 



HEAD *. 
NUMBER 
GT 19 .* 



* POST END 

* OF CYLINDER 

* TO CCB 

* * 

************** 



TRKEOC X 

*****G3******* 

* POST TRACK * 

* OVERRUN OR * 
*END OF CYLINDER* 

* TO CCB * 

* * 
************** 



****B4********* 

* * 

* EDRDHA * 

* * 
*************** 



****A5********* 

* * 

* • EDRDHA1 * 

* * 
*************** 



EDRDHA1 X 

*****B5**** ****** 

* TURN ON CHAIN * 

* BIT TO READ * 

* HOME ADDRESS * 

* AND RECORD * 



********* 



**** 

* * 

* 1 * 

* * 
**** 



*****04********** 
♦GETPIB CN* 
*_*_*_ *_* T .*_* r *_* 

* GET ADDR * 

* OF PIB * 

* * 
***************** 



*****E4********** 

* * 

* DISABLE * 

* WRITE * 

* ON SYSRES * 

* * 
***************** 



.* DOES *. 
PIB ALLOW *. NO 
WRITE CN .*... 

. SYSRES .* 



*****G4********** 



*****C5 ********** 

* LOAD ADDR * 

* OF CCW * 

* TO READ * 

* HOME ADDR * 

* * 
***************** 



*****05********* 
ERRSIO DF 

READ HOME 
* ADDRESS * 

************* 



YES 


* RECOVERY 


. . .* 


ERROR 


" 


*. .* 


X 


*. .* 


***** 


*NO 


*DC * 




* B2* 








* 




RCVERR 






X 


*****p 5 ******* 




MOVE UPDATED 


* 


SEEK ADDR 


* 


TO ERROR 


* 


QUEUE TABLE 



ENABLE 

WRITE 

ON SYSRES 



*********** 



***************** 



****G5******* 

* RETURN TO 

* LINK ADDR 
* 

************* 



*****H 1 ********** 

* LOAD ADDR * 

* OF RECOVERY * 

* CCW TO * 

* REG 8 * 

* * 
***************** 



*****H 2 ********** 
*CQDSP CN* 
*-*„*_*_*„*_*_*-.* 

* RESTORE CHAN * 

* SCHEDULER * 

* REGISTERS * 
***************** 



***** 
*DD * 
* G2* 



**** 
ICL X 
*****H4********** 

* LOAD ADDR * 

* OF RECOVERY * 

* CCW TO * 

* REG 8 * 

* * 
***************** 

**** '. 



*****J2********** 



************** 



*J3 
SUPERVISOR 
GENERATION 
OPTIONS. 



.* STORAGE *. 

PROTECT 

*. FEATURE .* 

*. *J3 .* 



.* DEVICE 
IS 
*. SYSRES 



*****K4.* ********* 

* * 

* LOAD CCW * 

* KEY TO * 

* REG 2 * 

* * 
***************** 



**** 

* * 

* i * 
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Chart HA. $$A$SUP1 - SGTCON Macro, Resident 
Refer to Chart 02. 



Attention, SVEREG and VLDADR Subroutines 



***** 

*BC ■* 
* H4* 



****A1 ********* 

* * 

* SVEREG * 

* * 
*************** 



REG .*. 

Bl *. 
.* TEST *. 
.* PIB FLAG 
*. BYTE. ARE 
*. REGS 
♦.SAVED.* 



*N0 



*****d********** 

* * 

* GET ADDRESSES * 

* OF SAVE AREA * 

* AND OLD PSW * 

* * 
***************** 



*****Dl********** 

* STORE REGS * 

* 12-0 IN * 

* SAVE AREA * 

* * 
***************** 



El *. 

.* MPS *. 

.AND FLOATING*. 

.POINT OPTIONS. 

*. *D5 .* 

*. .* 

*. .* 



*****P1********** 
♦STORE FLOATING * 

* POINT REGS * 

♦ IN SAVE ♦ 

♦ AREA ♦ 

* * 
***************** 



*****G1********** 
♦STORE REGS 9-11* 
♦FROM COMM REGN * 

♦ TO SAVE AREA, ♦ 

♦ SAVED ON ♦ 

♦ INITIAL ENTRY ♦ 
***************** 



*****H1********** 

* * 

* STORE OLD ♦ 

* PSW IN ♦ 

* SAVE AREA ♦ 

* * 
***************** 



*****jl******* 

♦ SET REGS ♦ 

♦ ARE SAVED = 

♦ X«80« IN PIB 

♦ FLAG BYTE : 

♦ * 
************** 



****K1********* 

♦ RETURN TO ♦ 

♦ LINK ADDR ♦ 

♦ * 
*************** 







ATNRTN .♦. 








A4 *. 






****A3********* 


.* *. 






* VLDADR1 * 


.* ATTN *. YES 




* *D5 * 


*. RTN CANCEL .* 






* * 


*.FLAG SET .* 






*************** 


*. .* 








*. .* 


X 






*NO 


***** 
*BC * 
* B4* 
* * 
* 
EXTEOJ 




VLCADR1 X 


X 






*****B3********** 


*****B4********** 




****B2********* 


* LOAD PIK * 


* MOVE Z TO * 




VLDADR3 ♦ 


* FROM COMM ♦ 


* NAME FIELD * 




*D5 ♦ 


♦ REGN TO ♦ 


* OF A-TRAN * 




* 


♦ REG 6 ♦ 


* PHYSICAL ATTN * 




*************** 


* * 


* $$ANERRZ * 




:' 


***************** 


***************** 


*C5 




...xl 




PIB STATUS FLAG WILL BE 






X 


X'83 1 (SVC 2 BOUND) FOR 




VLDADR3 X 


.*. 


ATTN INTERRUPTS AND 




*****C3********** 


C4 ♦. 


X'81' FOR EXTERNAL 


****C2********* 


* CLEAR HIGH * 


.* ATTN *. 


INTERRUPTS. ATTENTION 


VLDADR2 * 


* BYTE OF * 


.* RTN PIB *. NO A-TRANSIENT WILL POST 


*D5 * 


* UPPER LIMIT * 


*. SVC 2 .* 


.... X'81* TO PIB FLAG. 


* 


* IN REG 2 * 


*. BOUND .* 


. 



*************** 



***************** 



YES .* UPPER *. 

...♦.LIMIT EXCEED . 

♦.HIGH CORE.^ 



***** 

♦ BA ♦ 

* B3* 



*#** 

* * 

* 2 ♦ 

* * 
**** 



*****P2********** 
♦INSERT STORAGE ♦ 

♦ KEY OF STOR ♦ 

♦ BLOCK ♦ 

♦ CONTAINING ♦ 

♦ LOWER ADDR ♦ 
***************** 



.♦ REQUESTOR ♦. NO 
KEY .♦... 
♦. CORRECT .♦ 



*****H2********** 
♦INSERT STORAGE ♦ 

♦ KEY OF STOR ♦ 

♦ BLOCK ♦ 

♦ CONTAINING ♦ 

♦ UPPER ADDR ♦ 
***************** 



.♦ REQUESTOR ♦. 

KEY 

♦. CORRECT .♦ 



♦ REG 6 

(USER KEY) 
♦. EQUALS . 



*****P3********** 

* CLEAR HIGH ♦ 

* BYTE OF ♦ 

* LOWER LIMIT ♦ 

* IN REG 1 ♦ 

* * 
***************** 



♦YES 


***** 

*FD ♦ 

* D2* 

* * 

* 




X 


FCH3 




.*. 


(FETCH) 




D4 ♦. 


$$ANERRZ) 


.♦ *. 






NO .♦ INTERVAL ♦. 




♦ D5 


..♦. TIMER .* 




SUPERVISOR GENERATION 


♦. OPTION .♦ 




OPTIONS, VLDADR SUB- 


♦. ^D5 .♦ 




ROUTINE IS GENERATED 


♦ . .♦ 




ONLY WHEN ONE OR MORE 


♦YES 




OF THESE OPTIONS ARE 
PRESENT 


* 




.MPS 
.SP 



.CONTINUE^. 
.♦ TIMER ♦. 
. INTERRUPT . 
♦PROCESSING. ♦ 



LOW 
LIMIT IN 
. SUPVR 



MPS 

OPTION 

♦ D5 



*****F4********** 

♦ LOAD REG 1 ♦ 

♦ WITH ADDR ♦ 

♦ OF THE NAME ♦ 

♦ OF $$BATTNA, ♦ 

♦ ATTN B-TRAN ♦ 
***************** 



MPS 

OPTION 
♦ D5 



X 

***** 

♦ BA ♦ 

* B3+ 
* * 

* 
ERR25 



X 
***** 

♦ BA ♦ 

* B3^ 



**** 

* * 

* 2 ♦ 

* * 
**** 



*****H4******* 



************** 



*****H5********** 
♦MOVE BACKGROUND^ 

* PIB ♦ 
♦DISPLACEMENT TO* 

* PIK IN * 

* COMM REGN ♦ 
***************** 



♦♦♦♦^♦♦♦♦♦♦♦♦+ 

♦ RETURN TO ♦ 

♦ LINK ADDR ♦ 

♦ * 
*************** 



****«3********* 

* RETURN TO ♦ 

* LINK ADDR ♦ 

* * 
*************** 



.♦ ATTN ♦. 
REQUESTS 
POSTED IN 



*****«4******* 

♦ RESET ATTN ♦ 

♦ RTN FLAG ♦ 

♦ BYTE TO 

♦ X'80« ♦ 

♦ * 
************** 



X 

***** 
*FC ♦ 
* Bl* 



SVC02 

(FETCH 

$$BATTNA) 



***** 
*BC * 
* C3* 
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Chart JA. $$A$SUP1 - SMICR Macro, External Interrupt (Part 1 of 
Refer to Chart 05. 



3) 



SAVE 

INTERRUPT 

STATUS 

*********** 



*****B2********** 

* GET ADDRESS * 

* QF DTF TABLE * 

* FOR THIS * 
♦INTERRUPT FROM * 

* PDTABB *G3 * 
***************** 



1419D *. YES 



.X*. AVAILABLE 



*****01******* 

* TURN OFF * 

* WAIT BIT IN 

* EXTERNAL 

* OLD PSW 

* * 
************** 



*****£!******* 

* TURN OFF * 

* BITS AND L 

* IN INTERRUPT 

* STATUS 

* * 
************** 



**F1********** 



***************** 



PDMPI 

*****Gl** ******** 

* GET POINTER * 

* TO TABLE OF * 

* DTF ADDRESSES * 

* WITH PDTABA * 

* *G3 * 
***************** 



.* IGNORE, 
. BUSY, OR 
*. AVAILABLE. 



*****D2****** 

* LOAD DATA 

* INTO REGISTERS 

* FROM DTF 

* TABLE 

**************** 



***** 

*JH * 

* F2* 

* * 

* 

PDEXT1 

*** 



* 4 * 

* # 
**** 



FIRST 

TIME 

SWITCH 



*****E3 ********** 

* ADD 1 TO * 

* PCU TO GET * 
X* SCU CHANNEL * 

* AND UNIT * 

* * 
***************** 



***** 
*JF * 
* HI* 



****F 2 *********** 

TEST I/O * 
TO CLEAR 
* INTERRUPT * 



SUPERVISOR 
GENERATION 
OPTION. 



**** 

* * 

* 3 *.X 



*****D5******* 

* * 

* TURN ON 

* FIRST TIME 

* SWITCH 

* * 
************** 



NO .* FIRST 
X..*. TIME SINCE 
*. OPEN 



*****F5******* 

* * 

* TURN ON FIRST* 

* TIME SINCE * 

* OPEN * 

* SWITCH * 
************** 



*. .* 




X 


*YES 




**** 
* * 


* 




* 2 * 

* * 
**** 


X 






.*. 






H2 *. 






.♦CHANNEL*. 






END OR 




YES 


DEVICE END 




* 


. ONLY 


* 





* SET FLAG IN * 

* I/O AREA FOR * 

* GOOD RECORD * 

* * ***** 
***************** *j£ * 

* E2* 
* * 



***************** 



***** j i ********** 

* INSERT' * 
♦OWNERSHIP FLAG * 

* IN 'PDTASK 1 * 
*(CHART JH) FOR * 

* PRIORITY TEST * 
***************** 



*****K1 ********** 

* * 
*GET PROTECTION * 

* KEY AND STORE * 

* IN PSW * 

* * 
***************** 



X 
***** 
*JF * 
* Bl* 



***** 
*JE * 
* Bl* 



.* LATE S.S. *. NO 
*OR AUTO SELECT.*.. 
*. ON SCU .* 



X 

***** 
*JF * 
* CI* 



***** 
*JB * 
* Bl* 



*****J5********** 

* GET POINTER * 

* TO FIRST I/O * 
.X* AREA, REMOVE * 

*HIGH-ORDER BYTE* 

* * 
***************** 



...X. 
X 

**** 

* * 

* 1 * 

* * 

**** 
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Chart JB. $$A$SUP1 - SMICR Macro, External Interrupt (Part 2 of 3) 
Refer to Chart 05. 



PDSCAW 


PDNF .*. 


*****Bi ********** 


B2 * 


* STORE ADDRESS * 


.* 


* OF STACKER * 


.* 1419D 


* SELECT CCW * 


*. *D5 


* IN CAW FOR * 


*, 


* START I/O * 


*. 


***************** 


*. .* 



CI *. 
.* MPS *. 
NO .*OR STORAGE *. 
,..*. PROTECT .* 
*. *D5 .*, 



* MOVE STORAGE * 

* PROTECTION * 

* KEY TO CAW * 

* * 
***************** 



*****C2********** 

* GET ADDRESS * 

* OF READ CCW * 

* AND STORE * 

* IN TIC CCW ♦ 

* * 
***************** 



*****D2********** 

* GET I/O AREA * 

* ADDRESS FROM * 

* CCW AND ADD * 

* LENGTH OF * 

* RECORD * 
***************** 



*****C3********** 

* * 

* GET I/O * 

* ADDRESS FROM * 

* FIRST CCW * 

* * 
***************** 



PDNOTZR X 

*****C4********** 

* GET I/O * 

* ADDRESS FROM * 

* ALTERNATE * 

* CCW * 

* * 
***************** 



*****Q3********** 

* * 

* ADD LENGTH * 

* OF BUFFER * 

* RECORD * 

* * 
***************** 



*D5 
SUPERVISOR 
GENERATION 
OPTIONS. 



*****£!********** 

* * 

* UPDATE * 

* RECORD * 

* COUNTER * 

* * 
***************** 



*****E4********** 



***************** 



*****F2 ********** 

* * 

* GET FIRST * 

* I/O AREA * 

* ADDRESS * 

* * 
***************** 



* ARM CHANNEL * 

* PROGRAM FOR * 

* DISENGAGE * 

* * 
***************** 



*****G2********** 

* STORE I/O * 

* AREA ADDRESS * 

* IN CCW * 

* * 
***************** 



*****H2********** 

* * 

* MOVE SENSE * 

* BYTES TO * 

* BUFFER * 

* * 
***************** 



*****P3********** 

* * 

* STORE I/O * 

* AREA ADDRESS * 

* IN ALTERNATE * 

* CCW * 
***************** 



*****G3********** 

* PUT * 

* CORRESPONDING * 

* SENSE BYTES * 

* INTO I/O AREA * 

* ADDRESS * 
***************** 



PDHERE 

*****H3******* 

* TURN OFF * 

* SENSE BIT 

* FOR BUSOUT 

* CHECK 

* * 
************** 



* 3 * 

* * 
**** 



*****P5********** 

* PREPARE * 

* COMMAND CODE * 

* IN STACKER * 

* SELECT CCW * 

* * 
***************** 



*****jl********** 

* INSERT DUMMY * 

* COMMAND CODE * 

* FOR FAILURE * 

* TO DISENGAGE * 

* * 
***************** 



.X. 
X 

**** 



***** 
*JH * 
* B2* 



PDNOSS 

*****J4********** 

* NO-OP STACKER * 

* SELECT CCW * 

* COMMAND * 

* CODE * 

* * 
***************** 



***** 
*JC * 
* 84* 



*****Q5********** 



***************** 



*****H5******* 

* NO-OP THE * 

* BRANCH AT 

* ENTSVC 

* (CHART FA) 

* * 
************** 



*****j5********** 



***************** 



****«5********* 

* LOAD PSW * 

* TO USER'S SS * 

* ROUTINE * 
*************** 
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Chart JC. $$A$SUP1 - SMICR Macro, External Interrupt (Part 3 of 3) 
Refer to Chart 05. 



***** 

*FA * 
* C2* 



* RESTORE 

* BRANCH AT 

* ENTSVC 

* * 
************** 



*****d ********** 

* RESTORE • " * 

* CONTENTS * 

* OF REGISTERS * 
♦AND SVC OLD PSW* 

* * 
***************** 



Dl *. 

.* USER *. 

.♦WANTS BATCH*. 

. NUMBERING . 



RETURN FROM USER'S 
STACKER SELECT ROUTINE 
(VIA ENTSVC, CHART FA) 



***** 
*JB * 
* J4* 



**** 

* * 

* 2 * 

* * 
**** 



* MOVE IN 

* TIC COMMAND 

* CODE 
* 
**************** 



*****C4********** 

* * 

* SET RETRY * 

* COUNTER * 

* TO 3 * 

* * 



*C5 
SUPERVISOR 
GENERATION 
OPTION. 



.X* 



****** 2 ♦♦♦♦****** 

* STORE ADDRESS * 

* OF BATCH * 
NUMBERING * 

* CCW IN * 

* TIC CCW * 
***************** 



PDNOB 

*****gl ********** 

* STORE USER'S * 

* POCKET SELECT * 

* IN STACKER * 
' * SELECT CCW * 

* AND BUFFER * 
***************** 



*. 



F2 *. 
.* AUTO *. 

SELECT ♦ . NO 
OR SPACING .*... 
ERROR .* 



START I/O 

TO SELECT 

* DOCUMENT * 

************* 



***** 
*JD * 
* F3* 



*****G2 ********** 

* NO-OP THE * 

* COMMAND CODE * 

* IN STACKER * 

* SELECT CCW * 

* * 
********* 



******* 



* SET BUFFER * 
♦MASK FOR REJECT* 

* POCKET ♦ 

* * 
***************** 



PDIAGN 


L .*. 




.♦. 




F4 ♦. 




F5 ♦. 




* *. . 


NOT 


.♦ *. 


BUSY.^ 


PSW *. 


OPER 


.♦ 1419D *. YES 


. . .♦. 


CONDITION 


*.. . . 


*. *C5 .*.... 


* 


CODE .♦ 




*. .* . 




♦ . .♦ 




♦ . .* 




*. .* 


X 


*. .* 




*CSW 


***** 


. *NO 




•STORED 


*JF * 

* G3* 

* * 

* 






X 


PDERXT1 






.*. 




X '. 




G4 *. 




*****G5********** 




* *. 




* * 


.♦ 


1419D * 


NO 


* SET FLAG * 


♦ . 


*C5 


*... . 


* TO INDICATE * 


* 


.* 




* GOOD RECORD * 




♦ . .♦ 




* * 




*. .* 


X 


***************** 




*YES 


***** 
*JD * 


i : 






* Bl* 


!x '. 




X 


* * 


X 




***** 


* 


***** 




*JF * 


PDCSWST 


*JH * 




* B2^ 




* B2^ 




* * 




* * 




* 




* 




PDCSWST 




PDEXIT 



*NO **** 

* * 

* 2 * 
X * * 

**** **** 

* * 

* 1 * 

* * 
**** 
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Chart JD. $$A$SUP1 - SMICR Macro, ERP for 1412/1419 Start I/O 
Refer to Chart 05, 



**** 
* * 

* 6 * 

* * 
**** 



1412/1419 SIO 
***** 
*JC * 
* G4* 



CHAN 
DATA 
CHECK 



*D2 
SUPERVISOR 
GENERATION 
OPTION. 



* 4 



**** 
P0SERR3 X 

*****B3********** 

* SUBTRACT 8 * 

* FROM THE CCW * 

* ADDRESS IN * 

* THE CSW * 

* * 
***************** 



*****C3********** 

* STORE THIS * 

* CCW ADDR * 

* IN THE * 

* CAW * 

***************** 



*****D3********** 

* ADD 8 TO * 

* POINT TO * 

* THE CCW * 

* IN ERROR * 



*** 



c******* 



GET SENSE ROUTINE 

****A5********* 

* * 

* PDSIORT * 

* * 
*************** 



*****B5** ******** 
*SAVE CSW IN SVC* 

* OLD PSW SAVE * 

* AREA AND MOVE * 
*SENSE CCW ADDR * 

* TO CAW * 
***************** 



*****C5********** 

* GET * 

* CHANNEL * 

* AND UNIT * 

* NUMBER * 

* IN REG 1 * 
***************** 



******05 *********** 

* SIO * 

TO GET 

* SENSE * 

************* 



******gl*********** 

PDSIORT JD 

**_*_*_*_*_*»*_** 

GET 

* SENSE * 

************* 



E3 *. 




*****E4* ********* 




E5 *. 


.♦STORAGE* 




* MOVE * 


NOT- 


.* PSW *. 


.♦PROTECTION 


*. YES 


* STORAGE * 


OPER. 


.* CONDITION *.BUSY 


OPTION 


.* 


..X* PROTECTION * 


. . . .* 


. CODE AFTER .*... 


*. *D2 


* 


* KEY INTO * 




*. TIO .* 


*. .* 




* CAW * 




*. .* 


*. .* 




***************** 




*. .* 



Fl 



.*. 



*. 



.♦SHOULD . , 

.* NOT-OCCUR * 

.SENSE BYTE 

*BITS 3, 4,.* 

*.6, 7 .* 



*YES 



* 3 



**** 
PDSN02 X 

*****Gi********** 

* POST BIT IN * 

* CCB FOR * 

* UNRECOVERABLE * 

* I/O ERROR * 

* * 
***************** 



*****F3********** 

* POST * 

* DOCUMENT * 

* REJECT TO * 

* BUFFER * 

* * 
***************** 

**** ' 

* * 

* 5 *...X 

* * ***** 
**** *jc * 

* H2* 
* * 



***************** 



*****jl ********** 

* MOVE CSW * 

* STATUS BYTES * 

* TO CCB * 

* BYTE 4 * 

* * 
***************** 



BUS 

OUT 

CHECK 



*****H4* ********* 

* MOVE * 

* STORAGE * 

* PROTECTION *X 

* KEY INTO * 

* CAW * 
***************** 



.* UNIT 
CHECK 
*.ON SENSE 



* STORE STACKER * 

* SELECT CSW * 

* IN CAW * 

* * 
***************** 



YES .* STORAGE 

*. PROTECTION 

*. OPTION . 
*. *D2 .* 



PDSERR2 

*****J4********** 

* POST LATE * 

* STACKER * 
...X* SELECT MSG * 

* TO BUFFER * 



***** 



<*********** 



***** 

*JC * 

* D4* 

* * 



****** 4******* 

* NOP * 

* STACKER 

* SELECT CCW 

* COMMAND CODE ■ 

* * 
************** 



*****j5*** ****** 

* RESTORE 

* CSW FROM 

* SAVE 

* AREA 
* 
**************** 



****K5********* 

* RETURN * 

* VIA LINK REG * 

* * 
*************** 



***** 
*JE * 
* G4* 
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Chart JE. $$A$SUP1 - SMICR Macro, ERP for 1412/1419 Test I/O 
Refer to Chart 05. 



***** 

*JA * 
* J2* 

* * 



.1412/1419 TIO 



YES .* CHAN *. 
...*. DATA .* 
♦ . CHECK .* 



* LOAD CURRENT * 
X* CSW ADDRESS * 

* INTO REG 8 * 

* * 
***************** 



**** 

* * 

* 1 * 

**** 

COMP X 
*****B-t* ********* 

* * 

* SCAN PUB * 

* TABLE TO * 

* FIND ENTRY * 

* * 
***************** 



CI *. 










*****C3********** 


.* CHAN *. 








* SUBTRACT 8 * 


.♦CHAINING *. NO 








* FROM THE * 


*.OR PROTECTION.*.... 










* CCW ADDR * 


*. CHECK .* 






* CONTAINED * 


*. .* 










* IN THE CSW * 


*. .* 










***************** 


*YES 












**** 












. * * 












...♦ 2 * 












X. * * 












**** 


X 






X 


PDMVCSW X 


PDTERR4 .*. 






.*. 


*****D l********** 


D2 *. 






D3 *. 


* MOVE * 


.* *. 






.* IS *. 


* PAPER * 


.♦ UNIT * 


. NO 


.*. THIS ♦ . * 


* DOC CSW * 


♦ . EXCEPTION 


.* 




*. ADDR LESS .* 


* TO THE DTF * 


*. .* 






♦ . THAN .♦ 


* TABLE * 


*. .* 






*. .* 


***************** 


*. .* 




X 


*. .* 




*YES 




***** 
*JA * 


*NO 










* H4* 












* * 
* 












PDUPDT 




X 


PDMOV X 






X 


*****E1 ********** 


*****E2 ********** 




*****E3***#****** 


* MOVE CSW * 


* MOVE CSW 


* 




* * 


* STATUS BYTES * 


* STATUS BYTES 


* 




* CLEAR SENSE * 


* TO CCB * 


* TO CCB 


* 




* INFORMATION * 


* BYTE 4 * 


* BYT 


E 4 


* 




* AREA * 



ERROR 

PUB 
FOUND 



********* 



PDCHAN 

*****Pl********** 

* POST BIT IN * 

* CCB FOR * 

* UNRECOVERABLE * 

* I/O ERROR * 

* * 
***************** 



***************** 



*****F2********** 



***************** 



* 3 



**** 
PDERXT2 X 

*****Gl ********** 
*POST DISENGAGE * 

* X«20« TO * 

* CCB BYTE 3t * 

* BIT 2 * 

* * 
***************** 



PDPDEQ X 

*****Hi********** 

* GET ADDRESS * 

* OF PUB * 

* TABLE AND * 

* CHAN AND * 

* UNIT NO. * 
***************** 



************* 



ERROR *. YES 
ON .♦..X 
SENSE .* 



******G3*********** 

PDSIORT JD 

**_ *_*_*_*_*_*_** 

GET 
* SENSE * 

************* 



.*. 
H3 ♦ . 
.♦SHOULD *. 
YES .* NOT-OCCUR * 
...♦.SENSE BYTE 0, 
*. BITS 0, .♦ 
2,3 .♦ 



*****D4********** 

* INCREMENT ♦ 

* TO NEXT * 

* ENTRY IN * 

* PUB TABLE * 

* * 
***************** 



♦ . 



♦ NO 



♦JA-D4 
JD-J1 
***** 



PDERXT1 X 

*****G4********** 

♦ TURN ON * 

♦ DOCUMENT ♦ 

♦ REJECT AND ♦ 

♦ RECORD AVAIL ♦ 

♦ IN I/O BUFFER * 
***************** 



*****H4********** 

* POST * 

* REJECT * 

* POCKET ♦ 

* TO BUFFER ♦ 

* * 
***************** 



PDSN01 X 

*****K3********** 

♦ MOVE SENSE ♦ 

♦ INFORMATION ♦ 

♦ TO THE ♦ 

♦ DTF TABLE * 

♦ * 
***************** 



PDYES 

*****C5********** 
♦CQDSP CN* 
*_*_*,.*_*_*_*_*_* 

...X* SET UP * 
*REGS FOR DSECTS* 
* * 

***************** 



*****D5******* 

* TURN OFF * 

* CHANNEL 

* SCHEDULER 

* FLAGS IN 

* PUB ♦ 
************** 



*****E5******* 

♦ RESTORE * 

♦ REQUESTOR 

♦ ID IN CHAN 

♦ QUEUE TO 

♦ X'FF' * 
************** 



*****F5********** 

♦ SAVE THE * 

♦ CHAN QUEUE * 

♦ POINTER FROM ♦ 

♦ THE PUB IN ♦ 

♦ REG 8 * 
***************** 



*****G5********** 

♦ MAKE NEXT * 

♦ CHAN QUEUE * 

♦ ENTRY REQUEST * 

♦ FIRST ON ♦ 

♦ PUB ♦ 
***************** 



*****H5********* 

* INSERT CHAN 

* QUEUE ENTRY 

* AT HEAD OF 

* FREE LIST 
* 

******: 



*****J5******* 

♦ TURN ON 

♦ TRAFFIC BIT 

♦ IN CCB 

♦ BYTE 2, 

♦ BIT 1 
************** 




X 

***** 
*JH * 
* B2* 



**** 

* * 

* 2 ♦ 

* * 
**** 
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Chart JF. $$A$SUP1 - SMICR Macro, ERP for 1419D SIO and TIO 
Refer to Chart 05. 



1419D TI 
***** 
*JA * 
* J 2* 



CHANNEL *. YES 
DATA ,*....X. 
CHECK .* 



1419D SIO 
***** 
*JC * 
* G4* 



YES .* CHANNEL *. 
.*. DATA .* 
*. CHECK .* 



**** 

* * 

* 1 * 

* * 
**** 



.X. 



*. .* 




X 




*. .* 




*N0 




**** 


*N0 




**** 




* 


* 






* * 




* 2 


* 






*JA *... 




* 


* 






* J3* 




**** 






**** X 








X 




PDREJDC .*. 






PDSERR1 .*. 




CI *. 








C2 *. 




.* • *. 








.* *. 




NO .* OVERRUN * 








.* UNIT *. NO 


...♦. ON SCU 


!* 






*. CHECK .* 




*. *A2 .♦ 








*. .* 




*. .* 








*. .* 




*. .* 








*. .* 


X 


*YES 








*YES 


**** 
* 

* 3 
* 






















**** 


X 








X 




*****D1********** 






*****D2********** 




* POST OVERRUN 


* 






* STORE CSW IN * 




♦SENSE BIT X«20 


• * 






* OLD PSW SAVE * 




* INTO BUFFER 


* 






* AREA AND MOVE * 




* RECORD 


* 






* SENSE CCW * 




* 


* 






♦ADDRESS TO CAW * 




***************** 






***************** 





PDDFLT X 

*****B5********** 

* GET PRECEDING * 

* CCW (NO-OP ♦ 

* CCW} AND * 
♦STORE IN CHAIN ♦ 

* * 
***************** 



**** 

* * 

* 2 * 

* * 
**** 



*****D4********** 

* MOVE SENSE * 

* INFORMATION * 

* TO DTF * 

* TABLE ♦ 

* * 
***************** 



*****£!********** 

♦ POST DOCUMENT * 

♦ REJECT MSG. ♦ 

♦ X'CF' TO ♦ 

♦ BUFFER ♦ 

♦ * 
***************** 



AUTO *. 
SELECT 
ON SCU .* 



*****Gl ********** 

* POST AUTO * 

* SELECT X'80« * 

* TO BUFFER * 

* RECORD * 

* * 
***************** 



*****H1********** 

* POST DOCUMENT * 

* REJECT MSG ♦ 



***************** 



*****£ 2********** 

* GET CHAN * 

* AND UNIT * 

* NUMBER IN ♦ 

* REG I ♦ 

* * 
***************** 



******P2*********** 

* SIO * 

GET 

♦ SENSE ♦ 

************* 



PDCHAN 

*****E4********** 

* POST EXTERNAL * 

* I/O INTERRUPT * 

* X'20« TO CCB * 

* BYTE 3 * 

* * 
***************** 



***** 
*JC * 
* F4* 



PDETIO 
BUSY.* 



.*. 



***** 
*JA * 
* G4+ 



G2 

PSW *. NOT . 
COND *.OPER 
CODE AFTER .*... 
TIO .* 



H2 ♦. 
* UNIT 
CHECK 



*****j2 ********** 

* RESTORE * 

* CSW * 

* FROM * 

* SAVE AREA * 

* * 
***************** 



PDERXT1 X 

*****G3********** 

* POST SCU NOT * 

* OPERATIONAL ♦ 

* IN CCB * 

* BYTE 3, BIT * 

* * 
***************** 



***************** 



*****G4********** 

* MOVE CSW * 

* STATUS BYTES * 

* TO CCB * 

* BYTE 4 * 

* * 
***************** 



PDAGN X 

*****D5********** 

* STORE STACKER ♦ 

* SELECT CCW * 

* ADDRESS IN ♦ 

* CAW ♦ 

* * 
***************** 

**** * 



STORAGE 

PROTECT 

*H5 

♦ . .* 



*****P5********** 

* * 

* MOVE STORAGE * 

* PROTECTION * 

* KEY TO CAW * 

* * 
***************** 



***** 
*JC * 
* D4* 



PDERXT2 

*****H3********** 

* POST BIT IN * 

* CCB FOR * 

* UNRECOVERABLE ♦ 

* I/O ERROR * 

* * 
***************** 



*H5 
SUPERVISOR 
GENERATION 
OPTION. 



PDERXT3 

*****j3********** 

* TURN ON * 

* DOCUMENT * 

* REJECT AND * 

* RECORD AVAIL. * 

* IN I/O BUFFER * 
***************** 



*****K3********** 

* POST REJECT * 

* POCKET X'CF' * 

* TO BUFFER ♦ 

* BYTE 5 * 

* * 
***************** 



***** 
*JH * 
* B2* 
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Chart JG. $$A$SUP1 - SMICR Macro, Program Check Interrupt 
Refer to Chart 03. 



♦BA-C5 
FG-B2 
FH-C2 

***** 



PDPROGCK .*. 

B2 #. 
.* PROG * 
.* CHECK 
*.IN USER'S S 
*. ROUTINE 



PDNOTSS X 

*****C2********** 

* MOVE REGS. * 

* 9-11 INTO * 

* NORMAL * 

* SAVE AREA * 

* * 
***************** 



*****C3********** 

* * 
♦GET ADDRESS OF * 

* BACKROUND * 

* PIB * 

* * 
***************** 



*****C4********** 

* CALCULATE * 

* ADDRESS OF * 

* INTERRUPTED * 

* PROGRAM PIB * 

* * 
***************** 



*****Q2********** 

* SET SYSTEM * 

* MASK TO * 

* DISABLE I/O * 

* INTERRUPTS * 

* ONLY * 
***************** 



**** 

* * 

* I * 

* * 
**** 



*****£ 3********** 

* SAVE PROGRAM * 

* CHECK PSW AND * 

* USER'S REGS * 

* IN PROBLEM * 

* PROGRAM AREA * 
***************** 



PDPRCAN X 

*****E4********** 

* NO-OP THE * 

* BRANCH AT * 

* ENTSVC * 

* (CHART FA) * 

* * 
***************** 



*F2 
BA-D4 (NO PC 

ROUTINE! 
FG-Cl (NO SP, IT, 

OR OC) 
FH-B3 (SP, IT, OC) 



*****P3********** 



***************** 



*****Q3********** 

*ERRSET BB* 
*.. *-*_*_*_*_*_*_* 

* MAKE ALL * 

* CANCEL * 

* CHECKS * 
***************** 



*****G4********** 

* ACTIVATE * 

* BRANCH AT * 

* EXT04 FOR * 
♦TASK SELECTION * 

* (CHART BO * 
***************** 



*H2 
SUPERVISOR 
GENERATION 
OPTION. 



*****H3******* 

* TURN OFF * 

* LOGICAL * 

* TRANSIENT * 

* CANCEL FLAG * 

* * 
************** 



*****H4********** 

* * 

* RESTORE * 

* REGISTERS * 

* 11-0 * 

* * 
***************** 



* 1 * 

* * 
**** 



X 

***** 

*JH * 

* F2* 

* * 
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Chart JH. $$A$SUP1 - SMICR Macro, Exit Routine 
Refer to Charts 03 and 5. 



*JB-J3 
JC-G5 
JE-J5 
JF-K3 

***** 

* * 

* * * 



*JA-C2 
JG-H4 
***** 



* UNBOUND THE * 

* SVC-7-B0UND * 

* PIB * 

* *C3 * 
***************** 



PDCLI .*. 

D2 *. 
.* THIS *. 
NO .* PROGRAM * 
X..*.HAS PRIORITY 



*****E2********** 

* ACTIVATE * 

* BRANCH AT * 

* EXT04 FOR * 
*TASK SELECTION * 

* (CHART BC) * 
***************** 



PDEXT1 


.*. 






F2 *. 






,* MORE * 


NO 


* 


MICR 


. ..*, 




INERRUPTS 


• 


* 


*. .* 


X 




*. .* 


**** 




*YES 


* 






1 * 






* 




X 


**** 




***** 
*JA * 
* Gl* 



*C3 
THE DISPLACEMENT 
IN THE PIB TABLE 
WAS SET IN THIS 
INSTRUCTION FOR 
MPS ONLY ON CHART JA 
AFTER PDMPI. 



*C4 
SUPERVISOR 
GENERATION 
OPTION. 



*****E3********** 



***************** 



.*. 

F3 *. 

.* *. 

NO .* OC *. OC 

...*. OR IT .*.. 


OR 


PDKEY 

*****F4********** 

* * 

* ALERT * 
..X* ATTENTION * 


*. *C4 .* BOTH 
*. .* 
*. .* 

*IT ONLY 

lx 


* ROUTINE * 

* * 
***************** 


PDTIMER X 

*****G3***>****** 

* UPDATE TIME * 

* OF DAY AND * 

* RESET TIMER * 

* TO INTERRUPT * 

* ALONE * 




X 

.*. 

G4 *. 

.* *. 

.YES .* *. 

...*. TIMER .* 

*. .* 

*. .* 



***************** 



PDEXT2 .*. 

H3 *. 
.♦SYSTEM *. 
SUPV .* STATE *. PROB. PROG. 

*.AT INTERRUPT .*.... 

*. TIME .* 



*. 



***** 
*BC * 
* Fl* 



* RESTORE * 

* SUPERVISOR * 

* REGISTERS * 

* * 
***************** 



***** 
*BC * 
* B3* 



****K3********* 

* LOAD EXT. * 
*OLD PSW, ENTER * 

* WAIT STATE * 
*************** 
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Chart KA. $$A$SUP1 - SEND Macro, LTA Subroutine 



***A2********* 
* 
LTA *A3 * 
* 
********** 



*****B2********** 

* * 

* LOAD ADDRESS * 

* OF PUB * 

* FOR SYSRES * 

* * 
***************** 



*A3 
THIS SUBROUTINE IS LOCATED IN THE LOGICAL 
TRANSIENT AREA AND IS USED ONLY ONCE 
DURING IPL. ENTRY IS FROM THE FETCH MACRO 
(SGDFCH, CHART EA) THE FIRST TIME IT IS 
EXECUTED. THE ENTRY TO THIS ROUTINE IS 
OVERLAID BY NEW INSTRUCTIONS BEFORE THIS 
ROUTINE EXITS. 



* SYSRES * 

ON SELECTOR 
*. CHANNEL .* 



*****C3#****#* 

* RESET BURST* 

* MULTIPLEX * 
X* FLAG IN 

* SYSRES PUB * 



*********** 



c** 



*****£ 2 ********** 

* SET RECORD * 

* LENGTH FOR * 

* CORE IMAGE * 

* LIBRARY TO * 

* 1688 FOR 2314 * 
***************** 



*****G2 ********** 
*SET CORE IMAGE * 

* DIRECTORY * 

* ADDRESS FOR * 

* 2314 *G3 * 

* * 
***************** 



*****H2* 

* DECREASE * 
*RETURN ADDRESS * 

* IN REG. 14 * 

* BY 6 BYTES * 

* * 
***************** 



*F3 
SUPERVISOR 

GENERATION 
OPTION. 



*G3 
CYLINDER 
RECORD 1. 



*****j 2 ********** 

* OVERLAY TWO * 

* INSTRUCTIONS * 

* IN FETCH * 

* ROUTINE *J3 * 

* * 
***************** 



*J3 

THE TWO INSTRUCTIONS THAT 

BRANCHED TO THIS ROUTINE 

AT IPL TIME ARE NOW REPLACED 

BY THOSE THAT WILL BE USED 

FOR NORMAL PROCESSING IN 

THE SGDFCH MACRO (SEE CHART EA). 



****K2********* 

* BRANCH TO * 

* OVERLAID * 

* INSTRUCTIONS * 
*************** 

CHART EA 
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Chart LA. $$ANERRA - ERP Monitor (Part 1 of 2) 
Refer to Chart 07. 



****A1********* 

* * 

* $$ANERRA * 

* * 
*************** 



IJBERA23 

*****B1********** 
♦LOAD ADDRESSES * 

* OF COMREGt * 

* ERBLOC. AND * 

* PUB. SSM TO * 
♦ENABLE INTRPTS.+ 
***************** 



4* UNIT 
♦. RECORD 
♦. DEVICE 



****34********* 

* SVC 3 ♦ 

* $$ANERRU ♦ 

* CHART MF ♦ 
*************** 



.♦ IS ♦. 
* DEVICE *. NO 
OPERATIONAL .♦... 



*****££♦♦♦♦♦♦♦♦♦♦ 

♦ INSERT X«31« ♦ 

♦ DEVICE NOT * 
OPERATIONAL *. 

MESSAGE CODE ♦ 



***************** 



.X+ 



Dl ♦. 
.♦ ERROR ♦. 
* OCCURRED ♦. YES 
ON RECOVERY ...... 



****C4***+**+** 

* SVC 3 ♦ 

* $$ANERRX ♦ 

* CHART MN ♦ 
*************** 



X 
COMBIN .♦. 

El ♦. 

.♦CHANNEL^. 

.♦DATA CHECK ♦ 

♦. OR CHAINING 

♦. CHECK .♦ 



**** 

* * 

* 3 ♦ 

* * 
**** 



♦ 2 ♦ 

* * 
**** 



.♦. 
D3 ♦. 
* 

2321 

♦ . 

♦ . .♦ 
♦NO 



2311 

OR 
2314 



*****P2********** 

♦ INSERT X«28' ♦ 

♦ CHANNEL ♦ 

♦ DATA CHECK +X 

♦ MESSAGE CODE ♦ 

♦ * 
***************** 



.♦ CHANNEL ♦. 
. DATA CHECK . 
♦ . .♦ 



1412 

OR 
1419 



****E5********* 

♦ SVC 3 ♦ 

♦ $$ANERRG ♦ 

♦ CHART LM ♦ 
*************** 



****P5********* 

♦ SVC 3 ♦ 
.X^ $$ANERRT * 

♦ CHART ME ♦ 
*************** 



**** 

* * 

* 3 ♦ 

* * 
**** 



*****H1********** 

♦ INSERT X«24« ♦ 

♦ PROGRAM ♦ 

♦ CHECK ♦ 

♦ MESSAGE CODE ♦ 

♦ * 
***************** 



PROTCHK X 

♦♦♦♦♦^♦♦♦♦♦♦♦♦♦^ 

♦ INSERT X'25« ♦ 

♦ PROTECTION ♦ 

♦ CHECK ♦ 

♦ MESSAGE CODE ♦ 

♦ * 
***************** 



.♦ EQUIPMENT ♦. NO 


♦. CHECK .♦. 




♦ . .♦ 




♦ . .♦ 




♦ . .♦ 


X 


♦YES 


***** 




♦ LB ♦ 




* B2* 




* * 




* 




NORCFND 


X 




*****H3********** 




♦ INSERT X«10« ♦ 




♦ EQUIPMENT ♦ 




♦ CHECK ♦ 




♦ MESSAGE CODE ♦ 




* * 




***************** 




**** 




. * * 




.X.+ 3 ♦ 




. * * 




**** 




***** 


LA 


*LB ♦ 




♦ J4^ 





G4 ♦. 
* * 

1419D 



1285 

OR 
1287 



****G5********* 

♦ SVC 3 ♦ 

♦ $$ANERRW ♦ 

♦ CHART MK ♦ 
*************** 



****H5********* 

♦ SVC 3 ♦ 

♦ $$ANERR9 ♦ 

♦ CHART MX ♦ 
*************** 



***** 

♦ LB ♦ 

♦ H4+ 



*LB ♦ 
* Jl* 
**** 
LASPHAS 



***** 
*LB ♦ 
* Bl* 



****«4********* 

♦ SVC 3 ♦ 

♦ $$ANERRC ♦ 

♦ CHART LC ♦ 
*************** 



j__>vy ukj*j oupcj. vxoujl emu. ru^oioax emu. uuyx^aj. najiaxciiuo 



Chart LB, $$ANERRA - ERP Monitor (Part 2 of 2) 
Refer to Chart 07. 



***** 

*LA * 

* J4* 

* * 



***** 
*LA * 
* G3* 



B2 *. 
.* NO- *. 

RECORD- *. YES 
FOUND .*.... 
.CONDITION.* 



MISSING 
ADDRESS 
MARKER 



.X* 



**** 

* * 

* l * 



*****Q1 ********** 

* DETERMINE * 

* ENTRY IN * 

* CHANNEL QUEUE * 

* AND GET * 

* CCB ADDRESS * 
***************** 



*****£ 1 ********** 

* SAVE CCB BITS * 

* 8-20, GET * 

* STORAGE KEY, * 
*■ SAVE BITS * 

* 24-27 * 
***************** 



*****G1********** 

* GET ADDRESS * 

* OF LOGICAL * 

* TRANSIENT KEY * 

* FROM COMM. * 

* REGION * 
***************** 



*****Hi********** 

* * 

* GET QTAM * 

* ADDRESS FROM * 

* COMM. REGION * 

* * 
***************** 



* KEY * 
ADDRESS 
= QTAM 
ADDRESS 



*****B5********** 

* INSERT X'2l' * 
*NO-RECORD-FOUND* 

AND MISSING * 

* ADDR MARKER * 

* MSG CODE * 
***************** 



**** 

* * 

* 4 * 



.* *. YES 

♦.INTERVENTION .*.... 
♦.REQUIRED .* 



*****Q3********** 

* INSERT X«26« * 

* INVALID SEEK * 

* ADDRESS * 

* MESSAGE * 

* CODE * 
***************** 



* INSERT X'15« * 

* SEEK CHECK * 

* MESSAGE CODE * 

* * 
***************** 



D4 *. 

.* IS *. 

.* THIS *. YES 

*. ACTUALLY A .*.. 

*. SEEK .* 

♦.CHECK.* 



*. 



****F 2 ********* 

* SVC 3 * 

* SSANERRB * 

* CHART LC * 
*************** 



*****P3********** 

* * 

* INSERT X'09« * 

* BUSOUT CHECK * 

* MESSAGE CODE * 

* * 
***************** 



*N0 



*****E4********** 

* INSERT X'35' * 

* NO-RECORD- * 

* FOUND MESSAGE * 

* CODE * 

* * 
***************** 



*****F4********** 

* CALCULATE CCB * 

* ADDRESS, TURN * 

* ON NO-RECORD- * 

* FOUND BIT, * 

* BYTE 3, BIT 4 * 
***************** 



*****£ 5* ********* 

* INSERT X'08« * 

* INTERVENTION * 

* REQUIRED * 

* MESSAGE * 

* CODE * 
***************** 



*****F5******* 

* TURN ON * 

* INTERV. REQ. 

* BIT 1 IN 

* ERQUE FLAG 

* * 
************** 



.X. 



**** 

* * 

* 4 * 

* * 
**** 



*H2 
REFER TO PLM'S 
Y30-5001 
AND Y30-5002 
FOR T/P ERP. 





***** 




*LA * 




* HI* 




*** * * 


* 


* * 


* 


3 *.X. 


* 


* 


**** 


EXTTA X 


*****H4******* 


* 


TURN OFF * 


* 


ALLOW RETRY * 


* 


AND IGNORE 


* 


BITS 3 AND 5 * 


* 


IN ERQUE FLG* 


************** 



****J2******** 

* SVC 3 

* $$ANERR2 

* *H2 
************** 



****J4********* 

* SVC 3 * 

* $$ANERRM * 

* CHART LV * 
*************** 



***** 
*LA * 
* K4* 
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Chart LC. $$ANERRB - Disk ERP 
Refer to Chart 07. 



****A1********* 

* * 

* $$ANERRB * 

* * 
*************** 



IJBERB20 

*****Bl********** 
♦LOAD v AODRESSES * 

* OF COMREG, * 

* ERBLOC, AND * 
*PUB. SSM TO EN-* 
♦ABLE INTERRUPTS^ 
***************** 



B2 ♦. 
.* * 
.* 
,.X^. OVERRUN 



MISSING 
ADDRESS 
MARKER 



.♦ FILE ♦. 

PROTECT 

♦. VIOLATION. ♦ 



*****C2^*+^*^+* 

♦ * 

♦ INSERT X«14' ♦ 

♦ OVERRUN ♦ 

♦ MESSAGE CODE ♦ 

***************** 



*****C3********** 

♦ INSERT X«13« ♦ 

♦ MISSING ♦ 
♦ADDRESS MARKER ♦ 

♦ MESSAGE CODE ♦ 

♦ * 
***************** 



*****B5********** 

* * 

♦ INSERT X'17« ♦ 
.X^ FILE PROTECT ♦. 

♦ MESSAGE CODE ♦ 

* * 
***************** 



*****C5********** 

♦ INSERT X'18« ♦ 

♦ COMMAND ♦ 
X+ REJECT ♦ 

♦ MESSAGE CODE ♦ 

♦ * 
***************** 



DTCH 

*****01********** 

♦ CALCULATE ♦ 

♦ CHANNEL QUEUE ♦ 

♦ ENTRY AND GET ♦ 

♦ CCB ADDRESS ♦ 

♦ * 
***************** 



El ♦. 

.♦ USER ♦. 

.*WANTS DATA 

CHECKS 

♦.RETURNED . 



EXITAB X 

*****05******* 

♦ TURN OFF ♦ 

♦ ALLOW RETRY ♦ 
♦AND IGNORE BITS+ 

♦ 3 AND 5 IN ♦ 

♦ ERQUE FLAG ♦ 
************** 



*****E2*^+^+*+ 

♦ TURN ON ♦ 

♦ PASSBACK 
.X^ BIT 2 IN 

♦ ERQUE FLAG 

♦ * 
************** 



*****E3********** 

♦ INSERT X«14« ♦ 

♦ CHAINING ♦ 

♦ CHECK ♦ 

♦ MESSAGE CODE ♦ 

♦ * 
***************** 



UNKN X 

*****E4********** 

♦ INSERT X'19" ♦ 

♦ UNDETERMINED ♦ 

♦ ERROR ♦ 

♦ MESSAGE CODE ♦ 

♦ * 
***************** 



♦ INSERT X'll 1 ♦ 

♦ DATA CHECK ♦ 

* MESSAGE CODE ♦ 

* * 
***************** 



.♦ DATA ♦ 
.♦ CHECK IN 
COUNT 
♦. FIELD 



*****H1******* 

♦ TURN ON DATA^ 

♦ CHECK IN ♦ 
♦COUNT FIELD BIP* 

♦ IN CCB, ♦ 

♦ BYT€ 3, BIT 
************** 



*****jl ********** 

♦ INSERT X'16' ♦ 

♦ DATA CHECK ♦ 
♦IN COUNT FIELD ♦ 

♦ MESSAGE CODE ♦ 

♦ * 
***************** 



VERIF 

*****G2^^+++ 

♦ TURN ON ♦ 

♦ READ/VERIFY ♦ 
...X^DATA -CHECK BIT 

♦ IN CCB, ♦ 

♦ BYTE 3, BIT 3 
************** 



♦ ♦♦♦♦^♦♦♦♦♦♦♦♦♦^ 

♦ CALCULATE ♦ 

♦ ADDRESS OF ♦ 

♦ LAST USED ♦ 

♦ CCW * 

♦ * 
***************** 



.♦ WAS ♦. 
.♦ COMMAND ♦ 
♦.CODE READ OR 
♦. VERIFY .♦ 



G3 ♦. 
.♦ USER ♦. 
.♦WANTS DATA ♦. YES 
.X+. CHECKS ...... 

♦.RETURNED .♦ 

♦ . .♦ 

♦ . .♦ 



*****G4******* 

♦ TURN ON ♦ 

♦ PASSBACK 
X^ BIT 2 IN 

♦ ERQUE FLAG 

♦ * 
************** 



. .x. 



SSL .♦. SKSLT 

H3 ♦. *****H4******* 

.♦ WERE *. ♦ TURN ON ♦ 

.♦ SKIP AND ♦. YES ♦ DASD VERIFY 

♦ . SILI BITS .♦ X^ ERROR BIT IN 

♦. ON .♦ ♦ CCB, BYTE 3, 

♦. .♦ ♦ BIT 6 ♦ 

*. .* ************** 
♦ NO 



INSERT X'12' 
VERIFY ERROR 
MESSAGE CODE 



***************** 



****K4********* 

♦ SVC 3 ♦ 

♦ $$ANERRM ♦ 

♦ CHART LV ♦ 
*************** 



****P5********* 

* * 

* $$ANERRC ♦ 

* * 
*************** 



♦LOAD ADDRESSES ♦ 

♦ OF ERBLOC ♦ 

♦ AND PUB ♦. 

♦ * 
***************** 



*****H5********** 

♦ INSERT X'27« ♦ 

♦ ERROR-ON- * 
♦UNKNOWN DEVICE ♦ 

♦ MESSAGE CODE ♦ 

♦ * 
***************** 



*****J5******* 

♦ TURN OFF ♦ 

♦ ALLOW RETRY ♦ 
♦AND IGNORE BITS^ 

♦ 3 AND 5 IN ♦ 

♦ ERQUE FLAG ♦ 
************** 



♦ ♦♦♦^♦♦♦♦♦♦♦♦* 

♦ SVC 3 ♦ 

♦ $$ANERRM ♦ 

♦ CHART LV ♦ 
*************** 
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Chart LD. $$ANERRD - Phase 1 of Tape ERP (Part 1 of 2) 
Refer to Chart 07. 



****A1********* 

* * 

* SSANERRD * 

* * 
*************** 



**** 

* * 

* L * 

* * 
**** 



IJBERD20 X 

*****Bi ********** 

* SET SYSTEM * 

* MASK IN PSW * 

* TO ENABLE * 

* INTERRUPTS ON * 

* ALL CHANNELS * 
***************** 



*****B 2 ********** 

* LOAD ADDR * 

* OF RETRY * 

* COUNTER INTO * 

* TEB REG 14 * 

* * 
***************** 



*****B3********** 

* GET TEB PNTR, * 

* COMPUTE TEB * 
.X* ADDRESS* AND * 

* GET RETRY * 

* COUNTR ADDR * 
***************** 



*****B 5 ********** 

* LOAD CNTREG * 

* TO POINT TO * 
X* BYTE 2 * 

* OF TEB * 

* *D5 * 
***************** 



*****C ].********** 

* LOAD ADDR * 

* OF COMREG, * 

* ERROR BLOCK, * 

* AND PUB TABLE * 
*INTO WORK REGS * 
***************** 



WERE 

TEBS 

.SPECIFIED. 



*****C3********** 

* INDICATE * 
*TEBS SPECIFIED * 

* IN REPCCW * 

* BYTE COUNT * 

* AREA * 
***************** 



*****C5********** 
*CNTRTN LE* 
*_*_*_*_*_*_*_*_* 

* INCREMENT CTR * 

* FOR INTL READ * 

* ERRORS IF TEB * 

***************** 



MAINRT X 

*****D2********** 

* INCREASE * 

* RETRY * 

* COUNTER * 

* BY ONE * 

* * 
***************** 



SSELER 
YES .** 



IS 

NOISE 
BIT 
ON 



*D5 
BYTE 2 CONTAINS 
INITIAL READ 
ERROR COUNT. 



*****£ 1********** 

* INSERT X'31» * 

* DEVICE NOT * 

* OPERABLE * 

* MESSAGE * 

* CODE * 
***************** 



CHANNEL 
DATA 
CHECK 



DTCRTN X 

*****£ 3 ********** 

* INSERT X'll' * 

* DATA CHECK * 

* MESSAGE * 

* CODE * 

* * 
***************** 



*****E4********** 

* * 

* COMPUTE * 

* RECORD * 

* LENGTH * 

* * 
***************** 



BYTE 1 CONTAINS 
PERMANENT READ 
ERROR COUNT. 



Fl *. 

.* IS *. 

* DEVICE * 

OPERATIONAL 



* 4 * 

* * 
**** 



***** 
*LE * 
* K4* 



*****F2********** 

* INSERT X«10« * 

* EQUIP * 

* CHK MSG * 

* CODE * 

* * 
***************** 



F3 *. 

* WAS * 

CCW 

ADDRESS 

STORED 



*****G1********** 
*GET ADDRESS OF * 

* ERROR MSG CCW * 
*AND CLEAR HIGH * 

* ORDER BYTE * 

* * 
***************** 



THIS A 

WRITE 

COMMAND 



***** 
*LE * 
* J4* 



***** 
*LE * 
* Bl* 



*****H1 ********** 

* CALCULATE * 

* LOGICAL UNIT * 
♦ADDRESS, STORE * 

* IN CCB * 

* * 
***************** 



H2 *. 
.* BUS *. 
.YES .* OUT INT. 
.X..*. REQ. OR 

*. OVERRUN . 
*. CHECK.* 
*. .* 
*NO 



THIS A 

READ 
COMMAND 



***** 
*LE * 
* G2* 



*****H4********** 

* LOAD * 

* CNTREG TO * 

* ■ POINT TO * 

* BY 1 OF TEB * 

* *E5 * 
***************** 



*****H5********** 

* LOAD CNTREG * 

* TO POINT TO * 

* BYTE 5 OF TEB * 

* FOR NOISE * 

* RECORD COUNT * 
***************** 



***** j 1 ********** 

* GET ADDR * 

* OF CCW * 

* CAUSING * 

* INTERRUPT * 

* * 
***************** 



* 2 * 

* * 
**** 



****«2********* 

* SVC 3 * 

* $$ANERRE * 

* CHART LF * 
*************** 



*****J4********** 

*CNTRTN LE* 
*_*^*_*_*„*_*_*_* 

* INCREMENT * 

* PERMANENT * 
*READ ERROR CNT * 
***************** 



****K4********* 

* SVC 3 * 

* $$ANERRL * 

* CHART LL * 
*************** 



*****J5********** 

*CNTRTN LE* 
*_*_*_*_*_*_*_*_* 

* INCREMENT * 

* NOISE RECORD * 
♦COUNTER OF TEB * 
***************** 

**** " 



*LE 
* Gl* 
**** 
RETRY 



****K5********* 

* SVC 3 * 

* TAKE RETRY * 

* EXIT EXRTY * 
*************** 

CHART DD 
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Chart LE. $$ANERRD - Phase 1 of Tape ERP (Part 2 of 2) 
Refer to Chart 07. 



***** 

*LD * 
* G4* 



*****d ********** 

* MOVE A X'37' * 

* FORWARD REAO * 

* CODE INTO * 

* CCW COMMAND * 

* ; CODE AREA * 

***************** 



.* TAPE ♦ . YES 
♦ . CLEANING .*... 
*. NEEDED .* 



******£!*********** 

DOSVC LE 
**-*_*-*-*_*_*_** 

* SVC 15 * 
************* 



*****F1 ********** 

* INSERT X'lB* * 

* (TIE) COMMAND * 

* CODE AND ADDR * 

* OF SENSE BYTE * 

* IN CCW * 
***************** 



FIRST *. NO 
TRY .*... 
♦H2 .♦ 



*****C2********** 

* INCREMENT * 

* CNTREG TO * 

* POINT TO * 

* BYTE 3 OF * 

* TEB *J2 * 
***************** 



*****D2********** 
♦CNTRTN LE* 
*_*-*-*_*_*_*-.*_* 

* INCR ERR FOR * 

♦ INIT WRITE ER- * 
*ROR CNT IN TEB * 
***************** 



*****£ 2 ********** 

* LOAD CNTREG * 

* TO POINT TO * 

* BYTE 4 OF * 

* THE TEB * 

* *K2 * 
***************** 



*****F2********** 
*CNTRTN LE* 
*-*_*_*_*_*_*_*_* 

* INCR CTR FOR * 
♦DISPLAY FOR ERG* 

* COUNT IN TEB * 
***************** 



****A3********* 

* * 

* CNTRTN * 

* * 
*************** 



.* WERE *. 

TEBS 

SPECIFIED 



*****C3********** 

* GET CORRECT * 

* TEB COUNTER * 

* TO THE * 

* PROPER * 

* BYTE * 
***************** 



* IS *. 

TEB *. YES 
COUNTER .*..X 
FULL .* 



*****£ 3 ********** 

* INCREMENT * 

* AND STORE * 

* TEB * 

* COUNTER * 

* * 
***************** 



****F3********* 

* RETURN TO * 

* ADDRESS IN * 

* LINK REGISTER * 
*************** 



****A4********* 

* * 

* DOSVC * 

* * 
*************** 



*****B4********** 

* SAVE INDEX TO * 

* CHANQ AND * 

* CHANNEL * 

* SCHEDULER * 

* , FLAGS * 
***************** 



*****C4******* 

* TURN OFF * 

* QUEUED ERROR * 

* AND DEVICE * 

* BUSY BITS IN * 
*CHAN SCHD FLG* 
************** 



*****D4*** ******* 

* SET RIK TO * 
♦X'OO' AND STORE* 

* ADDRESS OF * 

* CCW IN CCB * 

* * 
***************** 







**** 






* * 






..* LD * 




! x 


* H3* 
**** 


X 


FTCH3 




****#*Gi *********** 


X 


DOSVC LE 


****G2********* 


**_*_*_*_*_*_*_** 


* SVC 3 * 




* $$ANERRF * 


* SVC 15 * 


* CHART LH * 




*************** 


************* 




X 


*H2 


***** 


BYTE OF THE 


*LD * 


TEB IS TESTED 


* K5* 


FOR THE FIRST 


* * 


WRITE TRY. 







* 1 * 




* * 




**** 




Ix. ......... . 




X 


X 


WAIT ..♦. 


******{=4*********** 


E5 ♦. 




.♦ ♦. 


* SVC 15 * 


.♦ I/O ♦. NO . 


EXCP 


♦. COMPLETE ...... 


* * 


♦ . .♦ 




♦ . .* 


************* 


♦ . .♦ 




♦ YES 


X 
.♦. 


RCHAN X 


F4 ♦. 


*****F5********** 


.* *. 


* RESTORE * 


NO .* CHAN *. 


* INDEX ♦ 


...*. QUEUE .* 


* TO ♦ 


♦.OVERFLOW .♦ 


♦ CHANQ * 


*. .* 


* * 


X *. .* 


***************** 


**** *YES 
1 * '. 






* 




**** .X............ 




ERR X 


RCHSC X 


*****G4********** 


*****G5********** 


* EXECUTE MOVE * 


* RESTORE * 


♦INSTRUCTIONS TO* 


♦ CHANNEL * 


* RESTORE INDEX * 


* SCHEDULER * 


* TO CHANQ AND ♦ 


♦ FLAGS * 


♦CHAN SCHED FLGS* 


* * 


***************** 


***************** 



*J2 
BYTE 3 OF TEB 
IS THE NUMBER 
OF TIMES THE 
WRITE ERROR 
ROUTINE IS 
ENTERED. 



*K2 
BYTE 4 OF TEB 
CONTAINS THE 
WRITE, SKIP, OR 
ERASE GAP CCUNT. 



EREV 

*****H4**** ****** 

* INSERT X'20« * 

* ERROR ON * 

* RECOVERY ♦ 

* MESSAGE ♦ 

* CODE * 
***************** 



RETOFF X 

*****J4******* 

♦ TURN OFF * 

♦ RETRY AND 

♦ IGNORE BITS 

♦ IN ERBLOC 

♦ FLG BYTE * 
************** 

**** 



****K4**** 

♦ SVC 3 ♦ 

♦ $$ANERRM * 

♦ CHART LV * 
*************** 



**** J 5 ********* 

♦ RETURN TO * 

♦ ADDRESS IN ♦ 

♦ LINK REGISTER * 
*************** 
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Chart LF. $$ANERRE - Phase 2 of Tape ERP (Part 1 of 2) 
Refer to Chart 07. 



****A1********* 

* * 

* SSANERRE * 

* * 
*************** 



IJBERE20 

*****R1 ********** 

* SET SYSTEM * 

* MASK IN * 

* PSW 1U tNAULE * 

* INTERRUPTS ON * 

* ALL CHANNELS * 
***************** 



*****Ci********** 
♦LOAD ADDRESSES * 

* OF COMREG IN * 
♦R12. ERBLOC IN * 

* RIO, AND PUB- * 

* TABLE IN R9 * 
***************** 



**** 
* 1 * 



.* OPERATOR * 
♦.INTERVENTION 
*. REQUIRED' .♦ 



* INSERT X'08' * 

* OPTR INTERV * 

* MESSAGE CODE * 

* * 
***************** 



**** 

* * 

* 2 * 

* * 
**** 



**** 

* * 

* 3 * 

* * 
**** 



INITIAL 

SELECTION 

♦ J4 



**** 
YEs! 



*****D1********** 


02 *. 


* CALCULATE * 


.* *. 


* LOGICAL UNIT * 


NO .♦ COMMAND *. 


♦ADDRESS, STORE * 
* IN CCB * 


...♦. REJECT 


*. .* 


* * 


*. .* 


***************** 


X *. .* 




**** *YES 




* * 




* 2 * 




* * 




**** 


X 

*****E1 ********** 


X 


* GET ADDRESS * 


****E2********* 


* OF THE CCW * 


* FETCH 


* CAUSING THE * 


* $$ANERRL 


* INTERRUPT * 


* CHART LL 


* * 


*************** 



* INSERT X«14' * 

* OVERRUN * 

* MESSAGE CODE * 

* * 
***************** 



*****B4********** 

* * 

* SET RETRY * 

* COMPARE VALUE * 

* AT 8 * 

* * 
***************** 



C4 *. 

* IS *. 
COMMAND *. NO 
READ FWD .♦... 
OR A .* 

♦.WRITE.* 



*A5 
IF NOT COMPAT. 
COND. WAS FOUND 
(CHART LG) X'FF« 
IS SET IN THE 
FLAG BYTE. 



* IS * 

COMMAND 
A READ 
COMMAND 



***** 

*LG ♦NOCOMP 

* Bl* 



♦ YES 



*****03********** 

* INSERT X'29« ♦ 

* BKSP INTO * 

* LD POINT * 

* MESSAGE CODE ♦ 

* * 
***************** 

**** 



**** 
REPBCK X 

*****D4*********^ 
♦SET A X'27« IN ♦ 

* THE COMMAND ♦ 

* CODE OF THE ♦ 

* REPCCW FOR * 

* BACKSPACING * 
***************** 



REPFRW 

*****05********** 
♦SET A X«37' IN ♦ 

♦ THE COMMAND ♦ 

♦ CODE OF THE * 

♦ REPCCW ♦ 
♦FORWARD SPACING^ 
***************** 



***************** 



RETOFF X 

*****E3******* 

♦ TURN OFF ♦ 

♦ RETRY AND ♦ 

♦ IGNORE BITS ♦ 
♦IN ERBLOC FLAG+ 

♦ BYTE +A5 ♦ 
************** 



**** 

* * 

* 5 * 



****F3********* 

♦ SVC 3 FETCH ♦ 

♦ $$ANERRM ♦ 

♦ CHART LV ♦ 
*************** 



SVC X 






******E5**** : 


:* 


:**** 


SETSVC 




LG 


*-*,-*-.*-.*_*- 


•*- 


-*-* 


SVC L5 






* EXCP 




* 



************* 



♦ GET POINTER ♦ 

♦ TO TEB ♦ 

♦ TABLE ♦ 

♦ * 
***************** 



*****G2********** 

♦ GET ADDRESS ♦ 
♦OF TEB POINTER ♦ 

♦ FROM PUB TO ♦ 

♦ BE USED AS ♦ 

♦ RETRY CTR. ♦ 
***************** 



.♦ CHANNEL 
DATA 
♦. CHECK 





.♦ OPERATOR ♦. NO 
..X*. INTERVENTION ...... 

♦.REQUIRED .♦ 

♦ . .♦ 

♦ . .♦ X 
*YES **** 
* 

* 1 
* 
**** 




NO 


OPRFL X 

*****H3********** 

* * 

* INSERT X«08' * 

* OPTR INTERV ♦ 



WAS ♦. YES 
COMMAND ...... 

A READ .* 



INITIAL 

SELECTION 

♦ K2 



* MESSAGE CODE 

* * 
***************** 



CHDATCH X 

*****jl********** 

♦ INSERT X»28« ♦ 

♦ DATA CHECK ♦ 

♦ MESSAGE ♦ 

♦ CODE ♦ 

♦ * 
***************** 



*****«!********** 

♦ * 

♦ SET RETRY ♦ 

♦ COMPARE VALUE ♦ 

♦ AT 8 ♦ 

♦ * 
***************** 



* 7 * 

* * 
**** 



NO .* INITIAL ♦. 
...♦.SELECTION FOR.* 
♦.THIS READ.* 
*. +K2 .♦ 



* 4 ♦ 

* * 
**** 



*****J2********** 

* INSERT X«09« * 

* BUSOUT * 

* MESSAGE ♦ 

* CODE ♦ 

* * 
***************** 



*K2 
THE CSW STATUS BYTES 
ARE COMPARED TO A 
X'2C« FOR CONTROL 
UNIT END, CHANNEL 
END, OR DEVICE END. 



J3 *. 


*****J4******* 


J5 ♦. 


.* *. 


* TURN ON * 


.* ♦. 


.♦ INITIAL ♦. YES 


* BIT IN ♦ 


YES .♦ WAS ♦. 


. SELECTION .♦ 


..X* ERBLOC * 


...*. RETRY 


♦. *K2 .♦ 


* FLAG BYTE ♦ 


♦.EXCEEDED .♦ 


♦ . .♦ 


* * 


♦ . .♦ 


♦ . .* 


************** 


X *. .♦ 


♦ NO 


• 


**** *N0 

* * 

* 4 ♦ 




X 


* * 




**** 


**** 




* * 




X '. 


* 5 ♦ 




X 


* * 


X 


****K3********* 


**** 


****K5********* 


SVC 3 * 




♦ SVC 3 


EXIGN * 




♦FETCH $$ANERRM 


CHART DD * 




♦ CHART LV 


*************** 




*************** 
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Chart LG. $$ANERRE - Phase 2 of Tape ERP (Part 2 of 2) 
Refer to Chart 07. 



♦LF-B3 
LF-C3 

***** 



* NOT 

COMPATIBLE 
♦.CONDITION. 



1 



**** 
UNKN X 

*****d ********** 

* INSERT X«19' * 

* UNKNOWN * 

* ERROR * 

* MESSAGE * 

* CODE * 
***************** 



*****B2******* 

* INSERT X'FF'* 

* IN INSTR AT 
X* 'RETOFF' TO 

* AVOID 

* CANCELING * 
************** 



*****C2******* 

* INSERT X'32«* 

* IN INSTR AT 

* 'UC FOR 

* NON-COMPAT 

* CONDITION * 
************** 



Dl ♦ . 






*****02******* 


.♦ *. 






* TURN ON * 


.♦ PROGRAM *. 




CES 


* OPTR INTERV * 


*. CHECK OR PROT. 


* 




* BIT IN ERBLOC * 


*. CHECK .* 






* FLAG BYTE * 


*. .* 






* * 


*. .* 




X 


************** 


♦ NO 




***** 

*LF * 

* E3* 

* * 

* 




'. 




RETOFF 


X 
*****E2********** 


X 






****£!********< 






♦SETSVC LG* 


* SVC 3 


* 




*_*-*_*_*_*_*_*_* 


♦FETCH $$ANERRA 


* 




* REWIND AND * 


* CHART LA 


* 




* UNLOAD * 


*************** 






* * 



***************** 

X 

**** 

* * 

* 1 * 

* * 
**** 



* ¥ **/\4********* 

* * 

* SETSVC * 
*************** 



SETSVC 

*****B4********** 

* SAVE CHANQ * 

* INDEX AND .* 

* CLEAR THE * 

* INDEX WITH * 

* X«FF« * 
***************** 



*****C4********** 

* SAVE CHAN * 

* SCHEDULER * 

* FLAGS AND * 
♦INSERT A X'OO' * 

* INTO RIK * 
***************** 



*****D4******* 

* TURN OFF * 

* QUEUED ERR * 

* AND DEVICE BUSY* 

* BITS IN CHAN * 

* SCHED FLAG * 
************** 



*****£ 4** ******** 

* * 

* STORE ADDR * 

* OF CCW * 

* IN CCB * 

* * 
***************** 



******F4*********** 



************* 



**** 

* * 

* 2 * 

* * 
**** 



*****G3********** 

* EXECUTE MOVE * 
*INST TO RESTORE* 
*INDEX TO CHANQ *X. 
*AND CHAN SCHED * 

* FLAG * 
***************** 



YES .* ERROR *. 
....*. ON 

♦.RECOVERY .* 



*J1 
IF NOT COMP. COND. 
WAS FOUND, X'32» 
WILL BE INSERTED. 







X 






.WAIT 




.*. 

H4 *. 

.* *, 






. NO 


* 


I/O 


* 




. . . .* 




COMPLETED 




.* 



*****J2 ********** 

* INSERT X'20« * 

* ERR-ON-RECVY * 

* MESSAGE CODE * 

* *J1 * 

* * 
***************** 



***** 
*LF * 
* E3* 



#***J 3 ********* 

* RETURN TO * 
♦ADDRESS IN LINK* 

* REGISTER * 
*************** 



RCHAN X 

*****J4********** 

* RESTORE * 

* INDEX TO * 

* CHANQ * 

* POINTER * 

* * 
***************** 



*****K4********** 
*. RESTORE * 

* CHANNEL * 

* SCHEDULER ♦ 

* FLAG * 

* * 
***************** 
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Chart LH. $$ANERRF - Phase 3 of Tape ERP (Part 1 of 3) 
Refer to Chart 07, 



****A1********* 

* * 

* $$ANERRF * 

* * 
*************** 



IJBERF24 

*****B1********** 
*, SET SYSTEM "* 

* "MASK" IN t* 

* PSW TO ENABLE * 

* INTERRUPTS ON * 

* ALL CHANNELS * 
***************** 



*****C1 ********** 
*L0AD ADDRESSES * 
*0F COMREG IN R9* 
*ERBLOC IN RIO, * 

* AND PUB TABLE * 

* IN R12 * 
***************** 



*****D1********** 

* CALCULATE * 

* LOGICAL UNIT * 
♦ADDRESS, STORE * 

* IN CCB * 



*****£]_*#******** 

* * 

* GET ADDRESS OF * 

* THE CCW CAUSING* 

* THE INTERRUPT * 

* * 
***************** 



NOTE-^ 
THIS PHASE IS ENTERED WHEN 
TAPE CLEANING IS REQUIRED 
OR WHEN DATA CHECK HAS 
OCCURRED ON A WRITE, WTM, 
OR ERG. 



**** 

* * 

* 1 * 

* * 
**** 



.* WERE *. NO 
TEBS .*... 
♦.SPECIFIED.* 



TEBVER 

*****D2 ********** 
*ZERO TEBREG 13 * 

* AND LOAD INTO * 

* R13 THE TEB * 

* DISPLACEMENT * 

* AND LENGTH * 
***************** 



*****E2********** 

* GET THE RETRY * 

* COUNTER ADDR * 

* FROM THE TEB * 

* SWITCH IN THE * 

* COMREG (70) * 
***************** 



*****D3********** 

* LOAD THE * 

* RETRY COUNTER * 

* ADDRESS INTO * 

* THE TEBREG 13 * 

* * 
***************** 



*****C4********** 

* ZERO WRKREG, * 

* GET INDEX TO * 

* CHANQ FROM * 

* UNIT ADDRESS * 

* BYTE IN PUB * 
***************** 



*****D4********** 

* MULTIPLY PNTR * 

* BY 4 AND ADD * 

* STARTING ADDR * 

* OF CHANQ TO * 

* GET CCB ADDR * 
***************** 



*****E4********** 

* TURN ON UNIT * 

* EXCEPTION BIT * 

* IN BYTE 4 OF * 

* CCB * 

* * 
***************** 



.*. 






CHECK .*. 






WRREP X 


Fl *. 






F2 *. 




*****F4********** 


* 






.* IS *. 




*MOVE BACKSPACE * 


WRITE 


* 


YES 


.* RETRY *. YES 




* COMMAND CODE * 


COMMAND 


* 


*... 


*. EXCEEDED .*.... 






* OF X'27' INTO * 


CODE 


*. .* 






* REPCCW FOR * 








*. .* 






* SVC CALL * 


"*. .** 






*. .* 






***************** 


*NO 






*N0 
**** 
* * 
*LJ *... 


**** 
* * 
*LK *.X 












* D3* 


* J2* 






X 






**** 


**** 






.*. 






RETRY 


RETOFF X 


X 


Gl *. 






X 


*****G3******* 


******G4*********** 


* 






****G2********* 


* TURN OFF * 


DOSVC LK 


WTM 


'* 


YES 


* SVC 3 * 


* RETRY AND * 


*_*_*_*_*_*_*_*_* 


COMMAND 




*..X 


* EXRTY * 


* IGNORE BIT * 




CODE 


* 




* CHART DD * 


* IN ERBLOC * 


* SVC 15 * 








*************** 


* FLAG BYTE * 




**. .*" 




J 


< 


********* 


****** 


************* 



**** 

* * 

* 3 * 

* * 
**** 



******B5*********** 

DOSVC LK 

*_*_*_*_*_*.*_*_* 

* SVC 15 * 
************* 



*****C5********** 

* * 

* REMOVE * 

* CHAIN BITS * 

* FROM CCW * 

* * 
***************** 



*****D5********** 

* GET ADDRESS * 

* OF COMM * 

* REGION * 

* * 
***************** 



.* READ * 
.* BACKWARD 
COMMAND 
*. CODE 



X 

***** 
*LJ * 
* B5* 



****H3********* 

* SVC 3 * 
♦FETCH $$ANERRM * 

* CHART LV * 
*************** 



*****H4********** 

* MOVE AN ERASE * 

* GAP COMMAND * 

* CODE (X'17M * 

* INTO REPCCW * 

* FOR SVC CALL * 
***************** 



.*. 
Jl *. 

.* READ * 
FORWARD 
COMMAND 

. CODE 



***** 
*LJ * 
* B4* 



*****J4********** 

* CHAIN ERG * 

* CCW TO * 

* NOP CCW * 

* * 
***************** 



Charts 



157 



Chart LJ. $$ANERRF - Phase 3 of Tape ERP (Part 2 of 3) 
Refer to Chart 07. 



***** 

*LK * 
* E4* 



Bl *. 

.* WAS ♦ . 

.♦ I/O *. 

. DOING TAPE . 

♦.CLEANING .* 



*****Cl******* 

* MOVE X«00« * 

* INTO TAPE * 
♦CLEANING SWITCH* 

* TO TURN ♦ 

* IT OFF ♦ 
************** 



*****Dl********** 

♦ PUT SENSE ♦ 

♦ COMMAND CODE ♦ 

♦ X'CK" AND ♦ 

♦ SENSE AREA * 

♦ ADDR IN CCW ♦ 
***************** 



*****E1 ********** 

♦DOSVC LK* 
*_*_*_*_*_*..*_*,.* 

♦ SVC 15 ♦ 

♦ EXECUTE ♦ 

♦ SENSE I/O ♦ 
***************** 







**** 






* * 






* 1 * 






* * 






**** 


.♦. 




X 


B2 ♦ . 




*****B3********** 


.♦ *. 




♦ LOAD ADDRESS ♦ 


.♦ WAS ♦. NO 


♦ OF SENSE ♦ 


. I/O DOING .♦ 




♦ BYTE INTO ♦ 


♦. ERG .♦ 




♦ REPCCW ♦ 


♦ . .♦ 




* ' * 


♦ . .♦ 


X 


***************** 


♦YES 


***** 

♦ LK ♦ 

* J2* 
* * 

* 






EREV 


X 
*****C3 ********** 


X 




****C2^**^^* 




* PUT ADDRESS * 


SVC 3 ♦ 




♦ OF CCW INTO ♦ 


SANERRL ♦ 




♦ ADDRESS AREA ♦ 


CHART LL ♦ 




* OF CCB * 


*************** 




* * 



***************** 



*****D3********** 
♦DOSVC LK* 

*_*_*_*_*_*_!*_*-* 

♦ SVC 15 ♦ 

♦ DO I/O ♦ 

♦ * 
***************** 



***** 
*LH ♦ 
* Jl* 



REDFOR X 

*****B4********** 

♦ BSR COUNT ♦ 

♦ OF 5 FOR ♦ 

♦ READ ♦ 

♦ FORWARD ♦ 

♦ * 
***************** 



*****C4********** 

♦ FSR COUNT ♦ 

♦ OF 4 FOR ♦ 

♦ READ * 

♦ FORWARD ♦ 

♦ * 
***************** 



***** 
♦LH ♦ 
* G2* 



TSTCLN 

*****D4********** 

♦ SET UP BACK ♦ 

♦ SPACE COMMAND ♦ 

♦ CODE (X'27«) ♦ 

♦ IN CCW ♦ 

♦ * 
***************** 



*****E4^+^+^+ 

♦ MOVE X'FF* * 

♦ INTO CLUE ♦ 

♦ AREA TO TURN ♦ 

♦ ON TAPE CLEANS 

♦ SWITCH * 
************** 



♦YES ***** 
*LK ♦ 
* J2 + 



*****Gl********** 

♦ SUB R13 FROM ♦ 

♦ R12 TO GET ♦ 

♦ THE NUMBER OF ♦ 
♦FORWARD SPACES ♦ 

♦ TO SKIP *G2 ♦ 
***************** 



DIFF 

EQUALS 

ZERO 



♦G2 
THE NUMBER OF 
FORWARD SKIPS 
TO BE DONE IS 
EQUAL TO THE 
NUMBER OF SKIPS 
ISSUED MINUS 
THE NUMBER OF 
BACKWARD SKIPS. 
IF THE RESULT 
IS NOT ZERO THE 
BRANCH TO THE 
FORWARD SKIP 
ROUTINE IS 
TAKEN. 



BTOTCL 

*****F4********** 

♦DOSVC LK^ 

*_*_*„*_*_*_*_*_* 

♦ SVC 15 ♦ 

♦ EXECUTE ♦ 

♦ CLEANING OP ♦ 
***************** 



G4 ♦. 
.♦ BKSP ♦. 
NO .♦ THE REQ'D ♦. 
...♦. NO. OF 

♦. TIMES .♦ 



READBK X 

*****B5********** 

♦ LOAD BSR ♦ 

♦ COUNT OF 4 ♦ 

♦ FOR READ ♦ 

♦ BACKWARD * 

♦ * 
***************** 



*****C5********** 

♦ LOAD FSR * 

♦ COUNT OF 5 * 

♦ FOR READ * 

♦ BACKWARD ♦ 

♦ * 
***************** 



*****F5******* 

* * 

* TURN OFF 

* TAPE CLEAN 

* INDICATOR 

* * 
************** 



G5 ♦. 

.♦ FSR ♦. 

NO .♦ THE 

...♦.REQUIRED NO. 

♦.OF TIMES . 

♦ . .♦ 

*. .♦ 



.♦ 
. .♦ 
♦ YES 



**** 

* * 

* 3 ♦ 

* * 
**** 



*****jl********** 

♦ INSERT TIE ♦ 

♦ COMMAND CODE ♦ 

♦ (X'1B«) INTO ♦ 

♦ CCW ♦ 

♦ * 
***************** 



**** 

* * 

* 4 * 

* * 
**** 



BTOFWS 

*****H4********** 

♦ SET FORWARD * 

♦ SPACE COMMAND ♦ 

♦ CODE {X«37« ) ♦ 

♦ IN CCW ♦ 

♦ * 
***************** 



*****J4********** 

♦DOSVC LK* 
*_*_*_*_*_*_*_*_* 

♦ FORWARD ♦ 

♦ SPACE ♦ 



* 3 * 

* * 
**** 



******* 



********* 
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Chart LK. $$ANERRF - Phase 3 of Tape ERP (Part 3 of 3) 
Refer to Chart 07. 



****A2********* 

* * 

* DOSVC * 

* * 
*************** 



DOSVC X 

*****B2* ********* 

* MOVE PNTR TO * 
*CHANQ INTO SAVE* 

* STATEMENT AND * 
*PUT X'FF' INTO * 

* PNTR IN PUB * 
***************** 



**** 

* * 

* 1 # 



*****C2********** 

* MOVE CHANNEL * 

* SCHED FLAGS * 

* TO RESTORE * 

* INSTRUCTION * 

* FOR SAVING * 
***************** 



RCHAN X 

***#*C4* ********* 

* MOVE A ZERO * 

* INTO THE * 

* CHANNEL QUEUE * 
*AREA TO RESTORE* 

* THE CHANQ * 

ft************:**** 



*****D2******* 

* TURN OFF * 

* QUEUE ERR 

* AND DEV BUSY 

* INDICATORS 

* IN PUB FLAG* 
************** 



RSCH X 

***** 04* ********* 

* MOVE A ZERO * 

* INTO THE CHAN * 

* SCHED FLAG * 
*AREA TO RESTORE* 

* THE FLAGS * 
***************** 



*****g 2 ********** 

* SET RIK TO * 
*X'00' f LOAD R15* 

* WITH ADDR OF * 
*REPCCB, AND PUT* 

* A 1 INTO RO * 
***************** 



.* UNIT 
CHECK 
♦.OCCURRED 



******P2**********# 



****P4********* 

* * 

* RETURN * 

* * 
*************** 



*LJ-B2 
LJ-F1 

***** 



*****H2********** 

* EXECUTE MOVE * 

* INSTRUCTIONS * 

* TO RESTORE * 
*CHANQ AND CHAN * 

* SCHED FLAGS * 
***************** 



EREV X 

*****J2********* 

* INSERT X»20» 

* ERR ON 

* RECOVERY 

* MESSAGE CODE 
* 
**************** 



**** 

* * 

* 1 * 

* * 
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Chart LL. $$ANERRL - Phase 4 of Tape ERP 
Refer to Chart 07. 



****A1 ********* 

* * 

* $$ANERRL * 

* * 



IJBERL20 

*****Bl********** 

* SSM TO ENABLE * 
*ALL INTERRUPTS,* 
*L0AD ADDRESSES * 

* OF COMREG, * 
*ERBL0C, PUBADD * 
***************** 



*****d ********** 

* DETERMINE * 

* CHANNEL AND * 

* UNIT CAUSING * 

* INTERRUPT * 

* * 
***************** 



**** 


**** 


* * 


* * 


* 1 * 


* 6 * 


* * 


* * 


**** 

* 


**** 




X 


EXITA X 


.*. 


*****A2******* 


A3 *. 


* TURN OFF * 


.* *. 


* RETRY BIT AND* 


.* UNIT *. 


*TURN ON IGNORE * 


*. CHECK 


*BITS IN ERBLOC* 


*. .* 


* FLAG BYTE * 


*. .* 


************** 


*. .* 




*NO 


**** 






* * 






* 2 *.. 






* * 






**** 






MSGWTR 






X 


X 


****B2********* 


****B3********* 


* SVC 3 * 


* SVC 3 


*FETCH $$ANERRM * 


* EXRTY 


* CHART LV * 


* CHART DD 


*************** 


*************** 



.* LOAD * 
POINT 
AND FILE 
. PROTECT 



FILPR 

*****C3********** 
*D0SVC LL* 



DTCK 

*****E1 ********** 

* INSERT X»U« * 

* DATA CHECK * 

* MESSAGE * 

* CODE * 



**** 



************* 



WRITE 

COMMAND 

*F3 



*****D2 ********** 

* * 

* INSERT X'18« * 
♦COMMAND REJECT * 

* MSG CODE * 

* * 
***************** 



* 5 



**** 
RETOFF X 

*****E2******* 

* TURN OFF * 

* RETRY AND 

* IGNORE BITS 

* IN ERBLOC 

* FLG BYTE * 
************** 



***************** 



*****D3********** 

* INSERT X'17" * 

* FILE PROTECT * 

* MESSAGE CODE * 

* * 
***************** 



*****E3******* 

* TURN ON * 

* OPERATOR * 

* INTERVENTION * 

* BIT IN ERBLOC* 

* FLAG BYTE * 
************** 



****F2********* 

* SVC 3 * 
*FETCH $$ANERRM * 

* CHART LV * 
*************** 



*****Gl ********** 

* * 

* GET CCB ADDR * 

* FROM CHANNEL * 

* QUEUE * 

* * 
***************** 



♦REPLACE REPCCW * 
♦ADDRESS IN CCB * 

* WITH SNSCCW * 

* * 
***************** 



*F3 
BRANCH TO 
ERGERR ON YES 
LEG IF THIS 
TRANSIENT WAS 
CALLED BY 
$$ANERRF. 



*****G3 ********** 

* EXECUTE MOVE * 
♦INSTRUCTIONS TO* 

* RESTORE INDEX *X 

* TO CHANQ AND * 
*CHAN SCHED FLGS* 
***************** 



.* USER ♦. 


NO 




*_*_*_*_*_*_*_*_* 


♦. ACCEPT DATA .* 






* * 


*. CHECK .* 






* GET SENSE * 


*. .* 






* * 


*. .* 


X 




***************** 


*YES 


**** 






* 


* 






* 1 


* 






* 


* 






*** 




X 


X 






.*. 


*****jl******* 






J2 *. 


* TURN ON * 






.* *. 


* BIT 3 IN BYTE* 






.* UNIT *. 


* 3 OF CCB IN * 






*. CHECK .* 


* READ DATA * 






*. .* 


* CHECK * 






*. .* 


************** 






*. .* 



* 4 * . . 



**** 
EREV X 

*****H3********** 

* INSERT X'20« * 

* ERROR ON ♦ 

* RECOVERY ♦ 

* MSG CODE * 

* * 
***************** 



*****«!******* 

* TURN ON * 

* PASSBACK * 

* BIT IN ERBLOC 

* FLAG BYTE * 

* * 
************** 



*YES **** 

* * 

* 4 * 
X * * 

**** **** 

* * 

* 3 * 



****A4* ******** 

* * 

* DOSVC * 

* * 
*************** 



*****B4********** 

* * 

* STORE ADDR * 

* OF REP * 

* CCW IN CCB * 

* * 
***************** 



DOSVCA 

*****C4********** 

* SAVE INDEX * 

* TO CHANQ * 

* AND CHANNEL * 

* SCHEDULER * 

* FLAGS * 
***************** 



*****D4* ****** 

* TURN OFF * 

* QUEUED ERROR 

* AND DEVICE 

* BUSY 

* SWITCHES * 
************** 



*****£ 4* ********* 

* SET RIK TO * 

* X'OC" AND * 

* STORE ADDR * 

* OF CCB IN * 

* R15 * 
***************** 



****** P4* ********** 



.TEBSUP X 

*****B5********** 

* GET TEB * 

* POINTER AND * 

* CALC. ADDR ♦ 

* OF TEB * 

* * 
***************** 



*****C5********** 

* * 

* GET RETRY * 

* COUNTER * 

* FROM PUB * 

* * 
***************** 



*****£ 5* ********* 

* * 

* ADD 1 * 

* TO RETRY * 

* COUNTER * 

* * 
***************** 



.* WERE *. 

TEBS 

♦.SPECIFIED.* 



.♦ CHANNEL 
QUEUE 
♦.OVERFLOW 



RCHAN 

*****H4***« ****** 

* RESTORE INDEX * 

* TO CHANQ AND * 

* RESTORE CHAN * 

* SCHED. FLAGS ♦ 

* * 
***************** 



****J4******** 

* RETURN TO 

* ADDRESS IN 

* LINK REG. 



♦ ERG ♦ 

RETRY 

COUNTER 

FULL 



*****H5********** 

* ADD 1 TO ERG * 

* RETRY * 

* COUNTER * 

* * 
***************** 



RELO X 

*****J5********** 



************** 



* ***** K5********** 
*DOSVCA LL* 
*_*_*_*_* _*^*_*_* 

* EXECUTE * 

* ERG * 



********** 



**** 
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Chart LM. $$ANERRG - Phase 1 of Data Cell ERP (Part 1 of 3) 
Refer to Chart 07, 



****A1********* 

* * 

* $$ANERRG * 

* * 
*************** 



IJBERG20 

*****Bl********** 

* SET SYSTEM * 
♦MASK TO ENABLE * 

* INTERRUPTS ON * 

* ALL CHANNELS * 

* * 
***************** 



*****C1 ********** 
*LQAD ADDRESSES * 

* OF COMREG, * 

* ERBLOC, AND * 

* PUB ENTRY * 

* * 
***************** 



*****D1********** 

* * 

* ADD 1 * 

* TO RETRY * 

* COUNTER * 

* * 
***************** 



CHANNEL 
DATA 
CHECK 



*****B3********** 

* INSERT X'10« * 

* EQUIP CHECK * 

* MESSAGE * 

* CODE * 

* * 
***************** 



*****B4* ********* 

* INSERT X«28« * 

* CHANNEL DATA * 

* CHECK * 

* MESSAGE CODE * 

* * 
***************** 



**** 

* * 

* 2 * 

* * 

**** 



*****F1********** 

* CALCULATE * 

* AND SAVE CCB * 

* ADDR-SAVE * 

* CSW STATUS * 

* BYTES * 
***************** 



*****Gl********** 

* GET SEEK ADDR * 

* FROM 1ST CCW * 

* AND SAVE IN * 

* ERBLOC * 

* * 
***************** 



*****H1 ********** 

* SAVE USER'S * 

* DATA CELL * 

* ADDRESS * 

* * 
***************** 



NO 


* 


SEEK 


. . .* 


* 


CHECK 
*. 


X 




*. .* 


***** 




♦YES 


*LN * 






* A3* 






* * 






* 






FOl 




X 
.*. 
F3 *. 
* 


YES 


* 


COMMAND 






REJECT 



*****G2********** 

* INSERT X«26« * 

* INVALID SEEK * 

* MESSAGE * 

* CODE * 

* * 
***************** 



*****H2******* 

* TURN OFF * 

* RETRY AND * 
♦IGNORE BITS IN 

* ERBLOC FLAG * 

* BYTE ♦ 
************** 



MISSING ♦. 
ADDRESS 
MARKER .♦ 



*****H3********** 

* INSERT X'22* ♦ 

♦ BALLAST CELL ♦ 

♦ ACCESSED ♦ 

* MESSAGE CODE ♦ 
***************** 



****05*#******* 

* SVC 3 * 

* EXRTY * 

* CHART DD ♦ 
*************** 



****G4********* 

♦ SVC 3 * 
.X*FETCH $$ANERRJ ♦ 

* CHART LS * 
*************** 



*LN-D4 
LP-E5 
***** 



*****J3******* 

* TURN ON * 

* INTERVENTION 

* REQ'D BIT IN 

* ERBLOC FLG 

* BYTE * 
************** 



****K3********* 

* SVC 3 * 
*FETCH $$ANERRM * 

* CHART LV * 
*************** 
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Chart LN. $$ANERRG - Phase 1 of Data Cell ERP (Part 2 of 3) 
Refer to Chart 07. 



***** 

*LM * 
* E3* 



*****A3********** 

* INSERT X«08' * 

* INTERVENTION * 

* REQ'D MESSAGE * 

* CODE * 

* * 
***************** 



.* * 

♦.INTERVENTION 
♦.REQUIRED .* 



***** 

♦ LP * 

* D2* 



*****C3********** 

* INSERT X»09' * 

* BUSOUT * 

* MESSAGE * 

* CODE * 

* * 
***************** 



*. 


****D5********* 


ONE *. NO 


* SVC 3 


RETRY .*.... 


* EXIGN 


.* 


* CHART DD 


.* 


*************** 


*. .♦ X 




*YES **** 





E2 *. 
.* IS *. 
YES .*RETRY COUNT*. 
...*. A MULTIPLE . 
*. OF 16 .♦ 
*. 



**** 

* * 

* 1 * 

* * 
**** 



*. 



**** 

* * 

* 2 * 

* * 
**** 



X 
***** 

*LM * 
* D5* 



*****E4******* 

* TURN ON * 

* INTERVENTION 

* REQ'D BIT IN 

* ERBLOC FLG 

* BYTE * 
************** 



F3 ♦ . 

* * 

OVERRUN 



MISSING 

ADDRESS 
. MARKER . 
*. .* 



***** 
*LP * 
* G3* 



***** 
*LM * 
* K3* 



***** 
*LP * 
* A3* 



.*. 

J3 *. 

.* IS *. 

* RETRY * 

COUNT 

*. ODD .* 

♦ . .* 



****K3********* 

* SVC 3 * 
♦FETCH $$ANERRI * 

* CHART LR * 
*************** 



*****H4********** 

* INSERT X'14 1 * 

* OVERRUN * 

* MESSAGE * 

* CODE * 

* * 
***************** 



.♦RETRY COUNT*. 
. MULTIPLE OF . 
♦. 16 .♦ 



**** 

* * 

* 2 ♦ 

* * 
**** 



**** 

* * 

* 1 * 

* * 
**** 
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Chart LP. $$ANERRG - Phase 1 of Data Cell ERP 
Refer to Chart 07. 



(Part 3 of 3) 



***** 

*LN * 
* G3* 



*****A3********** 

* INSERT X'18' * 

* COMMAND * 

* REJECT * 

* MESSAGE * 

* CODE * 
***************** 



**** 

* * 

* 1 * 

* * 
**** 



TRACK 

CONDITION 
. CHECK . 



*****C5******* 

* TURN OFF * 

* RETRY AND 

* IGNORE BITS 

* IN ERBLOC 

* FLAG BYTE * 
************** 



*****D2 ********** 

* POST TRACK * 

* OVERRUN * 

* BIT IN CCB *X 

* BYTE 3, BIT 1 * 

* * 
***************** 



****04********* 

* SVC 3 * 
*FETCH SSANERRH * 

* CHART LQ * 
*************** 



X 

***** 

*LN * 
* D5* 



*****E5********** 

* INSERT X'17« * 

* FILE PROTECT * 

* MESSAGE * 

* CODE * 

* * 
***************** 



N01 
YES 



*****P4********** 

* POST END OF * 

* CYLINDER IN * 

* CCB BYTE 3, * 

* BIT 2 * 

* * 
***************** 



*****G2********** 

* INSERT X'17' * 

* FILE PROTECT * 

* MESSAGE * 

* CODE * 

* * 
***************** 



***** 
*LM * 
* K3* 



CHANNEL *. YES 
CHAINING .*.... 
. CHECK .* 



*****H2******* 

* TURN OFF * 

* RETRY AND 

* IGNORE BITS 

* IN ERBLOC 

* FLAG BYTE * 
************** 



*****H3********** 

* INSERT X«19« * 

* UNDET. ERROR * 

* MESSAGE * 

* CODE * 

* * 
***************** 



.X. 
X 

**** 
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Chart LQ. $$ANERRH - Phase 2 of Data Cell ERP 
Refer to Chart 07, 



**** 

* * 

* i * 



**** 
* * 

* 3 * 



****A1 ********* 

* $$ANERRH * 

* * 

*************** 



* SSM TO ENABLE * 

* INTERRUPTS ON * 

* ALL CHANNELS * 

* * 
***************** 



*****d ********** 

* LOAD * 

* ADDRESSES * 

* OF COMREG, * 

* ERBLOC, AND * 

* USER CCB *D2 * 
***************** 



*****D1 ********** 

* RELOCATE ADDR * 

* CONSTANTS IN * 
*CCW'S, MOVE 1ST* 

* CCW TO CCB * 



******** 



******** 



RDRCD 

*****£!********** 

* SAVE CHAN. * 

* QUEUE POINTER * 

* AND CHAN * 

* SCHED FLAG * 

* * 
***************** 



*****F1********** 

* CALC. LUBID, * 

* MOVE LUBID * 

* TO CCB * 

* AND SET * 

* RIK TO * 
***************** 



******Gi *********** 

SVC 15 

* READ * 

HOME 

* ADDR * 

************* 



.UNRECOVERABLE. 

*. I/O .* 

*. ERROR.* 



* 2 *. . 



**** 
MSGWTR X 

*****B 2 ********** 

* PREPARE X'20' * 

* ERROR ON * 

* RECOVERY * 

* MESSAGE * 

* CODE - * 
***************** 



****C2 ********* 

* SVC 3 * 
*FETCH $$ANERRM * 

* CHART LV * 
*************** 



*D2 
THIS CCB WAS 
SAVED IN 
PHASE 1 
($$ANERRG). 



*****B4**** ****** 

* MOVE CHAN + * 
*UNIT TO IOOPSW * 

* AND GET *X 

* STORAGE * 

* PROTECT KEY * 
***************** 



***** /\ 5 ********** 

* LOAD ADDRESS * 

* OF CHK. CSW * 

* ROUTINE * 

* (EXWHY) * 

* * 
***************** 



YES .* SYSTEM *. 

....*. HAVE STORAGE . 

*. PROTECT .* 



C3 * 
HEAD 



**C5*#***>j: 

SVC 3 

EXWHY 
CHART DD 



*****D3 ********** 

* ADD 1 * 

* TO HEAD * 

* NUMBER * 

* * 
************ j(**** 



*****D4******** 

* POST END 

* OF CYLINDER 

* BIT IN CCB 

* BYTE 3, BIT 2 



**** 



************ 



IOERR 

*****j 2 ********** 

* RESTORE CHANQ * 

* POINTER * 

* RESTORE CHAN * 

* SCHEDULE FLAG * 

* * 
***************** 



E3********** 


X 




****E4** ****** 


COMPUTE * 


* SVC 3 


SEEK * 


* EXIGN 


ADDRESS * 


* CHAR DD 



********** 



-* FILE *. YES 
*PROTECT OPTION.*... 
*. IN USE .* 



*****G3******* 

* * 

* SET FILE 

* MASK COMMAND 

* TO NOP 

* * 
************** 



*****H3 ********** 

* MOVE SEEK CCW * 

* TC CCB AND * 

* SSM TO * 

* DISABLE * 

* INTERRUPTS * 
***************** 



****#J3********** 

* GET CHANNEL * 

* AND UNIT OF * 

* ERRONEOUS * 

* DEVICE * 

* * 
***************** 



RSTQPT 

****** l********** 

* RESTORE CHANQ * 

* POINTER, * 

* RESTORE CHAN * 

* SCHEDULE FLAG * 

* * 
***************** 



**** 
* 
* 3 



**** 

* * 

* 1 * 
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Chart LR. $$ANERRI - Phase 3 of Data Cell ERP 
Refer to Chart 07. 



* i * 

* * 
*#** 



*##*A1********* 

* * 

* $$ANERRI * 

* * 
*************** 



****A4********* 

* IORTN * 

* * 
*************** 



****A5********* 

* * 

* IORTN+6 * 

* * 
*************** 



IJBERI20 X 

*****B1********** 

* SSM TO ENABLE * 

* INTERRUPTS * 

* ON ALL * 

* CHANNELS * 

* * 



*****B3********** 

* SET UP SEEK * 

* ADDRESS IN * 

* 1ST SEEK CCW * 

* AND NO-OP 2ND * 

* SEEK CCW * 
***************** 



*****B4* ********* 

* * 

* MOVE KEY * 

* FROM CSW * 

* TO RIK * 

* * 
***************** 



*****d ********** 

* * 

* LOAD ADDRESSES * 

* OF COMREG * 

* AND ERBLOC * 

* * 
***************** 



YES .* STRIP 
....*. NUMBER 
*. 00 



IORTN+6 X 

*****C4********** 

* SAVE CHANQ * 

* POINTER AND * 
*CHAN. SCHEDULER* 

* FLAGS * 

* * 
***************** 



*****Di ********** 

* RELOCATE * 

* CONSTANTS IN * 

* CCWS AND SET * 

* RIK TO * 

* * 
***************** 



* ADD 1 * 

* TO STRIP * 

* NUMBER * 

* * 
***************** 



*****D3********** 

* * 

* SUBTRACT 1 * 

* FROM STRIP * 

* NUMBER * 

* * 
***************** 



*****D4********** 

* CALCULATE * 

* LUBID AND * 

* STORE IN * 

* CCB * 

* * 
***************** 



******£ i *********** 

IORTN+6 LR 

*-*-*_*_*_*_*_*-* 

READ 

* HOME * 

ADDR 

************* 



*****E3********** 

* INSERT NEW * 

* STRIP NO. * 

* IN SEEK ADDR * 

* IN CCW * 

* * 
***************** 



******E4*********** 

SVC 15 

* EXECUTE * 

CHANNEL 

* PROGRAM * 

************* 



E050 X 

*****P1********** 

* MOVE * 

* HOME ADDRESS * 

* TO ERBLOC * 

* SEEK * 

* ADDRESS * 
***************** 



******F3*********** 

IORTN LR 

*_*_*_*_*_*_*_*_* 

SEEK 

* STRIP * 

************* 



.* CHANNEL 
*. QUEUE 
*. FULL 



*N0 

!x.. 



****G3 ********* 

* SVC 3 * 

* EXRTY * 

* CHART DD * 
*************** 



IOERR 

*****G5********** 

* RESTORE CHANQ * 

* POINTER AND * 

* CHAN SCHEDULER * 

* FLAGS * 

* * 
***************** 



*****H1********** 

* INITIALIZE * 

* INTERNAL * 

* RETRY * 

* COUNTER * 

* WITH A 9 * 
***************** 

**** I 

* * 

* 2 ♦ . .. 

* * 
**** 

E051 X 

*****jl********** 

* SET UP * 
*SEEK ADDRESSES * 

* 1 AND 2 * 

* IN SEEK CCW'S * 

* * 
***************** 



****H2***#***#* 

* SVC 3 * 
♦FETCH $$ANERRK * 

* CHART LU * 
*************** 



B050 

*****J2********** 
* SET UP * 
CCW IN CCB * 
FOR NEXT * 
SEEK * 



.X* 



***************** 



* RESTORE * 

* CHANQ * 

* POINTER * 

* * 
***************** 



RSTFLG X 

***** j 4* ********* 

* RESTORE * 

* CHANNEL * 

* SCHEDULER * 

* FLAGS * 

* * 
***************** 



MSGWTR 

***** j 5 ********** 

* INSERT X'20' * 

* ERROR ON * 

* RECOVERY * 

* MESSAGE * 

* CODE * 
***************** 



.* 8TH *. NO 
. INTERNAL .♦... 
♦ . RETRY .♦ 



******K2*********** 

IORTN LR 

*_*_*_*_*_*_*_*_* 

SEEK TO 1ST 

* AND LAST * 

TRKS OF STRIP 

************* 



****K3********* 

* * 

* RETURN * 

* * 
*************** 



****K5********* 

* SVC 3 * 
♦FETCH $$ANERRM * 

* CHART LV * 
*************** 



**** 

* * 

* 1 * 



Charts 



165 



Chart LS. $$ANERRJ - Phase 4 of Data Cell ERP (Part 1 of 2) 
Refer to Chart 07. 



****Ai********* 

* * 

* $$ANERRJ * 

* * 
*************** 



IJBERJ24 

*****B !********♦♦ 

* SSM TO ENABLE * 

* INTERRUPTS * 

* ON ALL * 

* CHANNELS * 

* * 
***************** 



*****Cl ********** 

* LOAD ADDRESSES * 

* OF COMREG, * 

* ERBLOCt AND * 

* USER CCB * 

* *B2 * 
***************** 



****** 1 ********** 

* RELOCATE * 

* ADDRESS * 

* CONSTANTS * 

* IN CCWS * 

* * 
***************** 



*B2 
THIS CCB WAS 
SAVED IN 
PHASE 1 
USANERRG). 



A05 

NO 



RETRY 

COUNTER 
EQUALS 



**** 

* * 

* 2 * 

* * 
**** 



HIGH.* COMPARE * 
...*. RETRY COUNT 
*. WITH 3 .* 



02 *. 
.* CCH *. 
.* OF HOME *. YES 
♦ADDRESS EQUALS.*.... 
*. SEEK .* 
*.ADDR..* 
*. .* 
*N0 



A05L X 

*****C3********** 

* INSERT X'21' * 
*NO-RECORD-FOUND* 

* AND MISSING * 
♦ADDRESS MARKER * 

* MESSAGE CODE * 
***************** 



* 3 
* 
**** 



*****C4********** 

* * 

* MOVE ADDRESS * 

* OF SEEK CCW * 

* TO CCB * 

* * 
***************** 



*****B5********** 

* * 

* MOVE ADDRESS * 
X* OF RELEASE * 

* CCW TO CCB * 

* * 
***************** 



******C5********* 

IORTN LT 
*_*_*_*_*_*_*_*_ 

RESTORE 
* STRIP * 

************* 



*****£ 2********** 

* * 

* INSERT X'15' * 

* SEEK CHECK * 

* MESSAGE MODE * 

* * 
***************** 



* USER *. 

WANTS RETRY . 

*.0N N-R-F .* 



MISSING 
ADDRESS 
MARKER 



*****Gl ********** 

* MOVE ADDRESS * 

* OF SEEK CCW * 
*TO CCB, INSERT * 

* COMMAND CODE * 
*TO READ REC. * 
***************** 



******Hi *********** 

IORTN LT 

*_*_*_*-*_*_*_*_* 

SEEK AND 

* READ HOME * 

ADDRESS 

************* 



.* *. YES 

♦.UNRECOVERABLE.*... 
♦.I/O ERROR.* 



**** 

* * 

* 5 * 

* * 
**** 



MSGWTR 

*****j2********** 

* INSERT X'20« * 

* ERROR-ON- * 

* RECOVERY * 

* MESSAGE * 

* CODE * 
***************** 

**** 



****K2********* 

* SVC 3 * 

* $$ANERRM * 

* CHART LV * 
*************** 



*****P3********** 

* SET ADDRESS * 

* AND COMMAND * 
X* CODE FOR * 

* SEEK IN * 

* CCB * 
***************** 



******G3*********** 

IORTN LT 

*_*_*_*_*_*_*_*_* 

PERFORM 
* SEEK * 

************* 



*****H3********** 

* CHANGE CCHH * 

* IN ADDRESS * 

* FOR SECOND * 

* SEEK * 

* * 
***************** 



****** j 3*********** 

IORTN LT 

*_*_*_*_*_*_*_*_* 

PERFORM 

* SEEK * 

************* 

**** 



******£5*********** 

IORTN LT 
*_*_*_*_*_*_*_*„* 

SEEK AND 

* READ HA * 

TRACK 

************* 



*****P4******* 

♦ POST NO- ♦ 

♦ RECORD-FOUND ♦ 

♦ BIT IN CCB, ♦ 

♦ BYTE 3, BIT 4+ 

♦ * 
************** 



*****G4********** 

* INSERT X«36' ♦ 

* NO-RECORD- ♦ 

* FOUND * 

* MESSAGE CODE * 

* * 
***************** 



****K3********* 

* SVC 3 * 

* EXRTY * 

* CHART DD * 
*************** 



*****J4******* 

* POST NO- * 

* RECORD-FOUND ♦ 

* BIT IN CCB, ♦ 

* BYTE 3, BIT 4+ 

* * 
************** 



****«4********* 

* SVC 3 * 

* EXIGN * 

* CHART DD * 
*************** 



*****G5********** 

♦ SET THE SEEK * 

♦ ADDRESS IN ♦ 

♦ SEEK CCW TO ♦ 

♦ TRACK 19 ♦ 

♦ * 
***************** 



*****H5********** 

♦ INSERT X«23' ♦ 

♦ BLANK STRIP ♦ 

♦ MESSAGE ♦ 

♦ CODE ♦ 

♦ * 
***************** 



****** J5*********** 

IORTN LT 
*_*_*_*„*_*_*_*_* 

SEEK AND 

♦ READ HA ♦ 

TRACK 19 

************* 



**** 

* * 

* 3 * 

* * 
**** .. 
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Chart LT. $$ANERRJ - Phase 4 of Data Cell ERP (Part 2 of 2) 
Refer to Chart 07, 



* * 

* IORTN * 

* * 
*************** 



IORTN X 

* SAVE CHANQ * 

* POINTER AND * 
♦CHAN SCHEDULER * 

* FLAGS * 

* * 



* CALCULATE * 

* LUBID AND * 

* STORE IN CCB, * 

* SET RIK TO * 

* ZERO * 
ft**************** 



SVC 15 

* EXECUTE * 

CHANNEL 

* PROGRAM * 

************* 



* RESTORE * 

* CHANQ * 

* POINTER * 

* * 



IOERR 

* RESTORE * 

* CHANQ * 

* POINTER AND * 
*CHAN SCHEDULER * 

* FLAGS * 



* RESTORE * 
♦CHAN SCHEDULER ♦ 

* FLAGS ♦ 

* * 
***************** 



.♦. UNRECOVERABLE. ♦ 

♦. I/O .♦ 

♦. ERROR. ♦ 



♦♦♦♦^♦♦♦♦♦♦♦♦+ 

♦ RETURN ♦ 

♦ TO LINK ♦ 

♦ ADDR +4 ♦ 
*************** 



♦♦♦♦^♦♦♦♦♦♦♦♦* 

♦ RETURN ♦ 

♦ TO LINK ♦ 

♦ ADDRESS ♦ 
*************** 
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Chart LU. $$ANERRK - Phase 5 of Data Cell ERP 
Refer to Chart 07. 



****A2********* 

* * 

* $$ANERRK * 

* * 
*************** 



* SSM TO ENABLE * 

* INTERRUPTS ON * 

* ALL CHANNELS * 

* * 
***************** 



*****C2********** 
♦LOAD ADDRESSES * 

* OF COMREG, * 

* ERBLOC, AND * 

* USER CCB * 

* *C3 * 
***************** 



*****D2********** 

* INSERT X«13' * 

* MISSING * 
♦ADDRESS MARKER * 

* MESSAGE * 

* CODE * 
***************** 



*C3 
THIS CCB WAS 
SAVED IN PHASE 1 
($$ANERRG). 



RDVER X 

*****CA******* 

* POST DATA * 

* CHECK BIT 

* . IN CCB 

* BYTE 3 

* BIT 3 * 
************** 



.* LAST * 
YES .* CCW A 
...*. WRITE 
*. COMMAND 



E4 *. 
.* USER *. 
* WANTS 

VERIFY AND 
*. READ 
*. ERROR.* 



.* USER * 
.REQUEST DATA 
*. CHECK .* 



.X* 



*****F3******* 

* TURN ON * 
PASS BACK 

BIT IN 

* ERQUE 

* FLAG * 
************** 



*****G2**#******* 

* INSERT X'll' * 

* DATA CHECK * 

* MESSAGE * 

* CODE * 

* * 
***************** 



DATA 
CHECK ON 
. COUNT 



**** 

* * 

* 1 * 



*****j2********** 

* INSERT X'16 1 * 

* DATA CHECK * 

* ON COUNT * 

* MESSAGE * 

* CODE * 
***************** 



*YES 



*****F4******* 

* TURN ON * 

* PASS BACK 

* BIT IN 

* ERQUE FLAG 

* * 
************** 



NO .* SLI 
(..*. AND SKIP 
*. BIT ON 



*****H4******* 

* TURN ON * 

* VERIFY ERROR * 

* BIT IN CCB * 

* BYTE 3, BIT 6* 

* * 
************** 



*****J4********** 

* INSERT X'12' * 

* VERIFY ERROR * 

* MESSAGE * 

* CODE * 

* * 
***************** 



****K4********* 

* SVC 3 * 
*FETCH $$ANERRM * 

* CHART LV * 
*************** 
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Chart LV. $$ANERRM - Phase 1 of ERP Message Writer 
Refer to Chart 08. 



**** A 1** ******* 

* $$ANERRM * 

* * 
*************** 



IJBERM23 X 

*****B1 ********** 

* SET SYSTEM * 
*MASK TO ENABLE * 

* INTERRUPTS ON * 

* ALL CHANNELS * 

* * 
***************** 



*****B 3 ********** 

* TM THE MSG * 

* NUMBER BYTE * 
*USE X'10' MASK * 

* TO SEE IF BIT * 

* IS ONE *A4 * 
***************** 



*A4 
FOR EXAMPLE, IF MSG CODE 
IS X'10' THE MASK TEST 
IDENTIFIES BIT 3 AS ON. 
OOOIOOOO HAS VALUE 
OF 10 IN PACKED DECIMAL 
FORMAT AND MUST BE 
CONVERTED TO HEX FOR 
PURPOSES OF ADDRESSING 
THE MSG TABLE. SIX IS 
SUBTRACTED FROM IT 
LEAVING 00001010=HEX OA 
AS MSG NUM. 

EACH TABLE ENTRY 
IS TEN BYTES LONG 
SO THE NUMBER OF 
MSG IS MULTIPLIED 
BY 10. THE ANSWER 
HEX 64 IS THUS 
DISPLACEMENT IN THE 
MSG TABLE. ADD THIS 
TO MSG TABLE STARTING 
ADDRESS TO GET ACTUAL 
HEX ADDRESS OF 
APPROPRIATE MSG 
FOR ORIGINAL CODE. 



*****B 5** ******* 

* ADD STARTING 
*ADDRESS OF MSG 

* TABLE TO GET 

* ADDRESS OF 

* MESSAGE 
**************** 



*****d********** 

* LOAD ADDR OF * 
*COMREG, ERBLOC,* 

* AND PUB ENTRY * 

* FOR ERR DEV * 

* * 
***************** 



.* MSG *. 
.* NUMBER IN *. NO 
*.10«S OR 30«S .*... 
*. RANGE .* 



****C5********** 

MOVE CHARS OF * 

MSG TO SAVE * 

AREA FOR NEXT * 

PHASE OF * 

MSG WRITER * 

**************** 



CCB *. NO 
AVAILABLE .*... 
. FOR DEV .* 



*****Q3 ********** 

* SUB 6 FROM * 

* MSG VALUE TO * 

* CONVERT FROM * 
*PACKED DECIMAL * 

* FORMAT TO HEX * 
***************** 



****D5 ********* 

* SVC 3 * 
*FETCH $$ANERRN * 

* CHART LW * 
*************** 



***#*E1********** 

* CALCULATE * 

* CHANNEL QUEUE * 

* ENTRY FOR * 

* DEVICE IN * 

* ERROR * 
***************** 



.* MSG *. 
.* NUMBER IN *. NO 
*.20'S TO 30«S .*... 
*. RANGE .* 



*****P1********** 

* LOAD CCB * 

* ADDRESS FROM * 

* CHANQ ENTRY * 

* DATA * 



******** 



***** 



*****F3********** 

* SUB 12 FROM * 

* MSG VALUE TO * 

* CONVERT FROM * 
*PACKED DECIMAL * 

* FORMAT TO HEX * 
***************** 



.X 

CCBSTR X 

*****G1 ********** 

* STORE CCB * 

* ADDRESS FOR * 

* USE IN SUB- * 
*SEQUENT PHASES * 

* *G2 * 
***************** 



IF NO CCB AVAILABLE, 
THE STORED ADDRESS 
WILL BE ALL ZEROS. 



G3 *. 

.* MSG *. 

NUMBER IS 
40' S RANGE 



*****H1********** 

* INSERT MSG * 

* NUM8ER FROM * 

* ERROR QUEUE * 

* INTO REG 1 * 

* * 
***************** 



*****H3 ********** 

* SUBTR 24 FROM * 

* MSG VALUE TO * 

* CONVERT FROM * 
*PACKED DECIMAL * 

* FORMAT TO HEX * 
***************** 



***** j 3 ********** 

* MULTIPLY MSG * 

* NUMBER * 

* BY MSG * 

* LENGTH OF 10 * 

* * 
***************** 
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Chart LW. $$ANERRN - Phase 2 of ERP Message Writer (Part 1 of 2) 
Refer to Chart 08. 



****A1********* 

* * 

* $$ANERRN * 

* * 

*************** 



IJBERN24 

*****B1********** 
♦SET SYSTEM MASK* 

* TO ENABLE * 

* INTERRUPTS ON * 

* ALL CHANNELS * 

* * 
***************** 



*****£ i********** 

* LOAD ADDR OF * 
♦COMREG, ERBLOCt* 

* AND PUB ENTRY * 

* FOR DEVICE * 

* * 
***************** 



*****A2********** 

* MOVE CHAR C * 

* TO TARG1 * 

* MEANING * 

* CANCEL * 

* * 
***************** 



ALLOW *. NO 
RETRY AND .♦..X 
. IGNORE .* 
*. .* 



*****C2********** 
♦MOVE CHAR D FOR* 

* OPTR DECISION * 
♦TO ACTION FIELD* 

* BLANK OUT * 

* TARG1 FIELD * 
***************** 



X 
.*. 

Dl *. 



NO.* ACCEPT * 
...*. UNRECOV I/O 
*. ERROR .* 



*****B3********** 

* MOVE CHAR I * 
♦FOR INFORMATIONS 
♦INTO ACTION FLD* 
♦AND I TO TARG1 ♦ 

♦ FOR IGNORE ♦ 
***************** 



*****C3********** 

* MOVE BLANK * 
*INTO TARG2 AREA* 

* CLEARING R * 

* PREVIOUSLY * 

* THERE * 
***************** 

**** 



X.* LX * 

* GA* 

**** 



*****£!******* 

* * 

* TURN ON 

* DASD BIT 4 IN 

* ERQUE FLAG 

* * 
************** 



*****E2********** 

* * 

* MOVE CHAR I * 
♦INTO TARG1 FLD * 

* TO INDICATE * 

* IGNORE * 
***************** 



*****A4********** 
*GET PROTECTION * 

* KEY FROM * 

* LOGICAL * 

* TRANSIENT KEY * 

* * 
***************** 



**** 
STORKE X 

*****B4********** 

* * 

* STORE PROTECT * 

* KEY IN * 

* PROTKEY FIELD * 

* * 
***************** 



*****C4********** 
♦ADD ADDR OF PIB* 

* TABLE TO PROT * 
*KEY TO GET ADDR* 
*OF PIB FOR PROG* 

* INVOLVED * 
***************** 



*****Q4********** 

* MOVE IDENT * 

* PREFIX FROM * 
*PIB INTO PRINT * 

* LINE AREA * 

* * 
***************** 



*****A5********** 

* * 

* MOVE X«10« TO * 
♦PROTECTION KEY * 
♦FOR BACKGROUND ♦ 

* * 
***************** 



***** 
*LX ♦ 
♦ C5* 



*****E3********** 

♦ LOAD CCB ♦ 
♦ADDRESS STORED ♦ 

♦ IN PREVIOUS ♦ 

♦ PHASE ♦ 
***************** 



Fl ♦. 

.♦ ♦. 

-♦ OPERATOR ♦ 

.INTERVENTION 

♦.REQUIRED .♦ 

♦ . .♦ 

*. .* 



***** 
♦LX ♦ 
* B4^ 



*****Gi********** 

♦ MOVE CHAR I ♦ 

♦ INTO ACTION ♦ 
♦FIELD. I MEANS ♦ 
♦INFORMATION MSG+ 

♦ * 
***************** 



*****Hi********** 

♦ MOVE CHAR I ♦ 
♦TO TARG1 FIELD ♦ 

♦ I SIGNIFIES ♦ 

♦ IGNORE ♦ 

♦ * 
***************** 



*****jl********** 



***************** 



♦ RETURN .♦. YES 
CONTROL TO ...... 

♦. USER .♦ 



*****G2********** 

♦ MOVE CHAR R ♦ 
♦FOR RETRY INTO ♦ 

♦ TARG2 ♦ 

♦ FIELD ♦ 

♦ * 
***************** 

**** I 

♦ * 

♦ 2 ♦.X. 

♦ ♦ .X 

**** 
TSTCCB X 

*****H2********** 

♦ LOAD CCB ADDR ♦ 
♦» STORED FROM ♦ 

♦ PREVIOUS ♦ 

♦ PHASE ♦ 

♦ * 
***************** 



IS ♦. YES 
CCB ADDR .♦X... 
. REG=0 .♦ 



*****K2********** 

♦ TURN ON ♦ 
♦BIT 2 IN BYTE 2* 
♦OF CCB MEANING ♦ 

♦ UNRECOVERABLE ♦ 

♦ I/O ERROR ♦ 
***************** 



.♦ CCB 
*. IN USE 
*. BY ERP 



CCBUNAV .*. 

F4 *. 

.* PUB *. 

.* JOB CTRL ♦. 

..X+.FLAG SHOW DEV. 

♦. USED BY .♦ 

♦.SUPVR.^ 

♦ . .♦ 

♦ YES 



.♦. 

G4 ♦. 

.♦ DEV ♦. 

SHARED BY 

BG AND Fl 

. JOBS 

♦ . .♦ 

♦ . .♦ 



♦ LOAD ♦ 

♦ CHANQ ♦ 

♦ POINTER ♦ 

♦ * 
***************** 



*****J3********** 

♦ ADD ADDRESS ♦ 

♦ AND LENGTH ♦ 
♦OF LUBID TO GET+ 

♦ REQUESTOR ID ♦ 

♦ * 
***************** 



.♦ DEV ♦. 

SHARED BY 

BG AND F2 

. JOBS 



♦ DEV ♦. 

ASSIGNED TO .* 
♦. BG PROG .♦ 



*****C5********** 

♦MOVE CHARACTERS^ 

♦ Fl INTO PRINT ♦ 

♦ LINE AREA ♦ 

♦ * 
***************** 



*****Q5********** 

* * 

* MOVE X«30« TO ♦ 
♦PROTECTION KEY ♦ 
♦FOR FOREGROUND * 

* 1 * 
***************** 



E5 *. 

.* DEV * 

.* ASSIGNED 

TO Fl 

*. JOB 

*. .♦ 

*. .* 



*****P5********** 

♦ MOVE ♦ 

♦ CHARACTERS * 

♦ F2 INTO ♦ 

♦ PRINT LINE ♦ 

♦ AREA * 
***************** 



*****G5********** 

♦ MOVE X«20' TO * 

♦ PROTECTION ♦ 

♦ KEY FOR ♦ 

♦ FOREGROUND 2 ♦ 

♦ * 
***************** 



.♦. « 


CALPHS3 X 


H4 ♦. 


*****H5********** 


♦ DEV ♦. 


♦ MOVE CHAR ♦ 


SHARED BY ♦. YES. 


♦ INTO FTCHNM ♦ 


Fl AND F2 .♦..X 


♦ TO CALL ♦ 


JOBS .♦ 


♦ $$ANERRO ♦ 



***************** 



.♦ IS 
SYSLOG 
♦.ASSIGNED 



X 

***** 

♦ LX * 

* B5^ 



*****K4********** 

♦ MOVE ♦ 

♦ IDENTIFYING ♦ 

♦ CHARACTERS ♦ 

♦ BG TO PRINT ♦ 

♦ LINE AREA ♦ 
***************** 



X 

***** 
♦LX ♦ 
* Bl* 



***** 

♦ LX * 

* B2 + 



**** 

* * 

* 1 * 

* * 
**** 



* 2 * 

* * 
**** 
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Chart LX. $$ANERRN - Phase 2 of ERP Message Writer (Part 2 of 2) 
Refer to Chart 08, 



***** 

*LW * 
* J5* 



***** 
*LW * 
* J5* 



♦LW-G4 
LW-H4 
LW-J4 



#****BL** ******** 
♦UNPACK MSG NO. * 
♦FROM ERROR QUE * 

* AND MOVE TO * 
♦PRINTLINE AREA * 

* * 

***************** 



.♦ IS ♦ . 

.♦ ACTION OF * 

. MSG TO GIVE 

♦.INFORMA- .* 

*.TION .* 

♦ . .♦ 

♦ YES 



*****B4********** 

* SET SYSTEM * 

* MASK TO * 

* PREVENT ALL * 

* INTERRUPTS * 
***************** 



RESET 

*****B5*** ******* 

* MOVE CHAR I * 

* FOR INFORMATION* 

* TO ACTION * 

* FIELD * 

* * 
***************** 



*****d ********** 

* MOVE CHARS * 

* FROM ACTION * 

* AND TARGL * 

* FIELDS TO * 
♦PRINTLINE AREA * 
***************** 



*****C2********** 

♦ MOVE X'FF' * 
*INTO SAVE AREA * 

♦ OF CCB ADDR AS ♦ 
♦FLAG TO SHOW NO* 

♦ MSG PRINTED * 
***************** 



******** 



****C3** 

* SVC 3 * 
♦FETCH SSANERRR ♦ 

* CHART MB * 
*************** 



*****C4* ********* 

♦ MOVE CHAR A ♦ 

♦ INTO ACTION * 
♦FIELD AND BLANKS 
*INTO TARG1 AND ♦ 

♦ TARG2 FIELDS ♦ 
***************** 



*****C5********** 

♦ MOVE CHAR I ♦ 

♦ FOR IGNORE TO * 

♦ TARG1 FIELD * 
♦AND BLANK INTO ♦ 

♦ TARG2 FIELD ♦ 
***************** 



*****□!********** 

♦ MOVE CHARS OF ♦ 

♦ MSG STORED IN ♦ 

♦ SAVE AREA BY ♦ 
♦PREVIOUS PHASE * 

♦ OF MSGWTR RTN * 
***************** 



****D 2 ********* 

♦ SVC 3 * 
♦FETCH SSANERRS ♦ 

* CHART MD * 
*************** 



***** 
*LW ♦ 
♦ H5^ 



*****£!********** 

♦ MOVE PREFIX ♦ 

♦ CODE FROM * 
♦PRINT LINE AREA* 

♦ TO SAVE AREA * 
♦FOR FUTURE USE ♦ 
***************** 



OPFLAG 

*****E3**** ****** 
*TURN ON BIT IN * 
♦CHAN SCHED FLG ♦ 

♦ OF PUB ENTRY ♦ 

♦ TO SHOW OPTR ♦ 

♦ INTERV NEEDED ♦ 
***************** 



*****E4* ********* 

♦ MOVE X'40« ♦ 

♦ INTO FIELD ♦ 

♦ NAMED EXTOPT ♦ 

♦ TO USE AS AN * 

♦ OPTION FLAG ♦ 
***************** 



****F1********* 

♦ SVC 3 * 
♦FETCH $$ANERRO ♦ 

♦ CHART LY ♦ 
*************** 



*****F3********** 

♦ SET SYSTEM ♦ 
♦MASK TO ENABLE ♦ 

♦ INTERRUPTS ON ♦ 

♦ ALL CHANNELS ♦ 

♦ * 
***************** 



**** 

* * 

* 1 * 



***** 

♦ LW ♦ 

* D3^ 
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Chart LY. $$ANERRO - Phase 3 of 
Refer to Chart 08. 



ERP Me s s ag e Wr i t er 







A2 *. 






*****A3********** 


****A1********* 


.♦ *. 






* TRANSLATE * 


* * 


.* DEVICE *. YES 




* SENSE BYTE * 


* $$ANERR0 * 


*. NOT OPEN .*. 






♦INTO PRINTABLE * 


* * 


*. MSG .* 






* CHARACTERS * 


*************** 


♦ . .♦ 






* * 




♦ . .* 


X 




***************** 






*N0 


**** 
* * 










* 5 

* 


* 
* 










*** 






IJBER020 X 


X 






X 


*****Bi ********** 


*****B2********** 






*****B3********** 


* SET SYSTEM * 


* ZERO THE * 






* UNPACK CCB * 


♦ MASK TO ENABLE * 


* COMM CODE * 






* ADDRESS INTO * 


* INTERRUPTS * 


* OF THE CSW * 






♦PRINTLINE AREA»* 


* ON ALL * 


* IN PRINT * 






* TRANSLATE TO * 


* CHANNELS * 


* LINE AREA * 






♦PRINTABLE CHARS* 


********; 


********* 


***************** 






***************** 



*****d ********** 

* LOAD ADDRS * 

* OF COMREG * 

* AND ERBLOC * 

* * 
***************** 



SWITCH 

*****D1********** 

* SWITCH DATA * 

* BETWEEN 2 * 

* LOCATIONS- * 

* PLINE AND * 

* KCCB * 
***************** 



*****E1 ********** 

* LD ADDR OF * 

* PUB ENTRY * 

* FOR DEVICE * 

* IN ERROR * 

* * 
***************** 



*****P1********** 

* LD ADDR OF * 

* CCB SAVED * 

* FROM PREV * 

* PHASE * 

* * 
***************** 



C2 



.♦ 



IS 



ERRQUE CCW 
♦ . IN 
♦.CORE .* 
*. .* 
*YES 



.♦ IS ♦ . YES 
♦ . ERRQUE CCW .♦..X 
♦-LESS THAN.* 



*****E2********** 

* DETERMINE * 

* ADDRESS OF * 

* LAST CCW * 

* USED * 

* * 
***************** 



*****F2********** 

* SET CMND CODE * 

* OF LAST USED * 

* CCW AND PLACE * 

* IN CCW PRINT * 

* LINE AREA * 
***************** 



CCB *. YES 
ADDRESS .*.... 
REG=0 .* 



.* HAS *. YES 
♦DEVICE A SYSTEM*.... 
*. LUB .* 



*****jl ********** 
♦CONVERT TO DEC,* 
♦UNPACK THE UNIT^ 

♦ NO. OF, DEVICE * 
*INTO PRINT LINE* 

* AREA * 
***************** 

**** 



**** 
CUU X 

****** 1 ********** 
♦UNPACK CHAN AND+ 

♦ UNIT AND MAKE ♦ 

♦ PRINTABLE ♦ 

♦ CHAR IN PRINT ♦ 

♦ LINE AREA ♦ 
***************** 



X... 



LACSW 

*****G2^^ ♦♦♦***♦♦ 

* LD ADDR * 

* OF CSW FROM * 

* ERRQUE * 

* ENTRY * 

* * 
***************** 



*****H2********** 

♦ UNPK KEY ♦ 

♦ ADDRESS AND ♦ 

♦ CNT FLDS OF ♦ 
♦CSW INTO PRINT ♦ 

♦ LINE AREA ♦ 
***************** 



*****J2********** 

♦ TRANSLATE ♦ 

♦ ASSEMBLED ♦ 

♦ CSW INTO ♦ 

♦ PRINTABLE ♦ 

♦ CHARACTERS ♦ 
***************** 

**** 



♦ 5 



**** 
UNPKSEN X 

****** 2********** 
♦GET SENSE BYTE ♦ 
♦DATA FROM ERRORS 
♦QUEUE AND UNPK * 
♦ DATA INTO ♦ 
♦PRINT LINE AREA* 
***************** 



C3 ♦ 
DASD 



D3 ♦. 

♦ WAS ♦ 

ERROR A 

PROGRAM 

CHECK 



.♦ CCB ♦. 

ADDRESS 

AVAILABLE 

. FOR DEV . 



*****F3********** 

♦ MOVE CCW ADDR * 

♦ FROM THE CCB * 

♦ INTO SAVE ♦ 

♦ AREA ♦ 

♦ * 
***************** 



*****G3********** 

♦ GET SEEK ADDR ♦ 
♦FROM CCW, UNPK ♦ 

♦ 1ST TWO BYTES * 
*(BB) INTO PRINT* 

♦ LINE AREA * 
***************** 



UNPCH 

*****H3********** 

* UNPK CCHH * 

* FROM SEEK * 
*ADDR AND TRANS * 

* ADDRESS TO * 

* PRINT CHARS * 
***************** 



**** 

* * 

* 7 * 

* * 
**** 



NOCCB X 

*****B4********** 

* LOAD 11 INTO * 

* Rl POINT TO * 

* XXX IN TABLE * 

* OF SYMBOLIC * 

* UNITS * 
***************** 

**** 



* 3 *.. 



**** 
SYCLAS X 

*****C4********** 

* MPY SYM UNIT * 

♦ NO. BY 3 TO ♦ 

♦ GET NAME TO ♦ 
♦SYM UNIT IDENT * 

* TABLE *C5 * 
***************** 



*****D4**** ****** 

* LD TABLE ADDR * 

* INTO R2 ADD * 

* Rl DISPLACE * 

* TO GET PROPER * 

* SYMBOLIC NAME * 
***************** 



♦C5 
IN CASE OF NO 
CCB AVAILABLE, 
THIS WILL BE 
•XXX« AT END 
OF TABLE. 



*****£ 4********** 

* MOVE SYM NAME * 

* OF SYSTEM DEV * 

* FROM TABLE * 

* TO PRINT * 

* LINE AREA * 
***************** 



****j3********* 

* SVC 3 * 
*FETCH $$ANERRP * 

* CHART LZ * 
*************** 
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Chart LZ. $$ANERRP - Phase 4 of ERP Message Writer 
Refer to Chart 08. 





**** 






**** 






*:< 


*** 




**** 






* * 






* * 






* * 




* * 






* 1 * 






* 3 * 






* 7 * 




* 5 * 






* * 






* * 






* * 




* * 






**** 






**** 






**** 




**** 






X 
ERRTYP .*. 






X 












X 
AACTION .*. 






A2 *. 






****** A 3 *********** 












A5 *. 




****A1********* 


.* ERROR *. 






SVC 15 












.* IS * 




* * 


.* REQUIRE * 


. YES 


* PRINT TWO * 












NO .* IT AN 


* 


* $$ANERRP * 


*. OPERATOR 


.*. 




LINES OF 








X 




*. ACTION 




* * 


*. INTERV .* 






* ERROR * 












*. MESSAGE 




*************** 


*. .* 
*. .* 
*N0 
**#* 

* * 

* 9 *. . . 

* * 




X 
**** 

* * 

* 2 * 

* * 
**** 


INFO 
************* 












*. .* 
*. .* 
*YES 






**** 












X 




X 




IJBERP20 X 


COUNTRG X 






X 


NOLOG 


.*. 




CHKDEV .*. 




*****B1 ********** 


*****B 2* ******* 


** 




*****B3 ********** 




B4 *. 




B5 *. 




• *SET SYSTEM MASK* 


* LOAD SYSLOG 


* 




* TEST REG * 




.* 


IS *. 




.* IS * 




* TO ENABLE * 


* ERROR RETRY 


* 




* FOR ZERO- * 




* 


IT AN * 


. NO 


.* SYSLOG 


* 


* INTERRUPTS * 


* COUNTER 


* 




* NOT ZERO * 


*" 


INFORMATION 


.*. . . 


*. A 




* ON ALL * 


* WITH 3 






* MEANS CHANQ * 




*. 


MSG .* 




*. PRINTER 


* 


* CHANNELS * 


* 


* 




* FULL * 
***************** 




* 


.* 




*. .* 




***************** 


***************** 








*. .* 




*. .* 


















*YES 




*YES 






. **** 




















* 
...* 6 


* 

* 
















x'. 






X 






* 


* 
















**** 






**** 




X 












* * 




X 


LOGENT X 






.*. 






X 




* 8 * 




*****d********** 


*****C2********** 




C3 *. 


*****Q4**** ****** 


* * 




* LOAD AODRS OF * 


* 






.* *. 


*MOVE 


'FF« INTO 


* 


**** 




♦COMREGt ERBLOC,* 
* AND START OF * 


* GET SYSLOG 


* 




.* CHANQ *. YES 


* 


CCB 


SAVE AREA 


* 






* ENTRY FROM 


* 




*. FULL .*.... 


* 


TO 


INDICATE 


* 






♦PRINTLINE AREA * 


* PUB TABLE 


* 




*. .* 


* 


NO 


MESSAGE 


* 






* (PLINE) * 




* 




*. .* 


* 


PRINTED 


* 


**** 




***************** 


*************** 






*. .* X 


*************** 




* * 





.* *. YES 

.MULTIPROGRAM .*... 
*. SYSTEM .* 



*****02********** 

* SAVE CHANQ * 

* POINTER * 
I AND CHAN J 

* SCHED FLAG * 
***************** 



NO .* I/O 
...*. OPERATION 
*. COMPLETE . 



* GET ADDRESS * 

* OF PUB ENTRY * 

* FROM ERBLOC * 

* * 
***************** 



*****£!********** 

*ADD 3 TO START * 

* ADDR OF PLINE * 

* TO BYPASS * 
*PREFIX, REDUCE * 
*CCW BYTE COUNT * 
***************** 



*****£ 2 ********** 
*MOVE 'FF' NULL * 

* CHANQ POINTER * 

* INTO PUB AND * 

* ZERO PUB * 

* CSFLAG BYTE * 
***************** 



* MOVE ORIGINAL * 

* CHANQ POINTER * 

* BACK INTO PUB * 

* * 
***************** 



RELOC X 

*****F1 ********** 

* STORE * 

* STARTING * 

* ADDRESS IN * 

* PRINT CCW * 

* * 
***************** 



F2 *. 

.* DASD *. 

.* ERROR *. 

• INDICATED IN .■ 

*. ERRFLAG .* 

*. .* 

*. -* 



RSTFLG X 

*****p 3 ********** 

* MOVE ORIGINAL * 

* CHANNEL * 
♦SCHEDULER FLAG * 

* BACK INTO * 

* PUB * 
***************** 



RTYRTN X 

*****P5********** 

* MOVE X'40' * 

* TO FIELD * 

* 'EXTOPT' TO * 

* INDICATE * 

* 'ACTION' TYPE * 
***************** 



*****G1 ********** 

* MOVE INDENT * 

* ADDRESS TO * 

* CCW'S. MOVE * 

* FIRST CCW * 

* TO CCB * 
***************** 



I/O 
ERROR ON 
. SYSLOG 



****G 5** ******* 

* SVC 3 * 
*FETCH $$ANERRS * 

* CHART MD * 
*************** 



*****H1 ********** 

* LOAD PUB * 

* AND LUB * 

* TABLE * 

* ADDRESSES * 

* * 
***************** 



*****H2********** 

* INCREASE CCW * 

* BYTE COUNT * 

* TO PRINT * 

* SEEK ADDRESS * 

* * 
***************** 



ERROR 
RETRIED 
3 TIMES 



**** 

* * 

* 4 * 



IS IT 

DECISION 

MSG 



BRANCH AFTER 
UNSUCCESSFUL 
RETRIES. 



CNTEXT X 

*****J2********** 

* LD CCB ADDR * 

* AND MOVE I/O * 

* KEY '01' INTO * 

* RIK FIELD * 

* OF ERBLOC * 
***************** 



IOERR X 

*****J3******* 

* ACTIVATE * 

* BRANCH 

* AT SWITCH 

* 'INST' 

* * 
************** 



SYSLOG 

ERROR 

SWITCH 

*. *H5 . : 



*****K1********** 

* MODIFY CCW'S * 

* TO SKIP TO * 

* CHANNEL 1 * 

* AND TO EJECT * 

* PAGE * 
***************** 



*****K2********** 

* LD CCB ADDR * 

* INTO REG SO * 
*REG WILL NOT * 

* HAVE VALUE * 

* OF ZERO * 
***************** 



*****«3********** 

* RESTORE CHAN * 

* QUEUE POINTER * 

* AND CHAN * 

* SCHED FLAG * 



*** 



************** 



****K4********* 

* SVC 3 * 
♦FETCH $$ANERRQ * 

* CHART MB * 
*************** 



****K5********* 

* SVC 3 * 
*FETCH $$ANERRR * 

* CHART MC * 
*************** 



Charts 



173 



Chart MA. $$ANERRQ - Phase 5 of ERP Message Writer (Part 1 of 2) 
Refer to Chart 08. 



****A1********* 

* * 

* $$ANERRQ * 

* * 
*************** 



* LOAD ADDRS * 

* OF COMREG * 

* AND ERBLOC * 

* * 
***************** 



*****d ********** 

* SET SYSTEM * 

* MASK TO * 

* ALLOW * 

* INTERRUPTS * 
*0N ALL CHANNELS* 
***************** 



*****A2********** 

* MOVE ADDRESS * 

* OF INVALID * 

* OPERAND MSG * 

* INTO OUTPUT * 

* CCW * 
***************** 



*****B2********** 

* STORE ADDRESS * 

* OF FIRST CCW * 

* IN CHAIN INTO * 

* OUTPUT CCB * 

* * 
***************** 



*****C2 ********** 

* MOVE ADDR OF * 

* CONSTANT TO * 
*ZERO DATA ADDR * 
*AND FLAGS INTO * 

* 1ST CCW IN CHN * 
***************** 



***** 
*MB * 
* 03* 



*****02********** 

* STORE ADDR OF * 
♦DISABLE ROUTINE* 

* (SSMASK) IN * 

* WAIT CONSTANT * 

* AREA * 
***************** 



**** 


**** 


***** 


* * 


* * 


*MB ♦ 


* 2 * 


* 3 * 


* H3* 


* * 


* • * 


* * 


**** 


**** 


* 


X 


RSTQPT X 






***** A3 ********** 


*****A4^+** ****** 






* SAVE CHANQ * 


♦ RESTORE ♦ 






* POINTER AND * 


♦ CHANNEL ♦ 






* CHAN SCHED * 


♦ QUEUE POINTER ♦ 






* FLAG * 


♦ IN PUB ENTRY ♦ 






* * 


* * 






***************** 


***************** 


**** 

* * 

* 5 *.X 

* * 








**** X 


X 


RSTFLG X 


TESTIGN .*. 


*****B3********** 


*****B4********** 


B5 *. 


* MOVE 'FF' * 


♦ RESTORE ♦ 




* NULL CHANQ * 


♦ CHANNEL ♦ 


YES .♦ OPERATOR 


* POINTER INTO * 


♦ SCHEDULER ♦ 


...♦. RESPONSE ON 


* PUB AND ZERO * 


♦ FLAGS IN * 


♦. IGNORE . 


*PUB CSFLAG BYTE* 


* PUB ENTRY * 


♦ . .♦ 


***************** 


***************** 


X ♦. .♦ 
***** *no 
*MB ♦ . ♦ 






* G4* 


* 






* * 


..♦ M 






* 


* 




X 




* 


X 


.*. 


SETCNCL X 


*****C 3 ********** 


C4 *. 


*****C5******* 


* LD CCB ADDR * 


.♦ *. 




* AND MOVE I/O * 


YES .* NON- ♦. 


* TURN OFF 


* KEY «01« * 


...♦. RECOVERABLE .♦ 


♦ ALL OPTION 


♦INTO RIK FIELD * 


*.I/0 ERROR. ♦ 


* FLAGS 


* OF ERBLOC * 


♦ . .♦ 


* 


***************** 


X *. .♦ 

***** *NG 


************** 




♦ MB ♦ 








* B3* 








* * 
* 








DECCTR X 


X 


X 


.*. 


.♦. 


*****03********** 


D4 *. 


D5 ♦. 


* LOAD REG * 


.* *. 


.♦ ♦. 


♦ WITH CCB ADDR ♦ 


YES .* UNIT *. 


YES .* OPERATOR 


♦ SO REG WILL * 


...*. EXCEPTION .* 


...*. RESPONSE A 


♦NOT HAVE VALUE ♦ 


*.. ON .* 


*. CANCEL . 


♦ OF ZERO ♦ 


♦. I/O .♦ 


♦ . .* 


***************** 


X ♦. .♦ 


X ♦. .♦ 




**** *NO 


***** *no 




* * 


♦MB ♦ 




* 4 * . 


♦ J3^ 




* * 


* * X 




**** 


* ***** 




X 


PHASES ♦MB ♦ 



*****£! ********** 

♦ * 

♦ GET ADDRESSES ♦ 

♦ OF PUB TABLE ♦ 

♦ AND LUB TABLE ♦ 

♦ * 
***************** 



*****P1 ********** 

♦ MOVE ADDRESS ♦ 

♦ OF CONSTANT * 

♦ INTO CCW FOR ♦ 

♦ READING ♦ 
♦OPERATOR REPLY ♦ 
***************** 



*****G !*♦♦*♦♦♦♦** 

♦ LOAD ADDRESS ♦ 

♦ OF INVALID ♦ 

♦ RESPONSE ♦ 

♦ MESSAGE ♦ 

♦ * 
***************** 



E2********** 

* * 

* MOVE PREFIX ♦ 

* TO PRINT * 

* LINE AREA ♦ 

* * 
***************** 



******E3*********** 

SVC 15 

* EXCP TO ♦ 

WRITE 

♦ RESPONSE ♦ 

MSG 

************* 



I/O 

ERROR 

SWITCH 



*MB ♦ 
* D2^ 
**** 
MPSTST 



***** 
*MB ♦ 
* Gl* 



***** 
*MB ♦ 
* B2^ 



*****jl********** 

♦ ADD 3 TQ * 

♦ STARTING ADDR * 
♦OF INVALID RESP^ 

♦ MSG TO BYPASS ♦ 
♦PRINTING PREFIX^ 
***************** 



*****Kl ********** 

* * 

* REDUCE CCW ♦ 

* BYTE COUNT ♦ 

* BY 3 ♦ 

* * 
***************** 



*****G2********** 

* MOVE ADDR OF ♦ 

* CCW TO READ ♦ 

* REPLY TO ♦ 

* CCB * 

* * 
***************** 



*****H2********** 

♦ STORE ADDR * 

♦ OF CCW INTO ♦ 

♦ CCW ADDR ♦ 

♦ AREA OF ♦ 

♦ OUTPUT CCB ♦ 
***************** 



X.... 

COUNTRG 

*****J2********** 

♦ LOAD SYSLOG ♦ 

♦ ERROR RETRY ♦ 

♦ COUNTER WITH ♦ 



***************** 

**** * **** 

* * . * * 

♦ 4 ♦.X.X.^ MB ♦ 

* * . * B3+ 
**** . **** 

LOGENT X 

*****K2********** 

* * 

♦ GET SYSLOG ♦ 

♦ ENTRY FROM ♦ 

♦ PUB TABLE ♦ 

* * 
***************** 



***** 
*MB * 
* C3* 



SSMASK 

*****G3********** 

♦ SET SYSTEM ♦ 

♦ MASK TO ♦ 

♦ DISABLE ALL ♦ 

♦ INTERRUPTS ON ♦ 

♦ ALL CHANNELS ♦ 
***************** 



.♦ OPERATOR 

♦. RESPONSE A 

♦. RETRY 



*****j3********** 

♦ LOAD PSW ♦ 

♦ WITH WAIT ♦ 

♦ ROUTINE AND * 

♦ GO INTO THE ♦ 

♦ WAIT STATE ♦ 
***************** 



****** 3 ********** 

♦ SET SYSTEM ♦ 
♦MASK TO ENABLE * 

♦ INTERRUPTS * 

♦ ON ALL ♦ 

♦ CHANNELS ♦ 
***************** 



**** 

* * 

* 2 ♦ 
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Chart MB. $$ANERRQ - Phase 5 of ERP Message Writer (Part 2 of 2) 
Refer to Chart 08. 



***** 

*HA * 
* D5* 



***** 
*MA * 
* E4* 



***** 
*MA * 
* C4* 



REPERR X 


IOCOMP X 


DECCTR .*. 








*****B1 ********** 


*****B2********** 


B3 *. 






* UNPACK * 


* RESTORE ADDR * 


.* *. 






* MESSAGE NO. * 


* OF FIRST CCW * 


.* ERROR *. NO 




* INTO MESSAGE * 


* IN CHAIN * 


*. RETRIED .* 






* PRINT AREA * 


* INTO OUTPUT * 


*. 3 TIMES .♦ 






* * 


* CCB * 


*. .* 




***** 


***************** 


***************** 


*. .* 


X 


*MA * 






♦YES 


***** 


* Dl* 






**** 


*MA * 


* * 






* * 


* K2* 


* 






*MA *... 


* * 








* F3* 


* 










**** 


LOGENT 






X 


X 


NOLOG X 








*****ci********** 


*****C2******* 


*****C3********** 








* MOVE CHAR 'D« * 


* SET THE * 


* RESTORE * 








* TO MESSAGE * 


* I/O ERROR * 


* CHANQ POINTER * 








* PRINT AREA * 


* SWITCH TO A * 


* AND CHAN * 








* AFTER * 


* NO OP * 


* SCHED FLAG * 








* NUMBER * 


* * 


* * 








***************** 


************** 


***************** 









*****D1 ********** 

* ZERO FIRST * 

* BYTES OF * 

* REPLY IN * 

* PRINT * 

* AREA * 
***************** 



*****D2********** 

* LOAO THE * 
*ADDRESS OF THE * 
♦COMMUNICATIONS ♦ 

* REGION ♦ 

* * 
***************** 



****03********* 

* SVC 3 FETCH * 

* SSANERRR * 

* CHART MC ♦ 
*************** 



*****E1 ********** 

♦ MOVE THE ♦ 

♦ PREFIX INTO * 

♦ THE MESSAGE * 

♦ AREA * 

♦ * 
***************** 



***** 
♦MA * 
* F2* 



*****F1********#* 

♦ . CHANGE CCW * 
♦ADDRESS IN CCB ♦ 

♦ TO ALLOW ♦ 

♦ PRINTING ON ♦ 

♦ 1052 ♦ 
***************** 



♦MA-F4 
MA-G4 
***** 



***** 
*MA * 
* B5* 



*****GL******* 

♦ ACTIVATE * 

♦ BRANCH AT 

♦ I/O ERROR 

♦ SWITCH. 

♦ 'NOPBR ♦ 
************** 



♦ TURN ON 

♦ RETRY 

* FLAG 

* * 
************** 



*****G4******* 

* * 

* TURN ON 

* IGNORE 

* FLAG 

* * 
************** 



***** 
♦MA ♦ 
* J2^ 



NO .♦ RETRY ♦ . 
...♦ALLOWED ON THIS^ 
♦. DEVICE .♦ 
♦ . .♦ 
X *. .* 
***** *YES 
*MA * 
* B5+ 
♦ ♦ TESTIGN . 



***** 
*MA * 
* 05* 



.* IGNORE *. NO 
♦ALLOWED ON THIS^... 
♦. DEVICE .♦ 



***** 
*MA ♦ 
* C5* 



****J3********* 

* SVC 3 FETCH * 

* $$ANERRS * 

* CHART MD * 
*************** 
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Chart MC. $$ANERRR - Phase 6 of ERP Message Writer 
Refer to Chart 08. 



****A1********* 

* * 

* $$ANERRR * 

* * 
*************** 



IJBERR20 

*****Bi********** 

* SET SYSTEM * 

* MASK TO * 
♦DISABLE ALL I/O* 

* AND EXTERNAL * 

* INTERRUPTS * 
***************** 



*****d ********** 

* MOVE ENTRY * 

* POINTS FOR * 

* INTERRUPTS * 

* INTO PSW'S * 

* * 
***************** 



*****0i ********** 

* GET ADDRESS * 

* ERROR QUEUE * 

* ENTRY FOR * 
♦DEVICE IN ERROR* 

* * 
***************** 



*****E1 ********** 

* SAVE EXTERNAL * 

* NEW PSW AND * 

* SUBSTITUTE * 

* MYPSW FOR EX- * 
*TERNAL NEW PSW * 
***************** 



*****P1 ********** 

* GET ADDRESS * 

* OF THE CCB * 

* AND THE PUB * 

* ENTRY * 

* * 
***************** 



*****Gl ********** 

* MOVE THE MSG * 

* NUMBER FROM * 

* ERROR QUEUE * 

* TO STORAGE * 

* LOCATION * 
***************** 



*****Hi ********** 

* MOVE CHAR «D' * 

* TO MAIN * 

* STORAGE * 

* LOCATION 1 * 

* * 
***************** 



.* MESSAGE *. YES 
*. A DECISION .♦... 
*. TYPE .* 



*****«! ********** 

* REPLACE CHAR * 

* 'D* WITH «A' * 

* IN MAIN * 

* STORAGE * 

* LOCATION 1 * 
***************** 



. 






*A4 














ENTRY 


POINT 


WHEN 


I/O 








OR EXTERNAL 


INTERRUPTS 




X 




OCCUR 


DURING 


THE 






*****/\2********** 




EXECUTION OF 


THIS 






* MOVE CHAN AND * 


****A3********* 


PHASE 








****A5********* 


* UNIT FROM PUB * 


* IOINTR * 










* EXINTR 


* ENTRY TO MAIN * 


* *A4 * 










* *A4 


* STORAGE * 


* * 










* 


* LOCATION 2 * 


*************** 










*************** 


***************** 
















* **** 




**** 












* * 




* * 












...* 2 * 




;.* 6 * 












* * 




* * 












**** 




**** 










X 


RESPNS X 


IOINTR X 










EXINTR .*. 


*****B2********** 


*****B3********** 










B5 *. 


* SET RETRY * 


* SET SYSTEM * 










.* *. 


* FLAG X'Ol' * 


* MASK TO * 










.* KEYED *. 


* IN MAIN * 


* DISABLE ALL * 










*. INTERRUPT . 


* STORAGE * 


*I/0 INTERRUPTS * 










*. .* 


* LOCATION 4 * 


* * 










*. .* 


***************** 


***************** 










*. .* 



* MESSAGE 

A DECISION 
*. TYPE 



.*. 

D2 *. 
.* IS * 
.* DEVICE 
*. IN ERROR 
*. STILL 
*.BUSY .* 
*. .* 
*NO 



*****E2******* 

* SET EXTERNAL* 
♦OPTION FLAG TO* 
♦INDICATE ACTION* 

* TYPE MESSAGE * 

* (X«40«) * 
************** 

**** 



**** 
PHASES X 

*****F 2 ********** 

* MOVE AN «S' * 

* TO LAST BYTE * 

* OF THE FETCH * 

* NAME * 

* * 
***************** 



*****G2 ********** 

♦ RESET THE ♦ 

♦ FIRST 5 BYTES ♦ 
♦OF MAIN STORAGE* 

* TO ZEROS * 

* * 
***************** 



*****H2********** 

* * 

* RESTORE * 

* EXTERNAL NEW * 

* PSW * 

* * 
***************** 



****J2********* 

* FETCH * 

* $$ANERRS ♦ 

* CHART MD * 
*************** 



YES .* IS *. 
...*. RESPONSE 

*. RETRY .* 



**** 

* * 

* 4 * 

* * 
**** 



C5 *. 
.* ANY *. 
NO .* OTHER *. 
...*. INTERRUPT .* 



D4 *. 


*****05********** 


.* *. 


♦ TURN OFF ♦ 


.* IS *. NO 


* KEY-BIT IN * 


*. RESPONSE .*.... 


* INTERRUPT * 


*. IGNORE .* 


* CODE OF EXT. * 


*. .* 


* OLD PSW * 


*. .♦ X 


***************** 


*YES **** 





LDPSW X 

*****E3********** 

* LOAD PSW WITH * 
*ALL INTERRUPTS * 

* ENABLED AND * 

* MACH CHK AND * 

* WAIT BITS ON * 
***************** 



****P3********* 

* * 

* WAIT * 

* * 
*************** 



E4 *. 
.* IS * 
IGNORE 
RESPONSE 
. VALID 
*. .* 



*****F4*^^ + * + 

* SET EXTERNAL* 

* OPTION FLAG * 

* FOR IGNORE * 

* (X'lO'J * 

* * 
************** 



**** 

* * 

* 4 * 

* * 
**** 



YES .♦ MESSAGE 
...*. AN ACTION 
♦. TYPE 



*****E5*** 

♦MOVE INTERRUPT * 

*CODE BYTE FROM * 

* EXT. OLD PSW * 

* TO SPECIAL * 

* PSW * 
***************** 



*****F5********** 

* REPLACE EXT. * 

* OLD PSW ♦ 

* WITH SPECIAL * 

* PSW * 

* * 
***************** 



****G5********* 

* LOAD EXTERNAL * 

* PSW * 

* * 
*************** 



J4 ♦. 
.* IS * 
RETRY 
RESPONSE 
. VALID 
*. .* 
*. .* 



*****K4^*^**** 

* SET EXT. * 

* OPTION FLAG : 

* FOR RETRY, 

* X'04« 

* * 
************** 



**** 

* * 

* 5 * 

* * 
**** 



NO .♦ IS ♦. 
...... RESPONSE .♦ 

*. CANCEL .* 
*. .♦ 



**** 

* * 

* 2 ♦ 



*****K5******* 

* SET EXT. * 

* OPTION FLAG * 

* FOR CANCEL, * 

* X'OO' * 

* * 
************** 



**** 

* * 

* I * 

* * 
**** 
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Chart MD. $$ANERRS - Phase 7 of ERP Message Writer 
Refer to Chart 08, 



**** 
* * 

* 2 * 



****Ai********* 



* 


* 


YES .* IS *. 


* $$ANERRS * 


...*. RESPONSE .* 


* * 


♦ . CANCEL .* 


*************** 


♦ . .* 




X ♦ . .* 






**** *NO 






* * 






* 3 * 






* * 




( 


**** .X 


JBERS22 ) 


IGEXIT X '. 


*****Bi********** 


*****B2********** 


* SET SYSTEM * 


* LOAD ADDRESS * 


* MASK TO * 


*OF IGNORE EXIT * 


* ENABLE * 


* ROUTINE INTO * 


* INTERRUPTS ON * 


* R15 * 


* ALL CHANNELS * 


* * 


********-< 


********* 


***************** 



A3 *. 
.♦ACTION *. 
* TYPE *. YES 
MESSAGE .♦... 



IS 
REPLY 
IGNORE 



*****Cl********** 

* GET ADDRESSES * 

* OF COMREG, * 
*ERBLOC, AND PUB* 

* ENTRY FOR * 
♦DEVICE IN ERROR* 
***************** 



IS 
DEVICE 
. TAPE 



*****£! ********** 



EXIT X 

*****C2********** 

* ZERO LAST * 

* BYTE OF * 

* FETCH NAME * 

* FOR SVC 3 * 

* * 
***************** 



****D2********* 

* SVC 3 * 

* EXIGN * 

* CHART DD * 
*************** 



IS 
REPLY 
RETRY 



*****A4********** 

* * 

* ADD PIB * 

* TABLE * 

* ADDRESS * 

* * 
***************** 



*****B4********** 

* SET PUB * 

* CANCEL CODE * 

* TO X'40' TO * 
*CALL IN $$BEOJ * 

* * 
***************** 



* 3 



**** 
CANRTN X 

*****03********** 
* INSERT X'01' * 
*IN LAST BYTE OF* 
♦FTCHNM TO SIG- * 
*NIFY CANCEL ON * 
♦RETURN FROM TRN* 
***************** 



CANCOD 

*****04********** 

* MOVE CANCEL * 

* CODE INTO PIB ♦ 

* FOR UNCONDIT ♦ 

* CANCEL TEST * 

* *K5 * 
***************** 



*****A5#********* 

* CALCULATE * 

* LUBID OF ♦ 

* LOGICAL ♦ 

* UNIT ♦ 

* * 
***************** 



SYSRDR 

OR 
SYSIPT 



*****C5***# ****** 

* * 

* CHANGE LUBID * 

* TO X'06' * 

* FOR SYSRES * 

* * 
***************** 



****05********* 

* SVC 3 * 

* EXIGN * 

* CHART DD * 
*************** 



* GET ADDRESS * 










YES .♦ ♦. 


♦OF CANCEL EXIT ♦ 




♦ OF TEB-TABLE ♦ 








...♦. UNCONDITIONAL. ♦ 


♦ ROUTINE INTO ♦ 




♦ FROM COMREG ♦ 








*. CANCEL .* 


♦ R15 ♦ 




* * 








*. .♦ 


* * 


**** 


***************** 








♦ . .♦ 

♦NO 


***************** 


* * 

* 4 ♦ 

* * 
**** 


X 

.♦. 








X 


X 


CLRCCB X 


Fl ♦. 








*****F3********** 


*****F4*++*^^+^ 


*****F5********** 


.♦ ♦. 








♦ INSERT X'59« ♦ 


* * 


* * 


.♦ IS ♦. NO 






♦IN INSTRUCTION ♦ 


♦ LOAD ADDRESS ♦ 


♦ LOAD ADDRESS ♦ 


*. TEB TABLE .*. 








♦ AT 'CANCOD' ♦ 


♦ OF PIB TABLE ♦ 


♦ OF CCB INTO ♦ 


*. ZERO .* 










♦ FOR OPERATOR ♦ 


♦ INTO RIO ♦ 


♦ PUBREG R14 ♦ 


*. .♦ 










♦ CNCL DECISION ♦ 


* * 


* * 


♦ . .♦ 










***************** 


***************** 


***************** 


♦ YES 
















x! 










........ ..x! 








X 




KRTY X 


ZERTEB X 




CHKLTA .♦. 




X 


*****Gl********** 




*****G2**^=< 


******* 


G3 ♦. 


X 


*****G5********** 


♦ MOVE A X'OO' ♦ 




♦ DETERMINE TEB ♦ 


.♦ ♦. 


****G4********* 


♦ CLEAR CCB ♦ 


♦ INTO RETRY ♦ 




♦ENTRY FOR 


THIS ♦ 


.♦ WAS ♦. NO 


♦ SVC 3 ♦ 


♦ BITS 0-2 ♦ 


♦ COUNTER IN ♦ 




♦ DEVICE AND ♦ 


♦. CANCEL IN .♦... 


♦ EXCAN ♦ 


♦ IN BYTE 2 ♦ 


♦ TEB ♦ 




♦ ZERO THE ♦ 


♦. LTA .♦ 


♦ CHART FE ♦ 


♦ AND 0-4 ♦ 


* * 




♦ RETRY COUNTER ♦ 


*. .♦ 


*************** 


♦ IN BYTE 3 ♦ 


***************** 




***************** 


♦ . .♦ 




***************** 


"x 




• 




♦YES 






X 
MSGPRT .♦. 








X 


EXITA X 


X 


HI *. 




*H2 




*****H3********** 


*****H4********** 


*****H5********** 


.* HAS ♦. 




THE SAVE AREA OF THE 


♦ INSERT X'80' ♦ 


♦ INSERT X'OO' ♦ 


* LOAD ADDRESS ♦ 


.♦ MESSAGE ♦. YES 


DEVICE CCB 


WILL CON- 


♦IN INSTRUCTION ♦ 


♦ IN LAST BYTE ♦ 


♦ OF RETRY EXIT ♦ 


♦.BEEN PRINTED .♦. 




TAIN X'FF' 


PLACED 


♦ AT 'CANCOD' ♦ 


♦ OF FTCHNM ♦ 


* ROUTINE ♦ 


♦. ^H2 .♦ 




THERE BY PHASE 4 


♦ FOR CANCEL ♦ 


♦ TO SIGNIFY ♦ 


♦ INTO R15 ♦ 


- ♦. .♦ 




($$ANERRP) 


IF NO 


♦ IN LTA ♦ 


♦ NON-CANCEL ♦ 


* * 


*. .* 


X 


MESSAGE WAS PRINTED. 


***************** 


***************** 


***************** 


♦NO 


**** 

* * 

* 2 * 

* * 


























**** 






Ix 


X 




TSTTRG X 


SETDIS X 




*****jl********** 








*****J3********** 


*****J4******* 


X 


♦ RESET THE ♦ 








* SET SYSTEM ♦ 


♦ TURN ON ♦ 


****J5********* 


♦ CCB SAVE ♦ 








♦ MASK TO ♦ 


♦ UNIT CHECK ♦ 


♦ SVC 3 ♦ 


♦ AREA TO ♦ 








♦ DISABLE ALL ♦ 


♦ BIT AND TURN ♦ 


♦ EXRTY ♦ 


♦ ZERO ♦ 








* INTERRUPTS ON ♦ 


♦ OFF BUSY BIT ♦ 


♦ CHART DD * 


* * 








♦ ALL CHANNELS ♦ 


♦IN CSW STATUS^ 


*************** 


***************** 








***************** 


************** 




X 












*K5 


**** 












THIS WILL BE A 


* * 










X 


X'80« OR X'59' AS 


* 1 * 








X 


.♦. 


MODIFIED BY 


* * 








*****K3********** 


K4 ♦. 


PRECEDING INSTRUCTIONS 


**** 








♦ ZERO WORK ♦ 

♦ REGISTER 12 ♦ 

♦ AND INSERT ♦ 

♦ PROTECTION ♦ 

♦ KEY DATA * 
***************** 


NO .♦" PROGRAM '♦. 
...♦.OR PROTECTION. ♦ 
♦. CHECK .♦ 

X *♦. .♦" 
**** +YES 

* * 

♦ 7 ♦ 












* 












X 


* * x 














**** 


**** **** 
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Chart ME. $$ANERRT - MICR (1412/1419) ERP 
Refer to Chart 08. 



****A1********* 

* * 

* $$ANERRT * 

* * 
*************** 



IJBERT20 

*****Bi********** 

* SSM TO * 

* ENABLE * 

* ALL * 

* INTERRUPTS * 

* * 
***************** 



*****C1 ********** 

* LOAD ADDRS * 

* OF COMM * 

* REG, ERBLOC * 

* AND PUB ENTRY * 

* FOR DEVICE * 
***************** 



*****D i ********** 

* CALCULATE * 

* CCB ADDR * 

* FROM * 

* CHANNEL * 

* QUEUE * 
***************** 



*****£!********** 

* GET THE CCB * 

* ADDR FROM THE * 

* QUEUE AND * 

* CLEAR HIGH- * 

* ORDER BYTE * 
***************** 



***«*F1********** 

* GET ADDR OF * 

* CCW CAUSING * 

* INTERRUPT * 

* AND PUT IN * 

* REG 14 * 
***************** 



*****G1********** 

* INSERT X'28« * 

* CHANNEL DATA * 

* CHECK MSG * 

* CODE * 

* * 
***************** 



.* CHANNEL 
*. DATA 
*. CHECK . 
*. .* 



UNDTR X 

*****B3********** 

* INSERT X»19« * 

* UNDETERMINED * 

* ERR MSG * 

* CODE * 

* * 
***************** 



* INSERT X'09'' * 

* BUSOUT * 

* MSG CODE * 

* * 
***************** 



02 *. 
* 

BUSOUT 



*****E2********** 

* INSERT X«37« * 

* DISENGAGE * 

* FAILED MSG * 

* CODE * 

* * 
***************** 



*****B4********** 

* POST * 

* INTERVENTION * 

* REQUIRED BIT * 
*IN CCB, BYTE 3,* 

* BIT 1 * 
***************** 



*****C4******* 

* TURN ON PASS* 
*BACK AND INTER- 

* VENTION REQ ' 

* BITS 1, 2 IN * 
♦ERBLOC ERR FLG 
************** 



*****Q4********** 

* SSM TO * 

* DISABLE * 

* I/O * 

* INTERRUPTS * 

* * 
***************** 



*****E4******* 

* TURN ON * 

* OPERATOR 

* INTERVENTION 

* BIT IN PUB 
*CHN SCHD FLG * 
************** 



*****P4******* 

* TURN ON * 

* CHANNEL END * 

* BIT IN CSW * 

* STATUS * 

* BYTES * 
************** 



X 

.♦. 

G2 *. 

.* *. 

.* FAIL *. NO 

*. TO .*... 

♦.DISENGAGE.* 



IREXIT X 

*****H2********** 

* POST * 

* INTERVENTION * 

* REQUIRED * 

* SEE B4 * 

* * 
***************** 



c_ 


*****j2******* 


.♦SHOULD-*. 


♦ TURN ON 


* NOT-OCCUR *. YES 


♦ PASSBACK AND 


SENSE— BYTE .*.... 


♦ INTERVENTION 


♦.0, BIT 3 .♦ 


♦ REQUIRED 

♦ SEE C4 


♦ . .♦ 


♦ . .♦ X 


************** 


*N0 **** 


. 



*****G3********** 

* INSERT X'18« ♦ 

♦ COMMAND ♦ 
.X+ REJECT MSG ♦ 

♦ CODE ♦ 

* * 
***************** 



**** 
PSTERR X 

*****H3******* 

♦ TURN ON ♦ 
♦UNRECOVERABLE ♦ 

♦ I/O ERROR BIT ♦ 
♦IN CCB BYTE 2,^ 

♦ BIT 2 ♦ 
************** 



*****J3******* 

♦ TURN ON ♦ 

♦ PASSBACK ♦ 

♦ BIT IN ERBLOC 

♦ ERROR FLAG * 

♦ BIT 2 * 
************** 



*****H4******* 

* TURN OFF * 

* OPERATOR * 

* INTERVENTION 

* BIT IN PUB ♦ 
♦CHN SCHD FLG ♦ 
************** 



*****J4******* 

♦ TURN ON ♦ 

♦ CHANNEL END ♦ 
♦AND DEVICE END 

♦ BITS IN CSW ♦ 

♦ STATUS BYTES+ 
************** 



CHKADR .♦. 

G5 *. 
.♦ CSW ♦ 
.♦ HAS A 
...X^. COMMAND 
X ♦. ADDRESS 



*****H5********** 

♦ INSERT ♦ 

♦ DUMMY ♦ 

♦ ADDRESS * 

♦ X'001000' ♦ 

♦ IN CSW ♦ 
***************** 



****J5********* 

♦ SVC 3 * 

♦ EXIGN ♦ 

♦ CHART DD ♦ 
*************** 



*****K1********** 

♦ INSERT X«08« ♦ 

♦ INTERVENTION ♦ 

♦ REQUIRED ♦ 

♦ MSG CODE ♦ 

♦ * 
***************** 



***#K3********* 

♦ SVC 3 ♦ 

♦ $$ANERRM ♦ 

♦ CHART LV ♦ 
*************** 
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Chart; MF. $$ANERRU - Phase 1 of Unit Record ERP 
Refer to Chart 07. 



(Part 1 of 2) 



****A1 ********* 

* * 

* $$ANERRU * 

* * 
*************** 



**** 

* * 

* 1 * 



IJBERU24 X 

*****B1 ********** 

* SSM TO ENABLE * 

* INTERRUPTS * 

* ON ALL * 

* CHANNELS * 

* * 
ft**************** 



♦♦♦♦♦el ********** 
*L0AD ADDRESSES * 

* OF COMREG, * 

* ERBLOC, AND * 

* PUB ENTRY * 

* FOR DEVICE * 



CHANNEL 
DATA 
CHECK 



*****C2 ********** 

* INSERT X'28« * 

* CHANNEL DATA * 

* CHECK MESSAGE * 

* COOE * 

* * 
***************** 



CNO 

*****B3******* 

* INSERT X'OF'* 

* IN MASK BYTE * 
...X*OF INSTRUCTION 

* AT 'UNUSENS' * 

* * 
************** 



IS 
DEVICE , 
. 1050 



**** 

* * 

* 5 * 



IS 
DEVICE A 
. 1442P 



**** 

* 5 *..! 

* * .X 

**** 
TSTCCC X 

*****C4********** 

* INSERT X'19' * 

* UNKNOWN * 

* SENSE DATA * 

* MESSAGE CODE * 

* * 
***************** 



*****B5******* 

* INSERT X'05'* 

* IN MASK BYTE * 
.X*OF INSTRUCTION 



.YES .* IS 
.X..*. DEVICE A 
*. 2540R 



*****D1********** 

* CALCULATE * 

* ADDRESS OF * 

* LAST USED * 

* CCW * 

* * 
***************** 



*****D3***#*** 

* INSERT X«03'* 

* IN MASK BYTE * 
*OF INSTRUCTION * 

* AT 'UNUSENS' * 

* * 
************** 



.YES .* IS 

.*. DEVICE A 
*. 2540P 



* 2 * 

* * 
**** 



E3 *. 
.* IS *. 

DEVICE 
A 250L OR 
.1442 R/P . 



*****E 5 ******* 

* INSERT X'02»* 

* IN MASK BYTE * 
*OF INSTRUCTION 

* AT * 

* 'UNUSENS' * 
************** 



***#*F1********** 

* * 

* INSERT X'FE' * 

* IN CCW * 

* ADDRESS * 

* * 
***************** 



IS 
DEVICE A 
. PRINTER 



**** 

* * 

* 3 * 

* * 
**** 



*MG *UNUSENS 



G2 *. 

.* IS *. 

.* DEVICE *. 

*.A 1442P OR A . 

*.1442 R/P .* 



IGON 

*#***G3* ****** 

* TURN ON * 

* ALLOW IGNORE 

* BIT IN ERQUE 

* FLAG BYTE 

* * 
************** 



DEVICE *. YES 
A 1403U CR .*. 
.1443/1445.* 



.* ERROR *. 

OCCURRED 
ON A WRITE 
. COMMAND . 



*****m ******* 

* TURN ON * 

* ALLOW IGNORE 

* BIT IN ERQUE 

* FLAG BYTE 

* * 
************** 



.* ERROR *. 
OCCURRED 
ON A READ 

. COMMAND . 



***** 
*MG * 
* J5* 



* 2 * 

* * 
**** 



***** 
*MG * 
* K5* 



*****H4******* 

* INSERT X'OE'* 

* IN MASK BYTE * 
*0F INSTRUCTION 

* AT 'UNUSENS' * 

* * 
************** 



*****H5******* 

* INSERT X'OE'* 

* IN MASK BYTE * 
*0F INSTRUCTION 

* AT 'UNUSENS' * 

* * 
************** 



*MG * 
* D3* 

* * 



*K2 
CONTROL UNIT ENDt DEVICE 
END, OR CHANNEL END BITS 
SET IN CSW STATUS BYTES. 



*****J3********** 

* INSERT X'2V * 

* UNKNOWN * 

* DEVICE *X. 

* MESSAGE CODE * 

* * 
***************** 



***** 
*MG * 
* J3* 



.* IS *. 
NO .* DEVICE * 
...*. A 2520P OR 

*. 1403/1404.* 
*. .* 

*. .* 
*YES 

!x 

x 
**** 

* * 

* 5 * 

**** 



* 4 * 

* * 
**** 
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Chart MG. $$ANERRU - Phase 1 of Unit Record ERP (Part 2 of 2) 
Refer to Chart 07. 



#****C 2 ********** 

* INSERT X«08« * 

* INTERVENTION * 

* REQUIRED * 

* MESSAGE * 

* CODE * 
***************** 



EQPCHK .*. 

C3 *. 
.* ERROR *. 
.* OCCURRED 
*. ON A READ 
*. COMMAND . 



*N0 

Ix.* 



INTREQ 

*****Di ********** 

* MOVE ADDRESS * 

* OF ALARM CCW 

* IN CCB 



*X. 



***************** 



*****E2********** 

* INSERT X'09« * 

* BUSOUT CHECK * 

* MESSAGE * 

* CODE * 

* * 
***************** 



*F1 
BITS TURNED OFF 
ARE DEVICE BUSY, 
I/O ERROR QUEUED 
FOR RECOVERY, 
AND OPERATOR 
INTERVENTION 
REQUIRED. 



**** 

* * 
MF * 

* H2* 
**** 



.* PUB *. 
.♦ERROR COUNT*. 
. EQUAL OR GT . 



*****E3********** 

* ADD 1 * 

* TO ERROR * 

* COUNT * 

* IN PUB * 

* * 
***************** 



*****B4******* 

* STORE CHANQ* 

* POINTER IN * 

* INSTRUCTION 

* AT * 

* 'RSTQPT' * 
************** 



*****C4******* 

* STORE * 

* CHANNEL SCHED* 

* FLAG IN * 

* INSTRUCTION * 

* AT 'RSTFLG'* 
************** 



*****D4********** 

* NULL CHANQ * 

* POINTER IN * 

* DEVICE PUB * 

* TO REMOVE * 

* FROM CHANQ * 
***************** 



*****E4******* 

* TURN OFF * 

* CHANNEL SCHED* 

* FLAG BITS IN * 

* DEVICE PUB * 

* *F1 * 
************** 



F2 ♦ . 


X 


*****F4********** 


* *. 


****F3********* 


* DETERMINE * 


*. YES 


* SVC 3 * 


* LOGICAL UNIT * 


BUSOUT .*... 


* EXRTY * 


* NUMBER AND * 


CHECK .* 


* CHART DD * 


* MOVE NUMBER * 


*. .♦ 


*************** 


* INTO CCB * 


*. .* 




***************** 



*****B5********** 

* LOAD CCB IN * 

* REG 15 AND * 

* MOVE X'Ol' * 

* INTO RIK IN * 

* ERBLOC * 
***************** 



*****C5********** 

* LOAD REG 15 * 

* INTO REG * 

* SO REG WILL * 

* NOT HAVE ZERO * 

* * 
***************** 



******D5*********** 

SVC 15 

* EXECUTE * < 

ALARM 

* CCW * 

************* 



CHANNEL 
QUEUE 
FULL 



.* I/O 
. OPERATION 
♦.COMPLETE . 



***** 
♦MF ♦ 
* D4* 



HI 



*****G3 ********** 

♦ INSERT X«18' ♦ 

♦ COMMAND * 
X* REJECT ♦ 

♦ MESSAGE CODE ♦ 

♦ * 
***************** 



. SENSE *. 
.♦ DATA IS ♦. YES 
♦IMPOSSIBLE FOR.^.... 
♦. THIS .♦ 
♦DEVICE. ♦ 
*. .♦ 
♦ NO 



PUTUTR 

*****H2********** 

♦ INSERT. X'19' ♦ 

♦ UNKNOWN ♦ 
...X^ SENSE DATA ♦ 

.♦ MESSAGE CODE ♦ 

♦ * 
***************** 



IS 
DEVICE 
SYSLOG 



LOGERP 

*****j2********** 

♦ INSERT X'10' ♦ 

♦ EQUIPMENT ♦ 
...X+ CHECK ♦ 

♦ MESSAGE CODE ♦ 



***************** 



MF * 

* J3* 

**** 



CNCL 

*****J3******* 

♦ TURN OFF ♦ 

♦ ALLOW RETRY ♦ 

♦ AND IGNORE ♦ 

♦ BITS IN ERQUE^ 

♦ FLAG BYTE ♦ 
************** 



*****H4********** 

♦ INSERT X'19« ♦ 

♦ UNKNOWN ♦ 
X^ SENSE DATA ♦ 

♦ MESSAGE CODE ♦ 

♦ * 
***************** 



*****J4******* 

* TURN OFF * 

* ALLOW IGNORE 

* BIT IN ERQUE 

* FLAG BYTE 

* * 
************** 



RSTQPT X 

*****G5********** 

♦ RESTORE * 

♦ CHANQ POINTER ♦ 

♦ TO DEVICE * 

♦ PUB ENTRY ♦ 

♦ * 
***************** 



RSTFLG X 

*****H5********** 

♦ RESTORE ♦ 

♦ CHANNEL * 
♦SCHEDULER FLAG * 

♦ TO DEVICE ♦ 

♦ PUB ENTRY ♦ 
***************** 

♦ ♦♦♦ I 

♦ * 
♦MF ♦... 

♦ H2^ 
**** 

AACT X 

*****j5******* 

♦ TURN ON ♦ 

♦ INTERVENTION * 

♦ REQUIRED BIT ♦ 

♦ IN ERQUE * 

♦ FLAG BYTE ♦ 



****K1********* 

♦ SVC 3 ♦ 

♦ $$ANERRV ♦ 

♦ CHART MH ♦ 
*************** 



****K5********* 

* SVC 3 ♦ 

* $$ANERRM ♦ 

* CHART LV ♦ 
*************** 



180 



DOS Supervisor and Physical and Logical Transients 



Chart MH. $$ANERRV - Phase 2 of Unit Record ERP (Part 1 of 2) 
Refer to Chart 07. 



***#A1********* 

* * 

* $$ANERRV * 

* * 
*************** 



**** 

* * 

* l * 



IJBERV20 X 

*****BL ********** 

* SSM TO * 

* ENABLE * 

* INTERRUPTS ON * 

* ALL CHANNELS * 

* * 
***************** 



.* DEVICE *. YES 
. A 2540 P OR .*.... 
*. 2520 P .* 



C02 
YES 



.* IS *. 

* DEVICE * 

A 1403/1404 



*N0 

*** 

*X.* 5 



*****C1 ********** 
*L0AD ADDRESSES * 

* OF COMREGt * 

* ERBLOC, AND * 

* PUB ENTRY * 

* * 
***************** 



*****D1 ********** 

* DETERMINE * 

* ADDRESS OF * 

* CCB FROM CHAN * 

* QUEUE LOAD * 

* CCB ADDRESS * 
***************** 



C2 *. 
.* IS *. 
* DEVICE 
A 2520 R/P 



D2 *. 

.* WAS *. 
EQUIPMENT 
CHECK ON 

. 2520 P . 



****D3******* 
TURN ON * 
EQUIPMENT 
CHECK BIT IN 
CCB BYTE 3, 
BIT 3 * 
************* 



***** 
*MJ * 
* D3* 



YES .* * 

...*. INTERVENTION 
♦.REQUIRED .* 



**** 

* * 

* 4 * 

* * 
**** 



YES .* *. 

...*. BUSOUT 

*. CHECK .* 



**** 
* 
2 * 



* USER 
WANTS 
ERROR 
RETURN 



BUSOUT 
YES . 



***** 
*MJ * 
* Bl* 



EQPCHK X 

*****F1 ********** 

* INSERT X'10* * 

* EQUIPMENT * 

* CHECK * 

* MESSAGE CODE * 

* * 
***************** 



* IS 

DEVICE 
A 1403 U 



*****P3******* 

* TURN ON * 

* PASSBACK 

* BIT IN ERQUE 

* FLAG BYTE 

* * 
************** 



***** 
*MJ * 
* B3* 



F5 *. 

* * 

OVERRUN 



* IS *.' 
DEVICE *. NO 
2540 R OR .*... 

1442 R/P .* 



G2 *. 
* * 

OVERRUN 



* 1 * 

* * 
**** 



**** 

* * 

* 3 * 



MVMSG 

*****H3** ******** 

* INSERT X'33« * 

* PARITY ERROR * 
...X* IN UCB * 
X * MESSAGE CODE * 

* * 
***************** 



INTREQ X 

*****G4* ********* 

* INSERT X«08' * 

* INTERVENTION * 

* REQUIRED * 

* MESSAGE CODE * 

* * 
***************** 



MO .♦ CHANNEL *. 

..♦-END OR DEVICE. 

*. END .♦ 



***** 
*MJ ♦ 
* C5+ 
* * 
* 
CMDREJ 

NO . 



* UNUSUAL *. 

COMMAND 
♦.SEQUENCE .* 



***** 
*MJ ♦HOI 
* B2* 
* * 



.♦ PUB ♦. YES 
♦. ERROR COUNT ...... 

♦. =1 .* 



*****j3******* 

♦ TURN OFF ♦ 

♦ ALLOW RETRY ♦ 

♦ AND IGNORE ♦ 

♦ BITS IN ERQUE* 

♦ FLAG BYTE ♦ 
************** 



CMDSEQ X 

*****j5******* 

♦ TURN ON ♦ 

♦ UNUSUAL ♦ 

♦ COMMAND SEQ. 

♦ BIT IN CCB, ♦ 

♦ BYTE 3, BIT 4 
************** 



***** 

♦ MJ ♦ 

* E4* 



***** 
*MJ * 
* G4* 



***** 
*MJ * 
* K5* 
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Chart MJ. $$ANERRV - Phase 2 of Unit Record ERP (Part 2 of 2) 
Refer to Chart 07. 



***** 

*MA * 
* E5* 



* INSERT X'U' * 

* DATA CHECK * 

* MESSAGE CODE * 

* * 
***************** 



CI *. 
.* IS *. 
* DEVICE 
A PRINTER 



***** 
*MH * 
* H5* 



***** 
*MH * 
* F5* 



*****C 2 ********** 

* INSERT X«19« * 

* UNKNOWN * 

* SENSE DATA * 

* MESSAGE CODE * 

* * 
***************** 



B3 *. 
* IS *. 
DEVICE * 
1443 P OR 
1445 P .* 



*****C3********** 

* * 

* INSERT X«14« * 

* OVERRUN * 

* MESSAGE CODE * 

* * 
***************** 



**** 

* * 

* 3 * 

* * 
**** 

.x! 



***** 
*MH * 
* G5* 



.X. 



**** 



**** 



**** 



Dl *. 


* 


.* IS *. 


**** 


DEVICE *. YES 




A 1443 P OR .*.... 




. 1445 P .* 




*. .* 


***** 


*. .* X 


*MH * 


*NO **** 


* D5* 



*MH * 

* B4* 
**** 

ATYPE X 

*****03******* 

* TURN ON * 

* INTERVENTION * 

* REQUIRED * 

* BIT IN ERQUE * 

* FLAG * 
************** 



***** 
*MH * 
* J2* 



**** 

* * 
*MH * 

* E3* 
**** 

C0100 X 

*****G1******* 

* TURN OFF * 

* ALLOW RETRY 

* BIT IN ERQUE 

* FLAG BYTE 

* * 
************** 



BUSOUT X 

*****E2********** 

* INSERT X«09« * 

* BUSOUT * 

* MESSAGE * 

* CODE * 

* * 
***************** 



INITIAL 

SELECTION 

*H1 



G2 *. 

.* IS *. 

.* DEVICE * 

. A 1403 P OR 

*. 1404 P .* 

*. .* 



* PUB * 

ERROR COUNT 
*. =1 .* 



CMDREJ .*. 

C5 *. 

.* IS 

YES .* DEVICE 

...*. A 1403 P 

*. 1404 P 



DEVICE 
1443 P 
1445 P 



* ADD 1 TO * 

* ERROR COUNT * 

* IN PUB * 

* * 
***************** 



****P4********* 

* SVC 3 * 

* EXRTY * 

* CHART DD * 
*************** 

**** 



**** 



**** 



*H1 
CONTROL UNIT 
END, DEVICE 
END, OR CHANNEL 
END BITS SET 
IN CSW STATUS 
BYTES. 



*MH * X.X 

* J4* CONT X 

**** ****G4********* 

* SVC 3 * 

* EXIGN * 

* CHART DD * 
*************** 



* GET ADDRESS * 

* OF LAST * 

* USED CCW * 

* * 
***************** 



F5 *. 

.* WAS * 

COMMAND 

CODE SET 

* MODE 

*. .* 

*. .* 

*N0 



BUS2 X 

*****H2******* 

* TURN ON * 

* ALLOW IGNORE * 

* BIT IN ERQUE * 

* FLAG BYTE * 

* * 
************** 



H3 *. 
.* IS *. 
.* DEVICE *. YES 
*.A 1442 R/P OR.*.... 
*. 1442 ~ 



*. 



.* 



***** 

*MH * 

* J3* 

* * 



J3 *. 
* IS * 

DEVICE 
A 2540 P 



* 4 *.X 



**** 
GETMSG X 

*****H5********** 

* INSERT X'18' * 

* COMMAND * 

* REJECT * 

* MESSAGE CODE * 

* * 
***************** 



*****j5******* 

* TURN OFF * 

* ALLOW RETRY * 

* AND IGNORE * 

* BITS IN ERQUE* 

* FLAG BYTE * 
************** 

**** 



****K5********* 

* SVC 3 * 

* $$ANERRM * 

* CHART LV * 
******** 
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Chart MK. $$ANERRW - MICR (1419D) ERP (Part 1 of 3) 
Refer to Chart 08. 



****A1>******** ' 

* * 

* $$ANERRW * 

* * 
*************** 



*****Bl ********** 

* SSM * 

* TO * 

* ENABLE * 

* ALL * 

* INTERRUPTS * 
***************** 



*****d********** 

* LOAD ADDRESS * 

* OF COMM RGN, * 

* ERBLOC, AND * 

* PUB FOR * 

* DEVICE * 

***************** 



*****Q1********** 

* MOVE X'00 1 * 

* INTO A-TRANS * 

* PHASE NAME * 

* FIELD OF * 

* ERBLOC * 
***************** 



.* ERROR ON 
. SECONDARY 
*. CONTROL . 
*.UNIT .* 



A3 *. 
.♦SHOULD-*. 
.* NOT-OCCUR 
.X*. SENSE BITS 
*. 3, 7 



*****A4********** 
* INSERT X'08' * 
INTERVENTION * 
REQUIRED * 
MSG CODE * 



***************** 



.X* 



♦ML-H4 
ML- J 3 
MM-E1 
**** 
* * 
** 



*.X 



**** 

* * 
X.* 4 * 

* * 
**** 



**** 

* * 

* 2 * 

* * 
**** 



**** 

* * 
*MM * 

* Dl* 
**** 

UNDTR X 

*****C3********** 

* INSERT X'L9« * 

* UNDETERMINED * 

* ERROR MESSAGE * 

* CODE * 

* * 
***************** 



BUSOUT 

*****C4********** 

* INSERT X«09« * 

* BUSOUT * 

* CHECK MSG * 

* CODE * 

* * 
***************** 



**** 
PSTERR X 

#****D2******* 

* TURN ON * 

* UNRECOV I/O * 

* ERROR IN CCB * 

* BYTE 2, BIT 2* 

* * 
************** 



**** 

X 
*****E2******* 

* TURN ON * 

* PASS BACK 

* BIT 2 IN 

* ERBLOC 

* ERROR FLAG * 
************** 



***** 

*ML *SCURTN 

* Bl* 



*****£4********** 

* INSERT X'37' * 

* DISENGAGE * 

* FAILED MSG * 

* CODE * 

* * 
***************** 



*****F1********** 

* LOAD RETURN * 

* ADDR «PCURTN' * 

* INTO RETURN * 

* REG * 

* * 
***************** 



****F2********* 

* SVC 3 * 
♦FETCH $$ANERRM * 

* CHART LV * 
*************** 



*G3 THE CCW 
CAUSING 
INTERRUPT IS 
CHECKED WITH 
X'El', A DUMMY 
COMMAND CODE 
FOR A FAILURE 
TO DISENGAGE. 



*****HL********** 
*PLCCB MM* 
*_*_*_*_*_*_*_*_* 

* GET CCB * 

* FOR POCKET * 

* LIGHT * 
***************** 



*****H2****^***** 
*SSCCB MM* 
*_*_*-*_*_*_*_*_* 

* GET CCB * 

* FOR STACKER * 

* SELECT * 

***************** 



PCURTN 

*****j i********** 

* INSERT X'28' * 

* CHAN DATA * 

* CHECK MSG * 

* CODE * 

* * 
***************** 



*****G4********** 

* GET ADOR * 

* OF CCW * 

* CAUSING * 

* INTERRUPT * 

* * 
***************** 



YES .* FAILED * 
....*. TO DISENGAGE 
*. *G3 .* 



*****A5********** 
♦TURN ON INT REQ* 

* BIT IN CCB, .* 
.X*TURN ON ERBLOC * 

*FLG FOR INT REQ* 

♦ AND PASSBACK * 
***************** 



*****B 5** ******** 

* * 

* SSM TO * 

* DISABLE I/O * 

* INTERRUPTS * 

* * 
***************** 



*****C5********** 

* TURN ON * 

♦ OPERATOR ♦ 

♦ INTERVENTION ♦ 

* BIT IN PUB * 
♦CHAN SCHED FLG ♦ 
***************** 



*****05********** 

♦ TURN ON ♦ 

♦ CHAN END * 

♦ BIT IN CSW * 

♦ STATUS BITS ♦ 



******** 



c******** 



IREXIT 

*****j3********** 
♦TURN ON INTERV ♦ 
* REQ'D BIT IN ♦ 
♦CCB BYTE 3 BIT ♦ 
♦1 AND IN ERBLOC^ 
♦ERROR FLG, BIT 1* 
***************** 



*****j 4**** ****** 

* INSERT X«18' * 

* COMMAND ♦ 

* REJECT MSG ♦ 

* CODE * 

* * 
***************** 



*****F5*** 

♦ TURN OFF 

* OPERATOR 

♦ INTERVENTION 

* BIT IN PUB 
♦CHAN SCHED FLG 
**************** 



*****Q5 ********** 

♦ MOVE X'OC * 

♦ TO CSW STATUS * 

♦ BYTE FOR * 

♦ CHAN END * 
♦AND DEVICE END * 
***************** 



.♦ CSW ♦. 
.HAS A COMMAND. 
♦. ADDRESS .♦ 



*****j5***** 

♦ INSERT DUMMY 

* ADDRESS 

* X'OOIOOO 1 

♦ IN CSW 



******* 



******** 



**** 

* * 

* 3 ♦ 

* * 
**** 



**** 

* * 

* 4 * 

* * 
**** 



****K5********* 

♦ SVC 3 * 

♦ EXIGN ♦ 

♦ CHART DD * 
*************** 
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Chart ML- $$ANERRW - MICR (1419D) ERP (Part 2 of 3) 
Refer to Chart 08, 



***** 

*MK * 

* El* 

* * 



.* STACKER *. 

♦SELECT COMMAND. 

*. CODE .* 



SSCOM 

*****C1 ********** 
*SSCCB MM* 
*-*-*_*-*,-*_*_*_* 

* GET CCB FOR * 

* STACKER * 

* SELECT * 
***************** 



*****0i ********** 

* LOAD ADDRESS * 

* OF CCB AND * 

* ADD DISPL TO * 

* GET DOCUMENT * 

* BUFFER * 
***************** 



.♦SHOULD-*. 
.* NOT-OCCUR *. YES 
. SENSE— BYTE .*.... 
*.O f X'18' .* 



INRQ 

*****C3********** 

* INSERT X'08' * 

* INTERVENTION * 

* REQUIRED * 

* MSG CODE * 

* * 
***************** 



.* STACKER *. 

*SELECT COMMAND. 

*. CODE .* 



* GET CCB FOR * 

* POCKET * 

* LIGHT * 
***************** 



CONT X 

*****£!********** 

* INSERT X«28« * 

* CHAN DATA CHK * 

* MESSAGE * 

* CODE * 

* * 
***************** 



* INSERT X'09' * 

* BUSOUT CHECK * 

* MSG CODE * 

* * 
***************** 



*****Gi ******** 

* INSERT X'19« 

* UNDETERMINED 

* ERROR MSG 

* CODE 

*********** 



***** 
*MM * 
* El* 



***** 
*MM * 
* Bl* 



.* STACKER *. YES 
*SELECT COMMAND.*.... 
*. CODE .* 



OPVNT 

*****F4******* 

* TURN ON * 

* INTERVENTION * 
♦REQUIRED BIT 1 

* IN ERBLOC * 

* ERROR FLAG * 
************** 



****G4* ******** 

* SVC 3 FETCH * 

* SSANERRM * 

* CHART LV * 
*************** 



.* STACKER *. N 
♦SELECT COMMAND.*. 
*. CODE .* 



.* ALREADY 
.X*. RETRIED 

*■. ONCE 



.X. 



*YES 

'. * 
.X.* 



*** 

* 
2 * 



**** 
PSTBUF X 

***** j 3 ********** 

* POST BITS * 

* AND 1 IN * 
*DOCUMENT BUFFER*. 

* BYTE * 

* * 
***************** 



*****F5********** 
*POST BITS AND* 
*1 IN DOC BUFFER* 
*BYTE 0. INSERT* 

* REJECT DOC * 

* X'CF', BYTE 5 * 
***** ************ 



#***G5********* 

* SVC 3 * 

* EXIGN * 

* CHART DD * 
*************** 



*****H5********* 

* INCREMENT 

* RETRY COUNTER 

* PUB BYTE 3 

* BY ONE 

**************** 



****J5********* 
SVC 3 * 
ENTRY * 
CHART DD * 

*************** 



***** 
*MK * 
* D2* 
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Chart MM. $$ANERRW - MICR (1419D) ERP (Part 3 of 3) 
Refer to Chart 08. 



***** 

*ML * 
* F3* 



.* BATCH 
. NUMBERING 
*. SWITCH . 



COMRJ 

*****d ********** 

* INSERT X«18' * 

* COMMAND * 

* REJECT MSG * 

* CODE * 

* * 
***************** 



X 

***** 
*MK * 
* C3* 



.* STACKER *. 


YES 


SELECT COMMAND. 


*... . 


*. CODE .* 




*. .* 




*. .* 


X 


*NO 


***** 




*ML * 


. 


* J3* 



***** 
*MK * 
* D2* 



*****C3 ********** 

* INSET X'34« * 

* BATCH NO. SW * 

* OFF MSG * 

* CODE * 

* * 
***************** 



*****D3 ********** 
*P0ST BITS AND* 

* 1 DOC BUFFER * 

* BYTE 0, INSERT * 

* REJECT DOC * 
♦X'CF" IN BYTE 5* 
***************** 



*****E3******* 

* TURN OFF * 

* ALLOW RETRY * 
*BIT 5, TURN ON * 

* ALLOW IGN BIT* 

* 3 IN ERBLOC* 
************** 



****P3********* 

* SVC 3 FETCH * 

* $$ANERRM * 

* CHART LV * 
*************** 



****A4********* 



*************** 



*****B4********** 

* GET EXTERNAL * 

* INTERRUPT * 

* STATUS FROM * 

* PUB BYTE 5 * 

* * 
***************** 



*****C4********** 

* TRANSLATE * 

* THIS VALUE TO * 
*A DISPLACEMENT * 

* WITHIN THE * 

* DTF TABLE * 
***************** 



*****04********** 

* ADD THIS * 

* DISPLACEMENT * 

* TO THE START * 

* ADDRESS OF * 

* THE TABLE * 
***************** 



*****E4********** 

* GET ADDRESS * 

* OF DTF (CCB) * 

* FROM THIS * 

* LOCATION AND * 

* SAVE *F5 * 
***************** 



****F4********* 

* RETURN TO * 

* PCURTN * 

* VIA REG 'RET* * 
*************** 



****A5********* 

* * 

* PLCCB * 

* * 
*************** 



*****B5********** 

* LOAD POINTER * 

* TO CHAN * 

* QUEUE FROM * 

* PUB BYTE 2 * 

* * 
***************** 



*****C5********** 

* MULTIPLY THIS * 

* VALUE BY 4 * 

* AND ADD TO * 

* THE ADDR OF * 
*THE CHAN QUEUE * 
***************** 



*****D5********** 

* GET THE CCB * 

* ADDR FROM THE * 

* CHAN QUEUE * 

* AND CLEAR THE * 

* HI-ORDER BYTE * 
***************** 



****E5********* 

* RETURN TO * 

* PCURTN * 

* VIA REG 'RET 1 * 
*************** 



*F5 
FIRST 16 BYTES 
OF DTF CONTAIN 
THE CCB. 
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Chart MN. $$ANERRX - Paper Tape ERP (Part 1 of 2) 
Refer to Chart 07. 



****A1********* 

* * 

* $$ANERRX * 

* * 
*************** 



* SSM TO * 

* ENABLE ALL * 

* INTERRUPTS * 

* * 
***************** 



CHANNEL 
DATA 
CHECK 



X 


CHDTCK .*. 


*****ci********** 


C2 *. 


* LOAD ADDRESS * 


.* *. 


* OF COMREG * 


YES .* INITIAL *. 


* AND * 


...*. SELECTION .* 


* ERROR BLOCK * 


*. *F2 .* 


* * 


♦ . .* 


***************** 


X ♦. .* 




***** *nq 




*NP * . **** 




* C5* . * * 




* * CANCON ...* 2 * 




* * * 




**** 


X 


SETFLE X 


*****Di********** 


*****D2******* 


* MOVE STATUS * 


* TURN OFF * 


* BYTE DATA * 


* ALLOW RETRY * 


* FROM CSW * 


♦AND IGNORE BITS* 


* INTO SAVE * 


* 3 AND 5 IN * 


* AREA CCSW1 * 


* ERR FLAG * 


***************** 


************** 




♦ MP-D2**** '. **** 




MP-D4* * . * * 




M p_ D 5* *.X.X.* 4 * 




MP-H2* * * . * * 




MP-J3**** . **** 


X 


CALLMW 


*****£! ********** 


X 


* LOAD ADDRESS * 


****E2********* 


* OF PUB AND * 


* SVC 3 * 


* GET ADDRESS * 


♦FETCH $$ANERRM * 


* OF CHANNEL * 


* CHART LV ♦ 


* QUEUE POINTER * 


*************** 


***************** 





*****F1 ********** 

♦ CALCULATE ♦ 

♦ AND LOAD ♦ 

♦ ADDRESS OF ♦ 

♦ CCB ♦ 

♦ * 
***************** 



*****Gi ********** 

♦ INSERT X'28' ♦ 

♦ CHAN DATA ♦ 

♦ CHECK MSG * 

♦ CODE *. 

♦ * 
***************** 



*F2 

CONTROL UNIT 
END, DEVICE 
END, OR CHAN 
END. 



*****H2 ********** 

* INSERT X'18' ♦ 

* CMND REJECT 

* MESSAGE 

* CODE * 

* * 
***************** 



*****B3********** 

* INSERT X«19« ♦ 

* UNUSUAL ♦ 
.X* SENSE ♦ 

* MESSAGE * 

* CODE ♦ 
***************** 



CHANNEL ♦. NO 
OR DEVICE .♦... 
END .♦ 



*****D5********** 

* INSERT X«10« ♦ 
EQUIPMENT ♦ 

CHK MSG * 

* CODE * 

* * 
***************** 



.X* 



**** 

* * 

* 3 * 

* * 
**** 



...* 


EQUIPMENT 

*. CHECK .♦ 

*. .* 


.♦ 


X 


*. .* 




***** 


*NO 




♦MP * 






* F3* 






* * 






* 






EQUCHK 


X 
lt***p5******** 




** 


** 


* 


INSERT X'08' 


* 


* 


INTERVENTION 


* 


* 


REQ MSG 


* 


* 


CODE 


* 



X 

***** 
*MP * 
* C4* 



*****G4********** 

* INSERT X«ll' * 
DATA CHK * 

MESSAGE * 
» CODE * 

* * 
***************** 



.X* 



***************** 



NO .* * 

...♦.INTERVENTION 
♦.REQUIRED .* 



♦ X. 



*****H4******* 

♦ TURN ON ♦ 

♦ INT. REQ 

♦ BIT 1 IN 

♦ ERBLOC 

♦ ERR FLAG * 
************** 



***** 
♦MP * 
* H2* 



*****j3********** 

* INSERT X«19« * 

* UNUSUAL * 

* SENSE MSG * 

* CODE * 



********** 



**** 

* * 

* 4 * 



***** 



USER 


*. 


NO 


WANTS 




♦ . ... 


RETURN 






.* 






*. .* 




X 


♦YES 




***** 
*MP * 
* El* 


X 




* * 


***** 




* 


♦MP ♦ 




MODCC 


* Bl* 
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Chart MP. $$ANERRX - Paper Tape ERP (Part 2 of 2) 
Refer to Chart 07. 



***** 

*MN * 

* J4* 

* * 



***** 
*HN * 
* F3* 



***** 
*MN * 
* C2* 



*****Ql******* 

* TURN ON DATA* 

* CHECK BIT IN * 

* CCBt BYTE 3, 

* BIT 3 * 

* * 
************** 



*****B2********** 

* STORE UPOATEO * 

* I/O AREA * 

* ADDRESS IN * 

* CCW HOLD * 

* AREA * 
***************** 



*****Ql******* 

* TURN ON * 

* ALLOW IGNORE 

* BIT 3 IN 

* ERBLOC ERROR 

* FLAG * 
************** 



*****£ 2********** 

* GET RESIDUAL * 

* COUNT t ADD 1 * 
♦TO IT AND STORE* 

* NEW CCW COUNT * 

* IN HOLD AREA * 
***************** 



*****C4********** 

* INSERT X«09« * 

* BUSOUT CHECK * 

* MESSAGE * 

* CODE * 

* * 
***************** 



CANCON 

*****£$******* 

* TURN OFF * 

* ALLOW RETRY 

* AND IGNORE 

* BITS 3+5 

* IN ERR FLG * 
************** 



*****oi******* 

* TURN OFF * 

* INTERV REQ * 

* BIT IN ERROR * 

* FLAG * 

* * 
************** 

**** l 

* * 
*MN *... 

* J4* 
**** 

MODCCW X 

*****£l********** 

* GET ADDRESS * 

* OF CCW AND * 

* LOAD IT INTO * 

* WORK REG 15 * 

* * 
***************** 



*****D2********** 

* GET ADDRESS * 

* OF CCW AND * 
♦RESTORE UPDATED* 

* CCW IN WORK * 

* REG 15 * 
***************** 



* * CALLMW 



***** 

*MN * 

* E2* 

* * 



***** 
*MN * 
* E5* 



* SET THE PUB * 

* ERR COUNT * 

* AREA TO 1 * 

* * 
***************** 



*****fl********** 

* MOVE CCW TO * 

* CCW HOLD AREA * 

* AND MOVE * 

* RESIDUAL CNT * 

* TO HOLD ,AREA * 
***************** 



***** 
*MN * 
* G5* 



****?4********* 

* SVC 3 * 

* EXRTY * 

* CHART DD * 
*************** 



*****Gl********** 

* LOAD CCW CNT * 

* INTO WORKREG * 

* AND SUBTRACT * 

* RESIDUAL CNT * 

* * 
***************** 



USER 

WANTS 

RETURN 



X>****H1 ********** 

* SUBTRACT 1 * 

* FROM WORKREG * 

* AND ADD TO * 

* IT I/O AREA * 

* ADDRESS * 
***************** 



ATYPE 

*****H2******* 

* TURN ON * 

* INT. REQ 

* BIT 1 IN 

* ERBLOC ERROR 

* FLAG * 
************** 



*****H3******* 

* TURN ON * 

* INT. REQ. BIT* 
*IN CCB, BYTE 3,* 

* BIT 1 * 

* * 
************** 



NOCCB X 

*****j 3 ******* 

* TURN ON * 

* ALLOW IGNORE 

* BIT 3 IN 

* ERBLOC 

* * 
************** 



***** 
*MN * 
* E2* 
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Chart MQ. $$ANERRY - Physical Attention Routine: 
Refer to Chart 09. 



Send Message 



***** 

*MR * 

* F3* 

* * 



****A1********* 

* * 

* $$ANERRY * 

* * 
*************** 



IJBPA224 

*****b 1 ********** 

* LOAD AODR OF * 

* COMM RGN * 

* AND PIB * 

* TABLE * 

* * 
***************** 



*****Cl ********** 

* SET X f 81« * 

* IN FLAG BYTE * 
*0F ATT RTN PIB * 
♦FOR REGS STORED* 
♦AND SVC 2 BOUND* 
***************** 



*****D1********** 

* * 

* LD ADDR * 

* OF ERROR * 

* BLOCK * 

* * 
***************** 



*****E i ********** 

* MODIFY * 

* PHASE NAME * 
IN ERROR * 



*****pi ********** 



***************** 



*****Gl ********** 
*SET SYSTEM MASK* 
*TO PREVENT EXT * 
♦INTRPT. LOAD 3 * 
*IN R12 COUNTER * 
*F0R NO. OF PIBS* 
***************** 



* 1 * 

* * 
**** 



* 1 *.X 



**** 
CANTLP X 

*****B2********** 
*INSERT STORAGE * 

* KEY FROM * 
♦INTERPHASE COMM* 

* RGN IN REG 10 * 

* *J1 * 
***************** 



**** 

* * 

* 2 * 

* * 
**** 



* REG 10 

EQUAL ZERO 
*. *J4 



X 

***** 

*MR *TCAN2 

* F3* 



*****C3********** 

* SUPPRESS PROG * 
♦IDENTIFICATION * 

* BY NO-OPING * 
*CCW2 AND CCWOA * 

* COMMAND CODES * 
***************** 



******B4*********** 

SVC 15 

♦ WRITE MSG ♦ 

GET OPTR 

* REPLY ♦ 

************* 



I/O ♦. YES 
QUEUE .*.... 
.OVERFLOW .* 



*****P2********^ 

* ADD KEY * 

* TO PIB TABLE ♦ 

* ADDR TO ♦ 

* INCREMENT TO ♦ 

* PROPER PIB * 
***************** 



*****E2********** 

* MOVE PROGRAM * 
♦IDENTIFICATION * 

* FROM PIB TO * 
♦MESSAGE OUTPUT * 

* AREA * 
***************** 



LOGRTN 

***#*F2******^+^+ 
♦PUT OUTPUT ADDR+ 
♦FOR MSG IN CCW2^ 
♦AND CCWOA. PUT^ 

* TYPIN ADDR IN ♦ 
♦CCW3 FOR REPLY ♦ 
***************** 

**** 

* * 
♦MR ♦ 

* Gl* 
**** 

L0G1 X 

*****G2***^****** 

* STORE TYP0UT1 ♦ 

* ADDR IN DATA ♦ 

* ADDR PORTION ♦ 

* OF CCW1 ♦ 

* * 
***************** 

**** 

* * 
*MR * 

* 02* 
**** 

L0G2 X 

*****H2********** 

* * 

* PUT ADDR * 

* OF CCWOA * 

* IN CCB * 

* * 
***************** 



LOGTST X 

*****D3********** 

* LD LUB TABLE * 
♦ADDR IN REG 15 * 
♦GET SYSLOG PUB * 

* ENTRY ADDR * 

* IN REG 10 * 
***************** 



LOGWAIT .*. 

E3 *. 

.♦SYSLOG ♦. 

.♦NOW QUEUED 

♦. FOR ERROR 

♦.RECOVERY . 



F3 ♦. 

.♦SYSLOG ♦. 

.♦ NOW ON ♦ 

CHANNEL 

♦. QUEUE .♦ 



*****D4* ********* 

* * 
♦INSERT ADDR OF ♦ 

♦ LABEL WAIT ♦ 

♦ IN WAIT PSW ♦ 

* * 
***************** 



.♦ SYSLOG 
. I/O OPER 
♦.COMPLETE 



*****F4********** 

* LOAD WAIT * 

* PSW. WAIT * 

* FOR OPERATOR ♦ 

* RESPONSE ♦ 

* * 
***************** 



CHQOVFLW 

*****D5********** 

* SET ATTN RTN * 

* PIB FLAG TO * 

* SHOW REGS * 
♦STORED AND ATT * 

* RTN IS ACTIVE * 
***************** 



HOLDQUE 

*****G3********** 
♦SAVE PUB CHANQ ♦ 

♦ PNTR AND CHAN * 

♦ SCHED FLAGS * 

♦ MOVE X'FF« TO * 

♦ CHANQ PNTR ♦ 
***************** 



*****H3++**+***** 

* RESET SYSLOG * 
♦CHAN SCHED FLGS* 

* SO I/O OPER * 

* CAN BE * 

* PERFORMED * 
***************** 



RSTCHQ 

*****G4********** 

* RESTORE USING * 

* PROG CHANQ * 

* PNTR AND CHAN ♦ 
♦SCHED FLAGS TO * 

* SYSLOG PUB * 
***************** 



***** 

♦ MR * 

* 82 + 



*J1 
IF PHASE Z WHILE SCANNING 
THE PUB TABLE FOUND A 
DEVICE REQUIRING OPERATOR 
INTERVENTION, PHASE Z 
THEN IDENTIFIED THE Fl, 
F2 OR BG PROGRAM USING 
THE DEVICE, STORED ITS 
STORAGE KEY IN THIS 
INTERPHASE COMMUNICATIONS 
AREA AND CALLED THIS 
PHASE. 



**** 

* * 

* 2 * 

* * 
**** 



♦J 4 
IF REG 10 IS ZERO, NO 
DEVICES REQUIRED OPERATOR 
INTERVENTION FOR Fl TYPE 
PROGRAM WHICH IS CHECKED 
FIRST TIME THROUGH LOOP. 
SO THE LOOP COUNTER IN 
REG 12 IS REDUCED BY 1. 
REG 12 IS ALSO BEING USED 
TO INDEX THE INTERPHASE 
COMMUNICATIONS AREA. IT 
NOW POINTS AT THE NEXT 
LOWER STORAGE BYTE WHERE 
F2 CAN BE CHECKED AND 
FINALLY BG. 
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Chart MR. $$ANERRY - Physical Attention Routine: 
Refer to Chart 09. 



Read Operator Reply 



♦ A3 
THE STORAGE KEY FOR PROGRAM ABOUT 
WHICH OPERATOR WAS JUST INTERROGATED 
IS RECOVERED FROM INTERPHASE 
COMMUNICATIONS BYTE WHERE PHASE Z 
PUT IT WHEN IT WAS DETERMINED THE 
PROGRAM OWNED DEVICES REQUIRING 
OPERATOR INTERVENTION. THIS 
IDENTIFYING STORAGE KEY IS NOW 
MOVED TO A UNIQUE BYTE IN. THE 
INTERPASE COMMUNICATIONS AREA 
FOR USE BY PHASE Z WHEN IT IS 
LATER REFETCHEO. 



.UNRECOVERABLE.* 

*. ERROR ON .* 

♦SYSLOG. ♦ 



**** 

* * 

* 2 * 

* * 
**** 



*****£ 2 ♦♦♦♦♦♦♦♦♦♦ 

* ♦ 

* LOAD ADDR * 

* OF CCW 2 * 

* INTO REG * 

* * 
***************** 



YES .* UNIT ♦ . 




...*. EXCEPTION ON . 


* 


*. SYSLOG .* 




*. .* 




X *. .* 




***** *nq 




*MQ * 




* H2* 




* * 




* 




L0G2 X 




.*. 




E2 *. 




.* WAS *. 




.* OPERATOR * 




*. RESPONSE 


* 


*. IGNORE .* 









. 


*JS *.x. 






* C2* 




X 


**** X 




.*. 


TCAN2 .*. 




F2 *. 


F3 *. 




.* WAS *. 


.* LOOP *. 




NO .* OPERATOR *. 


.* CTR IN *. NO 






......*. RESPONSE .* 


*. REG 12 ZERO .*.... 






*. CANCEL .* 


*. *G5 .* 






*. .* 


*. .* 








*. .* X 






*YES 


. *YES ***** 
**** . *MQ * 

* * . * B2* 

* 2 *. . . * * 

* * * 
**** . CANTLP 


NVAL X 


POSTCAN X 


SETARON X 


*****Gl ********** 


*****G2 ******* 


*****G3* ********* 


* LOAD ADDR OF * 


* MODIFY * 




* INVALID * 


* INSTRUCTION * 


* LOAD ERROR * 


* MESSAGE * 


* AT LABEL * 


* BLOCK ADDR * 


* IN REG * 


* CNCLSW TO * 


* IN REG 15 * 


* * 


* BRANCH * 


* * 


********:< 


)c******** 


************** 


***************** 



.* ATT *. 

.*REQUEST SW 

. ON IN ATT 

*PIB SWITCH. 



*****C 5** ******** 

* * 

* MODIFY PHASE * 

* NAME TO CALL * 

* $$ANERRO * 

***************** 



*****H2 ********** 
♦INSERT LTK FROM* 
♦INTERPHASE COMM* 
*REGN INTO REG 0* 

* TO IDENTIFY * 

* PROG CANCELED * 
***************** 



.*BRANCH *. 
.* IF ANY 
. PROGS WERE 
*. CANCELED . 



*****05******* 

* SET ATT * 

* REQUEST SW * 

* ON IN ATT RTN 

* PIB SWITCH * 

* BYTE * 
************** 



****#E5** ******* 

* LOAD REG 15 

* WITH ADDR 

* OF SUPVR 
♦ATTENTION EXIT 

* FROM ERBLOC 
**************** 



****F5****** 

* SVC 3 

* $$ANERRO 

* CHART MU 



*G5 
DURING LOOP IF PROGRAM 
STORAGE KEY FOUND 
INDICATING A DEVICE(S) 
REQUIRING OPERATOR 
INTERVENTION, A MESSAGE 
IS OUTPUT ON SYSLOG. 
ITS SAMPLE FORMAT IS- 
AR 0P60D I INTERV REG 

FOR Fl AR HERE 

THE OPERATOR IS TO 
TYPE HIS RESPONSE, 
IGNORE OR CANCEL. 

IF HIS RESPONSE IS 
OTHER THAN IGNORE OR 
CANCEL, THIS PHASE 
ISSUES A MESSAGE 
0P60D INVALID RESPONSE 
AND OPERATOR REPLIES 
AGAIN. 



***** j 2 ********** 
*STORE CANCELED * 
* PROG LTK IN * 
♦INTERPHASE COMM* 
*REGN WHERE CNCL* 
♦INFO KEPT *A3* 
***************** 



CALLSEC3 

*****J4********** 

* TURN ON ATT * 

* RTN RECALL * 

* SWITCH IN * 

* ATTENTION PIB ♦ 

* * 
***************** 



****«4********* 

♦ SVC 3 ♦ 

♦ $$ANERRZ ♦ 

♦ CHART MS ♦ 
*************** 
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Chart MS. 



$$ANERRZ r Physical 
Refer to Chart 09. 



Attention Routine: Initial PUB Scan 



**** 

* * 

* i * 



****A1********* 

* * 

* $$ANERRZ * 

* * 
*************** 



* LOAD ADORESS * 

* OF COMM REGN * 

* ANO PIB TABLE * 

* * 
***************** 



*****C1******* 

* SET ATTN * 

* PIB FLAG TO 

* REGS STORED 

* AND SVC 2 

* BOUND * 
************** 



*****0i ********** 

* * 

* LOAD ADDRESS * 

* OF * 

* ERROR BLOCK * 

* * 
***************** 



*****E i ********** 

* MODIFY PHASE * 

* NAME IN * 

* ERBLOC TO * 

* $$ANERR «01« * 

* * 
***************** 



X 






CALLSEC2 X 


*****A2********** 








*****A3******* 


* SET LTK * 








* SET FETCH * 


* SAVE AREA IN * 








* PHASE NAME * 


* INTERPHASE * 








* TO * 


* AREA TO ZERO * 








* $$ANERRY * 


* * 








* * 


***************** 








************** 


**** '. 










* * . 










* 5 ♦ . .. 










* * . 










**** 










FINDPUB1 X 










*****B2********** 








X 


♦PUBSCN MT* 








****B3********* 


*_*_*. *^ *-*_*-*_* 








* SVC 3 FETCH * 


* SCAN FOR * 








* $$ANERRY * 


* INTERVENTION * 








* CHART MQ * 


* REQ IN PUBS * 








*************** 


***************** 










X 

.*. 

C2 *. 










.* *. 










.* END *. YES 






*. OF PUB .*. 










♦ . SCAN .* 










*. .* 








**** 


*. .* 




X 




* * 


♦NO 


**** 


* 3 * 




* 




* 


* * 




* 


2 


* 


**** 




* 




* 






**** 




X 








X 


*****D2********** 








*****D3******* 


♦QUEID MT* 








* TURN ON * 


*-.*_*.*_*-*_*_*-* 








* ATTENTION * 


* FIND PROGRAM * 








* REQUEST * 


* THAT OWNS * 








* SWITCH * 


* THE DEVICE * 








* IN PIB * 


***************** 








************** 

**** I 

* * . 

* 6 *... 

* * 


X 








**** 


.*. 






EXIT X 


E2 *. 








*****E3********** 


.* *. 








* SET REG 15 * 


.* Fl *. NO 






* WITH ADDR * 


*. F2 OR BG .*. 








* OF GENERAL * 


*. PROG .* 








* EXIT * 


*. .* 




. 




* (EXT02) * 


*. .* 




X 




***************** 



*. SYSLOG A 


.* 


.... 


*. 1052 


* 




*. .* 






*. .* 




X 


*NO 




**** 
* 

* 6 
* 

**** 


X 






*****Gi******* 






* SSM TO 


* 




* PREVENT 


* 




* EXTERRAL 


* 




* INTERRUPTS 


* 





*****P2********** 

* CA1C STORAGE * 

* PROTECT KEY * 
♦VALUE AND STORE* 

♦ IN INTERPHASE ♦ 

♦ AREA ♦ 
***************** 



****P3********* 

♦ SVC 3 FETCH * 

♦ $$ANERRO * 

♦ OR $$BATTNA ♦ 
*************** 



♦G3 
THIS SWITCH IS ON 
ONLY IF THE ATTENTION 
KEY HAS BEEN PREVIOUSLY 
DEPRESSED. THIS 
CONSTITUES A REQUEST 
FOR AN EMERGENCY 
CANCEL AND CAUSES 
$$ANERRO TO BE FETCHED. 



************** 



*****H1******* 

♦ MODIFY INST+ 

♦ AT LTKHLD ♦ 

♦ IN QUEID 

♦ ROUTINE ♦ 

♦ WITH LTK ♦ 
************** 



.♦ PENDING ♦. YES 
.INTERVENTION ...... 

♦.REQUIRED .♦ 



.♦ RECALL ♦ 


YES 


.♦ ATTN ♦. NO 


♦. SWITCH 


* 




♦REQUEST SWITCH. ♦.. 


♦. ON .♦ 






♦. ON .♦ 


♦ . .♦ 






♦. ♦GS .♦ 


*. .♦ 




X 


♦ . .♦ 


♦ NO 




***** 

♦MT ♦ 

♦ A1 + 

* * 

* 


♦YES 






SECTI0N3 


SECTI0N1 X 






X 


****** i********** 




♦♦♦♦♦(^♦♦♦♦♦♦^ 


♦ CLEAR 


* 




♦ SET FETCH ♦ 


♦ INTERPHASE 


* 




♦ PHASE NAME ♦ 


♦COMMUNICATIONS 


* 




* TO ♦ 


♦ AREA 


* 




♦ $$ANERRO ♦ 



***************** 



************** 
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Chart MT. $$ANERRZ - Physical Attention Routine: 
Refer to Chart 09. 



Cancel 



***** 

♦ MS * 

* Jl* 



SECTI0N3 X 

*****A1******* 

* RESET * 

* RECALL AND * 

* REQUEST 

* SWITCHES IN * 

* PIB SW BYTE* 
************** 



SETPOSTL 

*****B1********** 

* LOAD REG * 

* WITH LOOP * 

* CONTROL * 

* COUNT OF 3 * 

* * 
***************** 



STEPLOOP X 

*****A2********** 

* REDUCE LOOP * 

* CONTROL COUNT * 

* BY 1 AND * 

* TEST FOR * 

* MORE CANCELS * 
***************** 



B2 *. 

* ALL * 

PROGRAM 

TYPES 
CHECKED 



CNCLLOOP X 

*****Cl ********** 

* LOAD REG * 

* WITH KEY OF * 

* PROG TO BE * 

* CANCELED * 

* * 
***************** 



OPERATOR 
OPTION IS 
. CANCEL . 



*****£!******* 

* SET CANCEL * 

* FLAG X'40« IN* 

* APPROPRIATE * 

* PIB * 

* * 
************** 



Fl *. 

.♦CANCEL *. 

.♦IN PROGRESS*. 

. OR ALREADY . 

♦.CANCELED .* 



*****Gi******* 

* SET CANCEL * 

* CODE TO * 

* X«59MN 

* PIB * 

* * 
************** 



.* CANCEL *. NO 
*.OF A LQGICAL .♦..X 
♦.TRANSIENT.^ 



*****jl******* 

* SET CANCEL ♦ 

* FLAG X'80« IN+ 

* APPROPRIATE ♦ 

* PIB * 

* . * 
************** 



**** 
PUBSCN3 X 

*****C2********** 
♦PUBSCN MT* 
*_*_*_*-.*_*-*-*_* 

♦ SCAN FOR * 

♦ INTERVENTION ♦ 

♦ REQ IN PUBS * 
***************** 



END 
OF 
. PUBSCAN 
♦ . .♦ 



*****A3********** 

* LOAD ADDR * 

* OF PUB * 

* ENTRY FOR * 

* DEV * 

* * 
***************** 



****B3********* 

* SVC 3 * 

* PUBDEQ * 

* CHART FD *K3 * 
*************** 



*****C3 ********** 

* RESET PUB * 
♦ENTRY ADDR AND * 

* SSM TO ALLOW * 
♦I/O INTERRUPTS ♦ 

* * 
***************** 



****A4**+****^ 

* * 

* PUBSCN * 

* * 
*************** 



*****B4********** 

* ADD 8 TO THE ♦ 

* PUB ADDR TO * 

* STEP THROUGH * 

* PUB TABLE ♦ 

* ENTRIES ♦ 
***************** 



C4 *. 

.♦ ALL ♦. 

.♦ PUB TABLE *. 

ENTRIES 

♦. SCANNED 



.* 



*****E2********** 
♦QUEID MT^ 
*-*_*_*_*_*_*.*_* 

♦ FIND THE ♦ 

♦ PROGRAM THAT ♦ 

♦ OWNS DEVICE ♦ 
***************** 



Fl 
F2 OR 

BG PROG 



CANCEL ♦. 

UE TO NORMAL. 

EOJ .♦ 



*****H2********** 
♦SSM TO PREVENT ♦ 
♦ALLvINTERRUPTS ♦ 

♦ ^AND SET ♦ 

♦ DEQUEUE EXIT ♦ 

♦ (PUBDEQ) ♦ 
***************** 



*****j2********** 

♦ * 

♦ LOAD CHAN ♦ 

♦ AND UNIT ♦ 

♦ NUMBER ♦ 

♦ * 
***************** 



ENDPUBS3 

*****E3********** 

* LOAD REG 15 * 

* WITH ADDR ♦ 

* OF ATTN EXIT * 

* (EXT02) ♦ 

* * 
***************** 



****P3********* 

♦ SVC 3 * 

♦ EXT02 ♦ 

♦ CHART BC ♦ 
*************** 



****E4********* 

♦ RET TO ADDR ♦ 

♦ IN LNKREG ♦ 

♦ PLUS 4 ♦ 
*************** 



****A5********* 

* * 

* QUEID ♦ 

* * 
*************** 



*****B5** ******** 

♦ CALC ADDR ♦ 

♦ OF REQID FOR ♦ 

♦ DEV AND MOVE ♦ 

♦ ZONE TO * 

♦ REGISTER 10 ♦ 
***************** 



*****C5********** 

♦ GET ADDR * 

♦ OF CCB FOR * 

♦ DEVICE FROM ♦ 

♦ CHANNEL * 

♦ QUEUE * 
***************** 



.♦CCB IS ♦. 
.♦IN LOGICAL 
. TRANSIENT 
♦. AREA 



LTKHLD 

*****£ 5********** 

♦ PUT LTK INTO * 

♦ REG 10 AND * 

♦ INTO * 

♦ INTERPHASE * 

♦ AREA ♦ 
***************** 



****H3********* 

♦ SVC 3 ♦ 

♦ EXCAN ♦ 

♦ CHART FE * 
*************** 



F1.F2 
OR BG 
PROG 



*****G5********** 

* * 

* SET * 

* REQID TO * 

* ♦ 

* * 
***************** 



****H5******: 

♦ RET TO 

♦ ' ADDR IN 

♦ LINKREG 
********** - 



BYCNL X 

****** I********** 

♦ LOAD ADDR ♦ 

♦ OF CANCEL ♦ 

♦ EXIT * 

♦ (EXCAN) ♦ 

♦ * 
***************** 



*K3 
DEVICES REQUIRING INTERVENTION 
ARE DEQUEUED* AND PROCESSING 
RETURNS IN-LINE. 
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Chart MU. $$ANERRO - Physical Attention Routine: 
Refer to Chart 09, 



Emergency Cancel (Part 1 of 2) 



SEVERAL MESSAGES ARE 
AVAILABLE. THE DESIRED 
MESSAGE AT ANY I/O OUTPUT 
TIME IS SELECTED BY 
CHANGING THE DATA ADDRESS 
IN CCW2. CCW 4 RETURNS 
OPERATOR'S REPLY TO 
THE SYSTEM. 



*C1 
IF SYSLOG IS ON CHANNEL 
QUEUE, THIS IS A WAIT 
LOOP FOR USING PROGRAM 
TO COMPLETE ITS I/O 
OPERATION SO THIS PHASE 
CAN USE IT. PUB FLAGS 
ARE SAVED AFTER USING 
PROGRAM FINISHES WITH 
DEVICE. 



*E1 
FIRST MESSAGE FROM THIS 
PHASE IS AR II40D 
EMERGENCY CANCEL. AR.... 
OPERATOR REPLY MUST BE 
GIVEN AS DISCUSSED IN 
CHART MV, NOTE A5. 



♦MV-B1 
MV-E2 
MV-G1 



****A2********* 

* * 

* $$ANERR0 * 

* * 
*************** 



IJBPA320 

*****B2********** 

* LOAD ADDRS OF * 

* COMM REGION * 
*' AND OF PIOCS * 

* ERROR BLOCK * 

* * 
***************** 



*****C2******* 

* * 

* MODIFY 

* PHASE NAME 

* IN ERROR 

* * 
************** 



*****D2********** 

* SET RIK IN * 

* ERBLOC TO * 

* X'Ol' AND SSM * 

* TO DISABLE * 

* EXTERN INT. * 
***************** 



*****£ 2********** 

* PUT ADDR OF * 

* INST 'WAIT1' * 

* IN WAIT * 

* PSW * 

* * 
***************** 



*****P2********** 

* SET ADDR OF * 

* PREFIX AR * 

* IN DATA * 

* ADDR OF CCW1 * 

* AND CCW3 * 
***************** 



*****G2********** 

* SET INPUT * 

* ADDR IN CCW4 * 

* AND MSG ADDR * 

* IN REG * 

* * 
***************** 



*J1 
TEST IS MADE FOR 
OTHER THAN BLANKS 
IN INPUT AREA. 



PAR41 X 

*****H2********** 

* STORE ADDR * 

* OF DESIRED * 

* MSG IN CCW2 * 

* VIA REG * 

* *A1 * 
***************** 

**** 



* 1 



**** 
PAR42 X 

*****J2********** 

* LOAD ADDR * 

* OF FIRST CCW * 

* OF CHAIN * 

* INTO CCB * 

* * 
***************** 



**** 

* * 
.* 2 * 

* * 
**** 



*****B4********** 

* NO-OP CCW1 * 

* AND CCW3 * 
.X* COMMAND CODES * 

* REDUCE CCWS * 

* BYTE COUNT * 
***************** 



PAR40 

*****C3********** 

* LOAD ADDR OF * 

* PIB TABLE * 

* AND ADDR OF * 

* LUB TABLE * 

* * 
***************** 



*****D3********** 

* CALCULATE * 

* PUB ADDR ■* 

* FOR SYSLOG * 

* DEVICE * 
*■■'- * 
***************** 



**** 

* * 

* 3 * 

* * 
**** 



E3 



*. 



IS 
* SYSLOG 

QUEUED FOR 

*. ERROR . 

*.RECVY.* 



*. 



*NO 



.*. 

F3 *. 

.* IS 

SYSLOG 

NOW ON 

. CHANQ 

*. *C1 . 

*. .* 

*NO 



NO .* 


I/O 


...*. 


STARTED 


* 


. OK 




*. .* 


X 


*. .* 


***** 


*YES 


*MV * 




* B4* 




* * 




* 




END 


X 


WAIT1 


.*. 




E4 *. 




* * 


.* 


I/O 


*. 


OPERATION 


* 


COMPLETE 



YES .* UNIT * 
...*. EXCEPTION ON 
*. SYSLOG .* 



*****C5******* 

* * 

* DELETE PERIOD* 

* FROM END OF * 

* MSG, MSG1 * 

* * 
************** 



OPERATOR 

REPLY 

.RECEIVED 



X 

***** 
*MV * 
* E3* 



*****F4********** 

* LOAD WAIT * 

* PSW TO WAIT * 

* FOR OPERATION * 

* REPLY * 

* * 
***************** 



PAR44 

*****G3********** 

* NULL SYSLOG * 

* PUB AND SAVE * 

* USER DATA * 

* (VIA BAL * 

* TO PTRXCH) * 
***************** 



*****G4********** 

* RESTORE USER * 

* DATA TO * 

* SYSLOG PUB * 

* (VIA BAL * 

* TO PTRXCH) * 
***************** 



*****H3********** 


H4 *. 


* BLANK INPUT * 


.* *. 


* AREA, LOAD * 

* CCB ADDR IN * 


YES .* SYSLOG * 


...♦.UNRECOVERABLE 


* REG 15 AND * 


*. ERROR .* 


* REG * 


*. .* 


***************** 


X *. .* 




***** *NO 




*MV * 




* E3* 




* * 
* 




EXIT1 


X 


X 


****** j 3*********** 


*****J4******** 


SVC 15 


* 


* COMM WITH * 


* LOAD ADDR 


OPERATOR 


* OF CCW3 


* *ei * 


* 



*****E5********** 

* LOAD ADDR OF * 

* INVALID * 

* STATEMENT * 

* MSG 'INVL' * 

* IN REG * 
***************** 



*****P5********** 

* * 
♦MODIFY INVALID * 

* MSG CODE TO * 

* 1S01D * 

* * 
***************** 



*****G5 ********** 

* BLANK OUT * 
*WORD 'REQUEST* * 

* IN MSG1.MAKE * 

* REPLY UPPER * 

* CASE * 
***************** 



*****H5********** 

* * 

* LOAD REG * 

* WITH LOOP * 

* COUNT OF 3 * 

* * 
***************** 

**** 

* * 
*MV * 

* E2* 

**** 

PAR45 X 

*****j5********* 



************* 



***************** 



GET ADDR * 

OF NEXT * 

PIB * 

* 

*************** 



**** 

* * 

* 3 * 

* * 

**** 



***** 
*MV * 
* Bl* 
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Chart MV. $$ANERRO - Physical Attention Routine: 
Refer to Chart 09, 



Emergency Cancel (Part 2 of 2) 



***** 

*MU * 
* J5* 



.* WAS *. 




.* OPERATOR * 


NO 


. REPLY VALID 


*... . 


*. *A5 .* 




*. .* 




*. .* 


X 


*YES 


***** 




*MU * 




* H2* 




* * 




* 




PAR41 



*****ci********** 

♦MODIFY INVALID * 

* MSG TO 1S02D * 

* FOR POSSIBLE * 

* USE NEXT TIME * 

* THROUGH LOOP * 
***************** 



*****B3********** 

* LOAD ADDR OF * 

* SUPVR ROUTINE * 

* CANCEL ATT * 
*EXIT IN REG 11 * 

* (ATNCNL) *H5 * 
***************** 



****C3 ********* 

* SVC 3 * 

* ATNCNL * 

* CHART FE * 
*************** 



END X 

*****B4********** 

* RESTORE * 

* USER DATA * 

* TO SYSLOG * 

* PUB (VIA BAL * 

* TO PTRXCH) * 
***************** 



*****C4******* 

* MOVE X'83« * 

* TO FLAG BYTE 

* OF ATTENTION 

* ROUTINE PIB 

* *K5 * 
************** 



*A5 
OPERATOR RESPONSES CAN BE- 

1. CANCEL Fl 

2. CANCEL F2 

3. CANCEL BG 

4. CANCEL 

REPLY 4 MEANS CANCEL BG 
PROGRAMS. BEFORE TEST FOR 
VALID REPLY REG WAS 
LOADED WITH ADDRESS OF 
INVALID STATEMENT MESSAGE. 
IF REPLY PROVES INVALID, 
THIS ADDRESS WILL BE PUT 
IN CCW2 DATA ADDRESS 
FOR SYSLOG OUTPUT TO 
OPERATOR SO HE CAN 
TRY AGAIN TO GIVE A 
VALID REPLY. 



.*. 

Dl *. 

.* WAS *. 

.* CANCEL BG *. 

- MSG GIVEN . 

*. *D5 .* 



*****03 ******* 

* TURN OFF * 

* ATTENTION * 
♦REQUEST SWITCH * 

* IN ATTN RTN * 

* PIB * 
************** 



*D5 
BLANKS IN PROGRAM 
IDENTIFICATION PART OF 
CANCEL MESSAGE MEANS 
CANCEL ALL PROGRAMS. 



El *. 

,*CANCEL *. 

FOR PROG 

WHOSE PIB 

.ADDRESSED. 

*. NOW .* 

*. .* 

*YhS 



.*. 
E2 *. 
.* ALL *. 
PROBLEM *. 
PROG PIBS . 
. CHECKED .* 
*. *E5 .* 
*. .* 
*NO 



X.X 

EXIT1 X 

*****E3 ********** 

* LOAD ADDR OF * 
*SUPVR ATTENTION* 

* EXIT ROUTINE IN* 

* REG 15(EXT02) * 

* * 
***************** 



*E5 
COUNTER IN REGISTER 14 
SEES IF CANCEL MESSAGE 
WAS CHECKED FOR ALL 3 
PROGRAM TYPES (Fl, 
F2 AND BG). LOOP IS 
REPEATED UNTIL ALL TYPES 
ARE CHECKED. 



EXIT2 X 

*****F1 ********** 

* LOAD ADDR OF * 

* AREA NOT * 

* ACTIVE MSG * 

* INTO REG * 

* *G5 * 
***************** 



***** 
*MU * 
* J5* 



****P3 ********* 

* SVC 3 * 

* EXT02 * 

* CHART BC * 
*************** 



.* CANCELED 
. PROG AREA 
*. ACTIVE . 
*. NOW .* 



*G5 
IF PROGRAM AREA IS NOT 
NOW ACTIVE, SYSLOG IS 
USED TO OUTPUT '1I32D 
AREA NOT ACTIVE' MESSAGE. 



*****Hl********** 

* SET X«40' * 

* CANCEL CODE * 
*IN CANCEL BYTE * 
*0F APPROPRIATE * 

* PIB * 
***************** 



*H5 
A RETURN TO SUPERVISOR IS 
TAKEN TO PROCESS THE 
PROGRAM CANCEL AFTER 
WHICH CONTROL RETURNS TO 
NEXT SEQUENTIAL 
INSTRUCTION OF THIS 
A-TRANSIENT PHASE. 



Jl *. 

.* IS A ♦ . 

.♦CANCEL FOR *. 

.THIS PROG IN . 

*. PROGRESS .* 

*. NOW .* 

*. .* 

*YES 

*X 

X 

**** 

* * 

* 1 * 

* * 
**** 



*****J2********** 

* MOVE X'64' * 

* TO PIB CANCEL * 
.X* BYTE MEANING * 

* OPERATOR * 

* CANCEL * 
***************** 



*K5 
X«83« IN FLAG BYTE MEANS 
REGISTERS ARE STORED, 
ATTENTION ROUTINE IS 
ACTIVE AND NOT SVC 7 
BOUND. ATTENTION ROUTINE 
WILL BE CALLED AGAIN. 
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Chart MW. $$ANERR1 - Move Data to Communications Region 



****Al********* 

* * 

* SSANERR1 * 

* * 
*************** 



IJBMVC20 
T *****bi***#****** 

* LOAD ADDRESS * 
♦OF COMM. REGION* 

* ERBLOCt AND * 

* PIB TABLE * 

* * 
***************** 



*****ci******* 

* INSERT * 

* X»01« AT END 

* OF PHASNM 

* FOR RETURN 

* * 
************** 



*****Q1 ********** 

* USE PIK OF * 

* X'30« TO GET * 

* FOREGROUND 1 * 

* PIB ADDRESS * 

* * 
***************** 



*****£}********** 

♦PSWGET MW* 
*_*,.*.»*_*-*_*_*..* 

* DETERMINE * 

* IF SVC 5 WAS * 

* ISSUED BY FGl * 
***************** 



*****F1 ********** 

♦PSWGET MW* 
*_*-*_*_*«.*-.*_*_* 

* OETERMINE * 

* IF SVC 5 WAS ♦ 

* ISSUED BY FG2 * 
***************** 



**** 

X 

*****£ 1 ********** 

* GET USER * 

* REGISTERS ♦ 

* AND I FROM ♦ 

* USER ♦ 

* SAVEAREA * 
***************** 



.* IS ♦. 
♦ FIRST ♦. NO 

BYTE WITHIN .♦..„ 
*. AREA .* 



* OF MOVE AND * 

* INSERT IT IN * 

* INSTRUCTION * 

* 'MVC * 
***************** 



*****D2********** 

♦ DETERMINE ♦ 

♦ ADDRESS OF * 

♦ LAST BYTE ♦ 

♦ TO BE MOVED ♦ 

♦ * 
***************** 



****B4*******«* 

* * 

* PSWGET * 

* * 
*************** 



E2 ♦. 
.♦ IS *. 
LAST BYTE 

WITHIN 
. AREA 



X 

.*» 
F2 *. 
.* DOES *. 
* MOVE FIT *. NO 

IN THE USER .*..X 
♦. AREA .» 



*****G2********^* 

♦ MOVE USER ♦ 

♦ DATA INTO * 
♦COMMUNICATIONS * 

* REGION * 

* * 
***************** 



*♦** 

* * 

* 2 * 



.X.X, 



CANCEL X 

*****G3********** 

* SSM TO ♦ 

* ENABLE * 

* EXTERNAL * 

* INTERRUPTS * 

* * 
***************** 



IS *. NO 
THIS AREA .*.,. 
. ACTIVE .* 



EA *. 
.* IS *, 
.* THIS *. YES 

PROGRAM .*,...X. 
*, CANCELED .* 



*****F4********** 

* CALCULATE * 

* ADDRESS OF ♦ 

* LAST * 

* INSTRUCTION * 

* EXECUTED * 
***************** 



* WAS *. NO 

LAST INSTR. .♦... 
*. MVCOM .* 



*****HL********** 

♦ GET ADDRESS ♦ 

♦ OF ORGIN OF ♦ 

♦ AREA FROM ♦ 

♦ PIB r * 

♦ * 
***************** 


X 

##*#H2********* 

♦ SVC 3 ♦ 

♦ EXT02 * 

♦ CHART BC * 
*************** 


X 
****H3********* 

* SVC 3 * 

* ATNCNL * 

* CHART FE * 
*************** 


. NO 
.. . .* 


H4 *. 
.* » 
.* BJF 
f SYSTEM 
*• 

*. . 
*. .* 
*YES 


X 

**** 

* * 

* 1 * 

* * 
***# 








X 

**** 

* * 

* 3 * 

* * 
**** 



*****G5********** 

* * 

* GET ADDRESS * 
.X* OF PIB FOR * 

* FOREGROUND 2 * 

* * 
************#***« 



****H5********* 

* RETURN VIA 

* LINK REGISTER 
* 

*************** 
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Chart MX. $$ANERR9 - Optical Reader ERP (Part 1 of 2) 
Refer to Chart 07, 



****A1********* 

* * 

* SSANERR9 * 

* * 

4************** 



IJBER920 

*****Bl********** 

* SSM TO * 

* ENABLE * 

* INTERRUPTS ON * 

* ALL CHANNELS * 

* * 
***************** 



*****C1********** 
♦LOAD ADDRESSES * 

* OF COMREG, * 

* ERBLOC, PUB * 
♦ENTRY, CCB, AND* 



**** 

* * 

* 2 * 

* * 

**** 



B4 *. 

.* ♦ . 

.* * 

.NON-RECOVERY 

*. .♦ 

*. .* 

*. .* 

♦YES 



*****C4******* 

* TURN ON * 

* NON-RECOVERY * 

* BIT IN CCB t * 

* BYTE 3, BIT 4* 

* * 
************** 



IS 

DEVICE A 
. 1287 



.* INVALID ♦ . NO 
.X*. SENSE BITS .*... 
♦. FOR .♦ 
♦.1287 .♦ 



El 


*. 


.* 


* 


♦ INVALID 


SENSI 


BITS 


♦ .FOR 


1285 


♦ . 


• ♦ 


♦ , 


.* 




♦ NO 



***** 

♦MY ♦ 

* H4^ 

* * 



.♦ BUSOUT 
♦. CHECK 
♦ . 



CDATACK 

*****P3********** 

♦ INSERT X«28« ♦ 

♦ CHANNEL ♦ 
. ..X* DATA CHECK ♦ 

♦ MESSAGE ♦ 

♦ CODE ♦ 
***************** 



*****E5******* 

♦ TURN ON ♦ 

♦ DATA CHECK ♦ 

♦ BIT IN CCB ♦ 

♦ BYTE 3, BIT ()♦ 

♦ * 
************** 



***** 

♦ MY ♦ 

* B2^ 



*****H1******* 

♦ TURN ON ♦ 

♦ EQUIPMENT 

♦ CHECK BIT IN 

♦ CCB, BYTE 3, ! 

♦ BIT 3 ♦ 
************** 



.♦ ♦. YES 

♦.INTERVENTION ...... 

♦.REQUIRED .♦ 



**** 

* * 

* 2 ♦ 

* * 
**** 



.♦ ♦. 
.* * 

.X^. NON-RECOVERY 



♦ INSERT X»08« ♦ 

♦ INTERVENTION ♦ 

♦ REQUIRED ♦ 

♦ MESSAGE CODE ♦ 

♦ * 
***************** 



NONREC 

*****G3******* 

♦ TURN ON ♦ 

♦ NON-RECOVERY ♦ 
...X+ BIT IN CCB, ♦ 

* BYTE 3, BIT 4^ 

* * 
************** 



*****H3******* 

♦ TURN ON ♦ 

♦ PASSBACK BIT 

♦ IN ERQUE 

♦ FLAG BYTE 

♦ * 
************** 



*****J3********** 

♦ INSERT X'35« ♦ 

♦ NON-RECOVERY ♦ 

♦ MESSAGE CODE ♦ 



***************** 



♦ INSERT X«09« ♦ 

♦ BUSOUT ♦ 

♦ MESSAGE CODE ♦ 

♦ * 
***************** 



**** 
. ♦ ♦ 
...♦ 3 ♦ 
..X. ♦ ♦ 
X ♦♦♦♦ 
.♦. 
G4 ♦. 

ONE *♦. NO 
RETRY .♦... 

.♦ 
.♦ 



EQUIPXIT 

*****H4******* 

♦ TURN ON * 

♦ INTERVENTION 

♦ REQUIRED 

♦ BIT IN ERQUE 

♦ FLAG BYTE * 
********* 



*****H5********** 

♦ * 

♦ INSERT1 ♦ 

♦ IN RETRY ♦ 

♦ COUNTER ♦ 

♦ * 
***************** 



***** 

♦ MY ♦ 

* F3* 



***** 

♦ MY ♦ 

♦ K4^ 
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Chart MY. $$ANERR9 - Optical Reader ERP (Part 2 of 2) 
Refer to Chart 07. 



***** 

*MX * 

* E5* 

* * 



CMDREJ 

*****d ********** 

* INSERT X«18' * 

* COMMAND * 

* REJECT *X. 

* MESSAGE CODE * 

* * 
***************** 



*****0i******* 

* TURN OFF * 

* ALLOW RETRY * 

* AND IGNORE * 

* BITS IN ERQUE* 

* FLAG BYTE * 
************** 



RETRIED. 
. 9 
TIMES 



IS 
DEVICE 
A 1287 



1287 
IN TAPE 

MODE 



*****£ 3** ******** 

* * 

* ADD 1 TO * 

* PUB RETRY * 

* COUNTER * 

* * 
***************** 



*MX 
* H5* 
**** 
RETRY 



****F3********* 
*• SVC 3 * 
* EXRTY * 
*■-.■. CHART DD * 

*************** 



* INSERT X«14' * 
X* OVERRUN * 

* MESSAGE CODE * 

* * 
***************** 



*****E4******* 

* TURN ON * 

* INTERVENTION 

* REQUIRED BIT 

* IN ERQUE 

* FLAG BYTE * 
************** 



*****G1******* 

* TURN ON * 

* KEYBOARD * 

* CORRECTION 

* . BIT IN CCB, * 

* BYTE 3, BIT 1 
************** 



.X. 
X 
**** 

* * 

* 2 * 

* * 
**** 



.* INVALID * 


. NO 


.* KEYBOARD 


*. FONT. 


.*. . .. 


....X*. CORRECTION 


*. .* 




, *. *G4 


*. .* 




*. .* 


*. .* 




*. .* 


*YES 




*NO 
**** 

* * 

* 2 *. . . 

* * . 
**** X 


FONTERR X 




ANYERRS .*. 


, *****H2********** 


H3 *. 


* 


* 


.* HAVE * 


* INSERT X'37« 


* 


.*ANY ERRORS 


* INVALID FONT 


* 


*. BEEN POSTE 


* MESSAGE CODE 


* 


*.. IN CCB 



*G4 
INVALID SENSE 
BIT FCR 1287. 



.UNSUPTD 

*****H4******** 

* INSERT X'19« 
NO X * UNKNOWN 

* X* SENSE BIT 

* MESSAGE CODE 



***************** 



*****j2******* 

* TURN OFF * 

* ALLOW, RETRY * 

* AND IGNORE 

* BITS IN ERQUE* 

* FLAG BYTE * 
************** 



****** 



:********** 



CONTINUE 

*****j3******* 

* TURN ON * 

* ALLOW IGNORE 

* BIT IN ERQUE 

* FLAG BYTE 

* * 
************** 



****K3********* 

* SVC 3 * 

* EXIGN * 

* CHART DD * 
*************** 



*****j4******* 

* TURN OFF * 

* ALLOW RETRY 

* AND IGNORE 

* BIT IN ERQUE 

* FLAG BYTE * 
************** 

**** 



****K4********* 

* SVC 3 

* $$ANERRM 

* CHART LV 
*************** 
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Chart NA. $$BATTNA - Nonresident Attention/Initiator Root Phase 
Refer to Chart 10. 



****A1********* 

* * 

* SSBATTNA * 

* * 
*************** 



*****Bl**«* ****** 

* SET UP BASE * 

* REGISTER * 

* VALUES FOR * 

* DSECT AND * 
*0VERLAY PHASES * 
***************** 



*****d********** 

* LOAD THE * 

* ADDRESS OF * 

* ERROR ROUTINE * 
♦INTO A REGISTER* 

* * 
***************** 



*****Fl ********** 

♦ PUT I/O * 
♦BUFFER ADDRESS ♦ 
♦INTO A REGISTER* 

♦ AND INTO THE * 

♦ CCW ADDR FLD * 
***************** 



. ♦NB- 


-El 


. NE- 


-E3 


. NG- 


-HI 


. NR- 


-G5 


. NS- 


-J4 

* 
* 
* 



*****B2 ********** 

♦ USE PIB TABLE ♦ 

♦ ADDR PLUS ♦ 

♦ DISPLACEMENT * 

♦ TO POINT TO ♦ 

♦ ATTN PIB ♦ 
***************** 



.* EXTERNAL 
. INTERRUPT 
♦. SWITCH . 



**** 

2 ♦ 

♦ 
**** 

x! 



DTCHAT X 

*****B4*********# 
♦SET REGISTER ♦ 

♦ TO ZERO SO ♦ 
♦SVC 22 DISABLES* 
♦ALL INTERRUPTS * 

* * 
***************** 



*****D1********** 


*****D2******* 


♦ PUT ADDRESS * 


♦ RESET 


* OF SYSLOG * 


♦ ATTN PIB 


♦INPUT CCW INTO ♦ 


♦ SWITCH 


* INPUT CCB ♦ 


♦ BYTE 


* * 


* 


***************** 


************** 




**** '. 




♦ * 




♦NE *.X. 




♦ E3* 




**** x 


X 


.*. 


*****E1 ********** 


E2 *. 


♦ PUT ADDRESS ♦ 


.♦ ♦. 


♦ OF SYSLOG ♦ 


.♦ SYSLOG 


♦ OUTPUT CCW ♦ 


♦. EQUAL 


♦ INTO OUTPUT ♦ 


*. 1052 


♦ CCB ♦ 


♦ . .♦ 


***************** 


♦ . .♦ 



****03********* 

♦ SSBATTNB ♦ 

♦ AT EXTINT * 

♦ CHART NE ♦ 
*************** 



*****F2********^ 
♦ERRRTN NC^ 

*_*_*_*-L *-*-.*«*_* 

♦ SEND MESSAGE * 

♦ 'READY FOR * 
♦COMMUNICATIONS'* 
***************** 



*****P3********** 

* * 

* LOAD ♦ 

* ADDRESS OF ♦ 

* PIB ♦ 

* * 
***************** 



DETACH 

TASK 

*D5 



*****04******* 

* * 

* SVC 22 

* SEIZE THE 

* SYSTEM 

* * 
************** 



*****E4* ****** 

* DETACH THE ♦ 

* ATTENTION ♦ 

* PIB 

* *H4 ♦ 

* * 
************** 



*****F4*#***** 

* * 

* SVC 22 

* RELEASE THE 

* SYSTEM 

* * 
************** 



*D5 
THIS INSTRUCTION 
WILL BE SET TO 
SVC 11 IF NO MPS. 



YES .♦ MULTIPLE ♦. 
.♦. PROGRAMMING .■ 
♦. SUPPORT .♦ 



****G2 ********* 

* CONTROL 

* CHART NB 
* 

*************** 



****G4*#******* 

♦ EXIT THIS ♦ 

♦ B-TRANSIENT ♦ 

♦ VIA SVC 11 ♦ 

*************** 



*****H1 ********** 

♦ MOVE A HEX FF * 
♦INTO THE BRANCH* 

♦ VECTOR TABLE ♦ 

♦ AS BATCH ONLY ♦ 
♦DELIT1ETER *J2* 
***************** 



*H4 
A HEX '07' IS MOVED 
TO THE ATTENTION 
ROUTINE PIB FLAG BYTE. 
EVENTUALLY THAT VALUE 
IS CHANGED TO A HEX 
•87' AND CHANGED AGAIN 
TO A HEX '81' WITHIN 
SVC 22 PROCESSING 
ROUTINES. 



*****j]_******* 

* MODIFY THE * 

* INSTRUCTION * 

* AT DTCHSZ 

* TO SVC 11 * 

* * 
************** 



**** 
*. * 

* 1 * 

* * 
**** 



*J2 
BRANCH VECTOR TABLE ENTRY IS IN THE FORM 
. OPERATION FIELD OF CONTROL STATEMENT 
. PHASE IDENTIFIER (ALPHA-CHARACTER) 
. BRANCH VECTOR INDEX FACTOR. THIS IS 
A DISPLACEMENT VALUE USED IN LOCATING 
THE FIRST EXECUTABLE INSTRUCTION WITHIN 
A NEWLY LOADED PHASE. 
WHEN THE NONRESIDENT ATTENTION ROUTINES 
HAVE MPS, THE TABLE CONTAINS ADDITIONAL 
ENTRIES. WHEN THE NONRESIDENT ATTENTION 
ROUTINE IS FUNCTIONING AS AN INITIATOR, 
ADDITIONAL TABLE ENTRIES ARE ATTACHED 
BY $$BATTNH. 
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Chart NB. $$BATTNA - control Routine 
Refer to Chart 10. 



***** 

*PK * 
* J4* 



****A1********* 

* * 

* CONTROL * 
*************** 



CONTROL 4 .. 

*****Bl ********** 

* RESET THE * 
♦OPERAND NUMBER * 

* IN LOCATION * 

* OPNUMB TO * 

* ZERO * 
***************** 



*****£!********** 
*RDSTMT NC* 
*-*-*-*-*-*«.*-*-* 

* CLEAR I/O * 

* BUFFER AND * 
*EXCP FOR INPUT * 
***************** 



* INPUT 
BUFFER ALL 

*. BLANK . 



CHKSTT 

*****B3********** 

* PUT BUFFER * 

* ADDRESS AND * 
..X* BUFFER LENGTH * 

* IN A PAIR OF * 

* REGISTERS * 
***************** 



*****C3********** 
♦SCANR1 ND* 
*_*_*-.*_*-*-*-.*_* 

* SCAN * 

* OPERATION * 

* FIELD 4 * 
***************** 



*B4 
ON THE FIRST 
TIME THROUGH 
CONSIDER THE 
NEXT TABLE 
ENTRY AS THE 
FIRST ENTRY. 



BLANK 
AT END OF 
. FIELO . 
*. .* 



E3 *4 
.♦ FIELD *. 
LENGTH GT *i YES 



X 

***** 
*NA * 
* BA* 



***** 
*NU * 
* HI* 



*****G3********** 

* MOVE THE * 

* OPERATION * 

* FIELD FROM * 

* THE BUFFER TO * 

* PARMTR * 
***************** 



* 1 *.X* 

* * 
**** 

C0NTR0L1 X 

*****B5********** 

* LOAD STARTING * 

* AODRESS-8 OF * 

* BRANCH * 

* VECTOR TABLE * 

* * 
***************** 



* POINT TO * 

* THE NEXT * 

* TABLE ENTRY * 

* *B4 L * 
***************** 



D5 *. 
.* END *. 
YES .* OF *. 
. . ..*. BRANCH-VECTOR.* 
*. TABLE .* 



****G4********* 

* NVSERR * 

* CHART NC * 

* * 
*************** 



*. 



.♦ TABLE ♦ . NO 
. ENTRY EQ .♦... 
*. PARAMETER.* 



*****F5********** 

* PUT SUM OF * 
*BASE REG VALUE * 

* AND DISPLACE- * 
*MENT IN A REG, * 

* P0INT3 *J4 * 
***************** 



.* CORRECT 
PHASE 
♦.RESIDENT . 
*. .* 



REGISTER SUPPLIES 
THE OVERRIDING LOAD 
ADDRESS. REGISTER 1 
SUPPLIES THE ADDRESS 
OF THE PHASE NAME TO 
BE LOADED. 



*****H5 ********** 

* GET PHASE * 

* IDENTIFIER * 
♦AND SUPPLY SVC * 

* 4 WITH ADDR * 

* INFORMATION ♦H't* 
***************** 



THE SUM OF BASRG2 
AND THE BRANCH 
VECTOR INDEX 
POINTS TO THE 
ADDRESS OF 
THE FIRST 
EXECUTABLE 
INSTRUCTION. 



****J5********* 

♦ SVC 4 * 

♦ LOAD CORRECT ♦ 

♦ PHASE .*. 
*************** 



*#**K5******** 

♦ BRANCH TO 

♦ ADDRESS IN 

♦ POINT3 *J4 
************** 
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Chart NC. $$BATTNA - Root Phase Subroutines 
Refer to Chart 10. 



**** 

* * 

* i * 

#*** 



* * 

* ERRRTN * 

* * 
*************** 



WAS *. 
START 
ISSUED .* 



*****C1 ********** 

*ERRRTNl NU* 
*-*-*_*»*.**..*_*_* 

* PROCESS * 

* START * 

* ERROR * 
***************** 



****A2********* 

* EXCPRG * 

* * 
*************** 



****A4********* 

* RCSTMT * 

* * 
*************** 



************* 



«***Q3********* 

* * 

* DTINUN * 

* * 
*************** 



****** *********** 



NULLOG 

*****0l********** 

* PUT * 

* ERROR-MESSAGE * 

* INTO THE * 

* OUTPUT BUFFER * 

* *F2 * 
***************** 



*****£ L********** 

* PUT LENGTH * 

* OF ERROR * 

* MESSAGE INTO * 

* SYSLOG * 

* CCH * 
***************** 



OPNUMB 

*****F1 ********** 

* PUT OPERAND * 

* NUMBER INTO * 

* MESSAGE AND * 

* SET UP REG 1 * 
♦WITH SYSLOG CCB* 
***************** 



******G1*********** 

EXCPRG NC 

*-*_*-*-*-.*-*-*_* 

SEND 

* ERROR MSG * 

*G2 

************* 



*****Hl******* 

* TURN ON * 

* SYSRDR 

* INDICATOR IN 

* FLGBYO 

* *K1 * 
************** 



****J1********* 

* CONTROL * 

* CHART NB * 

* * 
*************** 



*K1 
SET FLAG FOR 
SYSLOG INPUT. 



* TRAFFIC 

BIT POSTED 
*. IN CCB . 



****02*#******* 

* SVC 7 * 

* WAIT * 

* * 
*************** 



****D3********* 

* RETURN TO * 

* ADDRESS IN * 

* LINK REGISTER * 
*************** 



*F2 

THE A 

TO THE OUTPUT BUFF 
BY EXECUTING THE 
MOVE INSTRUCTION 
THAT FOLLOWS THE 
BAL TO THE 
ERRRTN SUBROUTINE. 



*G2 
•1S00D 
INVALIO 
STATEMENT' 



* SET UP REG 1 * 

* WITH THE * 

* SYSLOG-CCB * 

* ADDRESS * 
***************** 



RDR 
INPUT 
*D5 



*****E4* ********* 

* * 

* RESET REG 1 * 

* WITH THE * 

* SYSRDR CCB * 

* * 
***************** 



****A5********* 

* * 

* NVSERR * 

* * 
*************** 



NVSERR 

*****B5** ******** 

*ERRRTN NC*' 
*-*_*-*-*_*-*-*_* 

* SEND * 

* ERROR * 

* MESSAGE *G2 * 
***************** 



****C 5** ******* 
*EXIT VIA ERRRTN* 

* TO LOCATION * 

* CONTROL * 
*************** 



*D5 
TESTS FLGBYO 
TO DETERMINE 
IF A CARD READER 
OR 1050 DEVICE 
WILL BE USED 
TO ACCEPT INPUT 
STATEMENTS. THE 
SWITCH THAT 
INDICATES DEVICE 
TYPE IS SET IN 
PHASE S*bATTNP. 



****** P4* ********** 

EXCPRG NC 
*_*_*-.*-*_*_*..*_* 

PERFORM 

* I/O * 

EXCP 

************* 



.* UNIT *. 

. EXCEPTION . 

♦.POSTED IN.* 

*. CCB .* 



.* INPUT *. 
BUFFER .* 
*.ALL BLANK.* 



INPUT 

ON 

SYSRDR 



.X* 



***** j 5** ******** 

♦LOGGER NU* 
*-*-*_*-* _*-*-*!.# 
LOG INPUT * 
STATEMENT * 
* ON SYSLOG *K5 * 
***************** 



****K4********* 

* RETURN TO * 

* ADDRESS IN * 

* LINK REG * 
*************** 



*K5 
THIS IS A BRANCH IN 
THE PROGRAM, BUT IS 
SHOWN HERE AS A EAL 
TO BETTER DESCRIBE 
THE LOGIC FLOW. 
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Chart ND. $$BATTNA - General Scan Routines 
Refer to Chart 10, 



****A1********* 

* * 

* SCANR2 * 

* *H1 * 
*************** 



SCANR2 X 

*****B1 ********** 

♦LOAD REGISTERS * 
♦WITH CHARACTER ♦ 

♦ ADDRESS AND ♦ 

♦ REMAINING ♦ 

♦ BUFFER LENGTH ♦ 
***************** 



****A2+^++***+ 

* * 

* SCANR1 ♦ 

* *J1 * 
*************** 



****A3******# 
* 

♦ SCANR3 

♦ ♦Kl 
************* 



SCANR3 

♦♦♦♦♦[^♦♦♦♦♦♦♦♦♦^ 

♦ LOAD POINT! ♦ 

♦ AND POINT2 ♦ 
♦WITH CHAR ADDR ♦ 

♦ AND REMAINING ♦ 

♦ BUFFER LENGTH ♦ 
***************** 



SCANR1 X 

*****d ********** 
♦ZERO PARAMETER ♦ 
♦LENGTH REGISTERS 

♦ AND RESET THE ♦ 

♦ SCAN-STOP ♦ 

♦ CHARACTER ♦ 
***************** 



X. 






X 






.SCNRL1 .♦. 






Dl ♦. 






. .♦ ♦. 






.♦ CHARACTER ♦. NO 




♦. IN BUFFER A .♦ 






♦. BLANK .♦ 






♦ . .♦ 






♦ . .♦ 




X 


♦ YES 


**** 




* 


* 




* 


2 ♦ 




♦ 


♦ 




**** 


'. X 






*****(= i********** 






♦ ADD' ONE TO ♦ 




♦ E2 


♦THE ADDRESS IN ♦ 




THE ORING OF A 


♦POINT1 SO THAT ♦ 




HEX '40' FORCES 


♦ IT POINTS TO ♦ 




UPPER CASE. THIS 


♦THE NEXT CHARAC^ 




IS DONE IF 


. ***************** 




THE GENERALIZED 
ROUTINE IS 
BEING USED 
TO PREPARE 
CARD IMAGES FOR 
MAPPING. (MSGIN) 


'. X 
.♦. 
Fl ♦ . 




COMMAND OF MAP) 






.♦ ♦. 






. NO .♦ END ♦. 






...... OF BUFFER .♦ 







♦ HI 
ENTRY AT THIS POINT TO GET THE FIRST 
FIELD AFTER THE OPERATION CODE. 
LEADING BLANKS ARE SKIPPED. 
CURRENT POINTER INFORMATION 
IS IN LOCATION TMPAR1. AT 
LEAST ONE SCAN HAS BEEN MADE. 



♦Jl 
ENTRY AT THIS POINT TO GET THE 
OPERATION CODE FIELD. POINTERS 
ARE INITIALIZED WITHIN THE 
CALLING SEQUENCE. LEADING 
BLANKS ARE SKIPPED. 

♦Kl 
ENTRY AT THIS POINT TO GET 
FIELDS OTHER THAN THOSE 
SPECIFIED IN + H1 AND ♦Jl. 
CURRENT POINTER INFORMATION 
IS IN LOCATION TMPAR1. AT 
LEAST ONE SCAN HAS BEEN MADE. 
BLANKS ARE NOT SKIPPED. 



SCNRL2 

*****C3**#******* 

♦ LOAD A REG ♦ 

♦ WITH THE ADDR ♦ 

♦ OF THE EXIT ♦ 

♦ CODING ♦ 

♦ NDSCAN ♦ 
***************** 



*****D3**#******* 

♦ PUT THE ♦ 

♦ ADDRESS OF ♦ 

♦ THE CHARACTER ♦ 

♦ IN A WORK ♦ 

♦ REGISTER ♦ 
***************** 



*****E3********** 

♦ CHANGE THE ♦ 

♦ CHARACTER TO ♦ 

♦ UPPER CASE ♦ 

♦ *E2 ♦ 

♦ * 
***************** 



♦D4 
P0INT1 CONTAINS 
THE ADDRESS OF 
THE FIRST CHARACTER 
OF THE FIELD. 
P0INT2 CONTAINS 
REMAINING BUFFER 
LENGTH. 

P0INT3 CONTAINS 
LENGTH-1. - 



H3 ♦. 

.♦ CHAR ♦ 
EQUAL TO 
AN. EQUAL 

. SIGN 



*****J3********** 

♦ ADD ONE TO ♦ 

♦ THE PARAMETER ♦ 
♦LENGTH COUNTER, ♦ 

♦ P0INT3 ♦ 
*. * 
***************** 



♦G4 
LOW EQUALS BLANK. 
EQUAL EQUALS COMMA. 
HIGH EQUALS EQUALS. 
THE CONDITION CODE 
IS TESTED BY THE 
CALLING ROUTINE 
TO ESTABLISH 
VALIDITY. 



**** 

* * 

* 1 * 



NDSCAN X 

*****B5********** 

♦ CALC ADDRESS ♦ 

♦ OF NEXT ♦ 

♦ CHARACTER ♦ 

♦ IN WRKRG1 ♦ 

♦ * 
***************** 



*****C5********** 

* * 
♦CALC REMAINING ♦ 

* BUFFER LENGTH ♦ 
.. ♦ (POINT 2.-1) ♦ 

* * 
***************** 



*****P5********** 

♦ STORE RESULTS ♦ 
♦OF CALCULATIONS^ 

♦ IN LOC TMPAR1 ♦ 

♦ FOR USE BY ♦ 
♦LATER SCANS^D4 ♦ 
***************** 



*****E5********** 

♦ ADJUST THE ♦ 

♦ PARAMETER ♦ 
♦LENGTH COUNTER ♦ 

♦ TO LENGTH ♦ 

♦ MINUS ONE ♦ 
***************** 



*****P5********** 

♦ ADD ONE TO ..*■ 

♦ THE OPERAND ♦ 

♦ NUMBER KEPT ♦ 

♦ IN LOCATION ♦ 

♦ OPNUMB ♦ 
***************** 



*****G5********** 

♦ TST LAST CHAR ♦ 

♦ IN THE FIELD ♦ 

♦ FOR A COMMA ♦ 
♦(SET CONDITION ♦ 

♦ CODE) ^G4 ♦ 
***************** 



****H5*#******* 

♦ EXIT TO ADDR ♦ 

♦ IN LINK ♦ 

♦ REGISTER ♦ 
*************** 



**** 

* * 

* 2 ♦ 

* * 
**** 



**** 

* * 

* 1 * 

* * 
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Chart NE. $$BATTNB - MSG Statement Processor 
Refer to Chart 11. 



****A1********* 
*• * 

* $$BATTNB * 

* * 
*************** 



****A2 ********* 



******** 



*****B1********** 

* SCANR2 NO*" 
*_*_*_*_*-*_*_*..* 

* GET FIRST * 

* OPERAND * 

* * 
***************** 



*****C1********** 
*CKF1F2 NE* 
*_*_*_*_*_*_*_*_* 

* GET CORRECT * 

* PROGRAM KEY * 

* * 
***************** 



*****0l ********** 
*STEXCD NF* 
*_*-*_*_*_*_*_*_* 

* ESTABLISH * 

* LINKAGE TO * 

* USER ROUTINE * 
***************** 



****E1********* 

* CONTROL * 

* CHART NB * 

*************** 



**** A3 ********* 

* * 

* EXTINT * 

* * 
*************** 



*****B3********** 

* PUT THE BG * 

* STORAGE KEY, * 

* HEX «10« INTO * 

* A REGISTER * 

* * 
***************** 



X 

**C3********** 
EXCD NF* 
_*_*_*_*_*-*_* 

ESTABLISH * 
LINKAGE TO * 
SER ROUTINE * 
************** 



*****D3******* 

* RESET ATTN * 

* PIB SW * 

* AFTER TESTING 

* IT * 

* * 
************** 



*C4 
. THE REGISTER P0INT4 
IS USED IN THE STEXCD 
SUBROUTINE. . 



****A5********* 

* * 

* CKF1F2 * 

* * 
*************** 



*****B 5** ******** 

* PUT THE Fl * 

* STORAGE KEY, * 
*HEX '30', INTO * 

* A REGISTER * 

* *C4 * 
***************** 



*****C 5 ********** 

* TEST THE MSG * 

* STATEMENT * 

* OPERAND IN * 

* THE BUFFER * 

* * 
***************** 



NO' 


* 


ATTEN- 


. . .* 


TION REQUEST 




*. 


SW ON . 
*. .* 


X 




*. .* 


***** 




*YES 


*NA * 






* B4* 






* * 




X 


* 




***** 


DTCHAT 




*NA * 
* E2* 



*****E 5** ******** 

* PUT THE F2 * 

* STORAGE KEY * 
*HEX '20« , INTO * 

* A REGISTER * 

* *C4 * 
***************** 



* * 
* 
TMPARl 
THIS LABEL IS NOT 
ASSEMBLED AT AN 
EXECUTABLE INSTRUCTION. 
HOWEVER, BEFORE SEG- 
MENTS OF $$BATTNA CODE 
ARE OVERLAID, IT CAN 
BE ADDRESSED TO RETURN 
CONTROL TO THE INI- 
TIALIZATION ROUTINES. 



****G4* ******** 

* RET TO ADDR * 

* IN LINK REG * 



******** 



****G5********* 

* NVSERR 

* CHART NC 
* 

*************** 
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Chart NF. $$BATTftB - Set Operator Coitimunications and Exit Table Linkage 
Refer to chart 11. 



****Al***i***4>* 

* STEXCD * 

* * 
*************** 



**** 

* * 

* 2 * 

* * 
**** 



*****B1 ********** 
» ACCESS THE * 

* PIB TABLE AT * 

* .THE CORRECT * 
♦PROBLEM PROGRAM* 

* PIB * 
***************** 



*****ci********** 

* LOAD THE SAVE * 

* AREA ADDRESS * 
♦OF THE CORRECT ♦ 
♦PROBLEM PROGRAMS 

* IN™ A REGISTERS 
***************** 



*****Q1 ********** 
♦DIVIDE THE PRO-^ 
♦ GRAM KEY, BY 2 ♦ 
♦AND ADD RESULT ♦ 
♦TO START OF OC ♦ 
♦EXIT TBL ^D2^ 
***************** 



*****£ i********** 

♦ put The ♦ 

♦ doubleword ♦ 

♦ option table ♦ 

♦ entry into a ♦ 

♦ pair of regs ♦ 

***************** 



♦D2 



THE.OC EXIT TABLE REFERREO 
TO IN THIS PHASE IS COM- 
MONLY CALLED THE" OC OPTION 
TABLE. THE ADDRESS OF 
THISTABLE IS 

FOUND IN THE COMMUNICATION 
REGION AT OECIMAL^DIS-- 
PLACEMENT 104. SEE FIGURES 
6 AND 19. 



B3 ♦. 
.♦COMPLEX. 
♦ MENT OF ♦ . NO 
USER AODR ***i. 
♦. FOUNO k* 
♦. ^F2 .♦ 
♦ . • ♦ 
♦YES 



*****C3********** 

♦ LOAD I/O ♦ 

♦ BUFFER WITH ♦ 

♦ MESSAGE-PROC- ♦ 
♦ESSING ROUTINE ♦ 

♦ ACTIVE, 1C50I ♦ 
***************** 



*****03********** 

♦ SET UP CCW ♦ 

♦ COUNT FIELD ♦ 

♦ WITH THE ♦ 

♦ LENGTH OF ♦ 

♦ THE MESSAGE ♦ 
***************** 



E3 ♦. 

4 * * 

SYSLOG 

EQUALS A 

. 1052 

♦ . .♦ 

*. .* 

♦YES 



S6t l5 



♦C4 
REGISTERS WILL BE RE- 
ORDERED FROM 9-8 TO 0-15* 



****E4********* 

♦ RET TO ADDR ♦ 
.X^ IN LINK REG ♦ 

* * 
*************** 



T X 

***B5**^******* 
» MOVE THE PSW ♦ 

♦ ...FROM THE^ ♦ 
♦PROBLEM PROGRAMS 

♦ SAVE AREA TO ♦ 

♦ OC SAVE AREA ♦ 
***************** 



*****C5********** 
♦ MOVE^GENERAL ♦ 
♦REGISTER VALUES+ 



*****05******* 

♦ PUT OC ADDR^ 

♦ IN PSW FLD ♦ 

♦ OF PROBLEM 

♦ PROG^SAVE ♦ 

♦ AREA ♦ 
************** 



*****£5********** 

♦PUT COMPLEMENT ♦ 
♦OF OC^RTN ADDR ♦ 
♦INTO OC OPTION ♦ 

♦ TABLE ENTRY ♦ 

* TO IND BUSY ♦ 
***************** 



.♦. 




Fl ♦* 


3. 


.♦ USER ♦. 
.♦ ADDR^ ♦. 




YES 


.HAS POSITIVE . 


♦ .... 


♦. SIGN .♦ 




♦. ^F2 .♦ 




♦ . .♦ 


X 


♦NO 


**♦* 



(ROUTINE PRESENT* NOT ACTIVE) 
COMPLEMENT OF ADDRESS 
(ROUTINE PRESENT* AND ACTIVE) 
ZERO (ROUTINE NOT PRESENT) 



*****Gl*********« 

♦ clear The ♦ 

♦ i/o buffer ♦ 

♦ for message ♦ 

♦ USE * 

♦ ♦ 
***************** 



*****H1********** 

♦ LOAD I/O ♦ 

♦ BUFFER WITH ♦ 

♦ MESSAGE FOR ♦ 

♦ -NO ROUTINE ♦ 

♦ LINKAGE 1C40I ♦ 
***************** 



*****(:3********** 

* ♦ 

* SET UP ♦ 

* SYSLOG ♦ 

* CCB ♦ 

* * 
***************** 



****G3********* 

♦ EXCPRG ♦ 

♦ CHART NC ♦ 

♦ . . * 
*************** 







X 










*♦. 










F5 ♦. 










»♦ ♦ < 






YES 


.♦ 


PARTITION 
CANCELED 


* 




...♦ 






* 




*♦ 




*' 





*****Q5********** 

♦ SET ATTENTION ♦ 

♦ PIB ACTIVE ♦ 

♦ X«83« ♦ 

♦ * 
***************** 



****H5********* 

♦ RETURN TO ♦ 

♦ ADDRESS IN ♦ 

♦ LINK REG ♦ 
*************** 



*****J1********** 

♦ SET UP THE ♦ 

♦ CCW COUNT ♦ 
♦FIELDrWITH THE ♦ 

♦ LENGTHOF THE ♦ 

♦ MESSAGE^ ♦ 
***************** 



* 1 * 

* * 
**4* 
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Chart NG. $$BATTNC - CANCEL Statement Processor 
Refer to Chart 11. 



****Al********* 

* * 

* $$BATTNC * 

* * 
*************** 



****A2********* 

* * 

* CANCEL * 

* * 
*************** 



CANCEL 




.*. 






bl 


*. 






* 


* 


NO 


* 






...* 






IPS 




* 










*. 


.* 






* 


**YES 



*****ci********** 

*SCANR2 NO* 
*_*_*-*_*-*-*-.*_* 

* GET FIRST * 

* OPERAND * 

* * 
***************** 



*B2 
USE STARTING 
ADDRESS OF PIB 
TABLE PLUS A 
DISPLACEMENT (KEY 
VALUE) TO POINT 
TO THE CORRECT 
PIB ENTRY. 



*C2 
A HEX *ao* 
INDICATES THE 
AREA IS NOT ACTIVE, 
OR DETACHED. 



****A3********* 

* * 

* CNLRTN * 

* * 
*************** 



*****B3********** 

* CALC THE * 

* ADDRESS OF * 
♦THE CORRECT PIB* 

* TABLE ENTRY * 

* *B2 , * 
***************** 



C3 *. 
.* PIB * 
.* ENTRY 
*. DETACHED 
*. *C2 



.* FIRST 
OPERAND 
*. FOUND 



*****Ei********** 

* PUT KEY OF * 

* PROGRAM TO * 

* BE INITIATED * 

* INTO P0INT4 * 

* *J2 * 
***************** 



Fl *. 
.* *. 
* CANCEL 
INITIATOR 



*****P2********** 
♦CKBF12 NG* 
*-*-*-.*_*_*_*_*_* 

* GET PROBLEM * 

* PROGRAM KEY * 

* *KL * 
***************** 



CANCEL 

ALREADY 

ISSUED 



E3 *. 

.* LOC *. 
.♦KEY EQUALS 
. REG POINT* 
*. *J3 



**** 

* * 

* 1 * 

* * 
**** 



****B4********* 

* EXIT TO ADDR * 

* IN LNK REG ♦ 

* * 
*************** 



ANAERR 

*****C4********** 
♦ERRRTN NC* 
*_*_*_*_*_*_*_*_* 

...X* SEND AREA * 

* NOT ACTIVE * 

* MSG 1I30D ♦ 
***************** 



****D4********* 

* CONTROL * 

* CHART KB * 

* * 
*************** 



CNCLME 

*****£4**#******* 

* ZERO A REG * 
*TO PROVIDE ALL * 

...X* INTERRUPTS * 

* MASKED CONDI- * 
♦TION ON SVC 22 * 
***************** 



****A$** ******* 

* * 

* CKBF12 * 

* * 
*************** 



*****B5********** 

* MOVE THE * 

* BG KEY TO * 

* REGISTER * 

* P0INT4 * 

* * 
***************** 



*****Q5********** 

* MOVE THE * 

* Fl KEY TO * 

* REGISTER * 

* POINT* * 

* * 
***************** 



* PUT BG KEY, ♦ 

* HEX*10' INTO * 

* REG POINT* ♦ 

* * 
***************** 



*****H1 ********** 
*CNLRTN NG* 
*_*-*_*-*-*-*-*-* 

* SET CANCEL * 

* CODE IN PIB * 

* * 
***************** 



CNCLIN 

*****G2********** 
*CNLRTN NG* 
*-*_*_*_*•*_*_*_* 

* SET CANCEL * 

* CODE IN PIB * 

* * 
***************** 



****H2********* 

* CONTROL * 

* CHART NB * 



*****P3 ********** 

* MOVE CANCEL * 

* CODE TO * 

* CORRECT PIB * 

* CANCEL CODE * 

* BYTE *H3 * 
***************** 



****G3********* 

* RET TO ADDR * 

* IN LINK REG * 

* * 
*************** 



*H3 
THE CANCEL 
CODES ARE 
SET FOR OPERATOR 
INTERVENTION 
CANCEL. 



*****F4******* 

* * 

* SVC 22 

* SEIZE THE 

* SYSTEM 

* * 
************** 



YES . 


* 


OPERAND 


* 


...*. 




EQUALS 




* 


* 


. «F1« 

*. .* 


# 


X 




*. .* 




**** 




♦ NO 




* 








1 * 










* 










**** 














X 




** 


***P5******** 


* 




MOVE THE 




* 




F2 KEY TO 




* 




REGISTER, 




* 




P0INT4 





************* 



*********** 



*****G4********** 


G5 *. 


* SET CANCEL * 


.* *. 


* CODE FOR * 


YES .* OPERAND *. 


* "PROGRAM- * 


...*. EQUALS 


* REQUEST- * 


*. «F2« .* 


* CANCEL' * 


*. .* 


***************** 


X *. .* 




**** *NO 




* * . **** 




* 1 * . * 




* ♦ . . .* 2 




**** . * 


X 

*****H4******* 


**** 


X 


* * 


****H5********* 


* SVC 22 * 


* NVSERR 


* RELEASE THE * 


* CHART NC 


* SYSTEM * 


* 



************** 



*************** 



***** 
*NA * 
* BA* 



*K1 
THE KEY USED 
IS CALLED THE 
EXPLICIT KEY 
BG=HEX HO 1 
F2=HEX «20« 
F1=HEX '30' 



*J2 
THE KEY USED IS CALLED 
THE IMPLICIT KEY. ITS 
VALUE IS SET WHEN A 
START IS ISSUED. A ZERO 
VALUE MEANS 

1. BATCH-ONLY ENVIRONMENT, 
USE BG KEY AS KEY TO 
PROGRAM TO BE CANCELED. 

2. MPS ENVIRONMENT-NO 
START HAS BEEN ISSUED 
USE BG KEY AS KEY TO 
PROGRAM TO BE CANCELED. 



*J3 
THE PROGRAM BEING 
INITIATED IS NOW 
BEING CANCELED. 



****J4********* 

* SVC 11 * 

* RETURN * 

* * 
*************** 
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Chart NH. $$BATTNC - PAUSE, LOG, NOLOG, and IGNORE Statement ■Processors' 
Refer to Chart 11. 



****A1********* 

* * 

* PAUSE * 

* * 
*************** 



***************** 



.♦ LAST *. 
* CHARACTER * 

IS AN EQUAL 
*. SIGN .* 



****C2********* 

* NVSERR * 

* CHART NC * 

* * 
*************** 



****A5********* 

*■■■•■■.■ * 

* LOG * 

* * 
*************** 



*****B5******* 

* TURN ON BIT* 

* FOR LOG IN * 

* JOB CONTROL 

* SWITCH AT * 

* COMREG+56 * 



****C5******* 
CONTROL 
CHART NB 



.* LAST *. NO 
♦.CHARACTER IS .*... 
*. A BLANK .* 



PAUSE2 

*****E1******* 

* TURN ON BIT* 

* FOR PAUSE IN * 

* JOB CONTROL 

* SWITCH AT * 

* COMREG+56 * 
************** 



*_*_*_*_ 



PAUSE1 

*****D3********** 

*SCANR3 ND* 



***************** 



*****E2********** 

* USE KEY TO * 

* GET ADDRESS * 

* OF COMM. * 
*REGION FOR THIS* 

* PARTITION * 
***************** 



SCAN *. YES 
STOP IS A .*.... 
. COMMA .* 



*****q 2 ********** 
*SAVE BACKGROUND* 

* COMM. REGION * 

* BASE REG, LOAD * 
*WITH PARTITION * 

* COMM. REGION * 
***************** 



*****H2******* 

* TURN ON BIT* 

* FOR PAUSE IN * 

* JOB CONTROL 

* SWITCH AT * 

* COMREG + 56- * 
************** 



*****J2 ********** 

* RESTORE * 

* BACKGROUND * 

* COMMUNICATION * 

* REGION BASE * 

* REGISTER * 
***************** 



LAST 
CHARACTER 
IS A BLANK. 



*YES **** 

* * 

* 1 * 

* * 
**** 



*****q 3 ********** 
■♦■SAVE' BACKGROUND* 

* COMM. REGION * 
♦BASE REG, LOAD * 
*WITH PARTITION * 

* COMM. REGION * 
***************** 



*****H3******* 

* TURN ON BIT* 

* FOR PAUSE-AT-* 

* EOJ-.IN JOB * 
♦CONTROL SWITCH* 

* COMREG+59 * 
************** 



*****J3********** 

* RESTORE * 

* BACKGROUND * 

* COMMUNICATION * 

* REGION BASE * 

* REGISTER * 
***************** 



****05********* 

* * 

* NOLOG * 
*************** 



*****E5******* 

* TURN OFF BIT* 

* FOR LOG IN * 

* 'JOB CONTROL 
*■;■ SWITCh AT * 
.* COMREG + 56 * 
************** 



****F5 ********* 

* CONTROL < 

* CHART NB 
* 

*************** 



****G5** ******* 
* ; • * 

*■••■• ■■ IGNORE • * 

*************** 



NO .* WAS A 
. .*. READ 
;*. ISSUED 



*****J5******* 

* SET INPUT 

* SWITCH 

* 'FLGBYO' 

* TO SYSRDR 



****K2********* 

* CONTROL" * 

* CHART NB * 

* * 
*************** 



**K5****** 

CONTROL 

CHART NB 
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Chart NJ. $$BATTND - MAP Statement Processor 
Refer to Chart 11. 



****A1********* 

* * 

* $$BATTND * 

* * 

*************** 



****A2********* 

* * 

* MAP * 

* * 
*************** 



HAP X 

*****BL********** 

* CLEAR THE I/O * 

* BUFFER AND * 

* MOVE THE MAP * 

* HEADER INTO * 

* THE BUFFER * 
***************** 



*****C1*« ******** 
♦OUTPUT NL* 
*-*-*-*-*_*_*-*-* 

* OUTPUT MAP * 

* HEADER LINE * 

* * 
***************** 



*****Dl ********** 

* CLEAR THE I/O * 

* BUFFER AND * 

* SET OUTPUT * 

* LENGTH TO 1 * 

* * 
***************** 



*****E i ********** 

♦SKPLIN NL* 
*_*_*_*_*_*_*_*_* 

* SKIP ONE * 

* LINE * 

* * 
***************** 



*****F1 ********** 
* CALC THE PIB * 
♦ADDRESS OF THE * 
♦PROBLEM PROGRAM* 
♦SUPPORTING THE * 
♦INTERVAL TIMER ♦ 
***************** 



*****G1********** 
♦STUSPC NK* 
*_*_*-*_*_*_*_*-* 
♦CALC SUPERVISOR* 

* UPPER LIMIT * 

* * 
************ 



*****A3********** 
♦STUCRL NK* 
*-*-*-*-*-*-*-*-* 

* OUTPUT * 

* BG, SET UP * 

* F2 LINE * 
***************** 



*****B 3 ********** 

*STUCRL KL* 
*_*_*_*,*_*_*_*-* 

* OUTPUT F2 * 
♦SET UP Fl LINE * 

* * 
***************** 



*****C3********** 

* PUT END OF * 

* MAIN STORAGE * 

* ADDRESS INTO * 

* A WORK * 

* REGISTER * 
***************** 



*****D3 ********** 
*STUF1U NK* 
*_*..*_*_*_*.*_*_* 

* SET UP * 

* END OF MAIN * 

* STORAGE * 
***************** 



*****E3********** 
♦OUTPUT NL* 
*_*_*_*_*_*_*_*_* 

* OUTPUT Fl * 

* LINE * 

* * 
***************** 



****F3********* 

* CONTROL * 

* CHART NB * 

* * 
*************** 



*****H1********** 

* CALC THE * 

* NUMBER OF * 

* BG IK * 

* BLOCKS * 

* *H2 * 
***************** 



*H2 
NUMBER OF IK 
BG BLOCKS EQUALS 
F2 STARTING 
ADDRESS PLUS 1 
MINUS STARTING 
ADDRESS OF BG 
AREA DIVIDED 
BY 1024. 



*****J1********** 

*STUBGL NK* 
*_*-*_*_*_*_*_*-* 

* OUTPUT * 
♦SUPERVISOR LINE+ 
♦SET UP BG LINE * 
* **************** 



*****«!********** 

* PUT PROGRAM * 

* NAME INTO * 

* LOCATION * 

* NAMFLD * 

* * 
***************** 



* 1 * 

* * 
**** 
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Chart NK. $$BATTND - Output MAP Subroutines (Part 1 of 2) 
Refer to Chart 11. 



**** 

* * 

* i * 

* * 
**** 



****A1********* 

* * 

* * STUCRL * 

* * 
*************** 



STUCRL X 

*****B1 ********** 

* CALCULATE * 

* THE NUMBER * 

* OF IK BLOCKS * 

* *C2 * 

* * 
***************** 



****A3********* 

* * 

* STUSPC * 

* * 
*************** 



****B2********* 

* * 

* STUBGL * 

* * 
*************** 



STUBGL 

*****£ X ********** 

♦CNVBCD NL* 
*_*^ *„*_*_*-*_*_* 

♦CONVERT NUMBER * 

* OF IK BLOCKS * 

* TO -EBCDIC * 
***************** 



*****01 ********** 

♦OUTPUT NL+ 
*_*_*^*_,*_*..*^*_* 

♦ TYPE BUFFER ♦ 

♦ CONTENTS ON ♦ 

♦ SYSLOG ♦ 
***************** 



*****E i********** 

♦ CLEAR I/O ♦ 
♦BUFFER AND LOAD+ 
♦IT WITH NUMBER ♦ 

♦ OF IK BLOCKS ♦ 

♦ ♦ 
***************** 



Fl ♦, 

,♦ PIB ♦. 

,♦ INDICATES ♦. 

.♦.TIMER SUPPORT. ♦ 

♦ . .♦ 



*****G1 ********** 

♦ MOVE THE ♦ 

♦ CHARACTER «T' ♦ 

♦ INTO THE ♦ 

♦ BUFFER ♦ 

♦ * 
***************** 



♦C2 
DOUBLE THE NUMBER 
OF 2K BLOCKS FOUND 
IN THE PIB ENTRY. 



♦ D2 
THE SUPERVISOR AND 
BG PROGRAM UPPER 
LIMITS ARE CALCULATED 
BY GETTING THE BG AND 
F2 ORIGIN ADDRESSES 



STUSPC 

*****B3********** 

♦ PUT THE ♦ 
♦PROGRAM PREFIX ♦ 

♦ INTO THE I/O ♦ 

♦ BUFFER ♦ 

♦ * 
***************** 



*****C3********** 

♦ CALCULATE ♦ 

♦ UPPER LIMIT ♦ 

♦ INFORMATION ♦ 

♦ ^D2 ♦ 

♦ * 
***************** 



****C4********* 

* * 

* STUFIU ♦ 

* * 
*************** 



STUFIU 

*****Q3********** 

♦CNVBCD NL^ 
*_*_*_*«*^.*-*«*_* 

♦ CONVERT UPPER ♦ 

♦ LIMIT TO ♦ 

♦ EBCDIC ♦ 
***************** 



*****E3********** 

♦ MOVE THE ♦ 
♦UPPER LIMIT TO ♦ 

♦ THE CORRECT ♦ 

♦ FIELD OF THE ♦ 

♦ I/O BUFFER ♦ 
***************** 



*****P3********** 

* * 

* POINT TO THE * 

* NEXT PIB ♦ 

* ENTRY ♦ 

* * 
***************** 



****G3 ********* 

* RET TO ADDR ♦ 

* IN LNK REG ♦ 

* ♦ 
*************** 



.♦ PIB ♦. YES 
♦INDICATES TASK.*.*. 
♦.DETACHED .♦ 



***** j i ********** 

♦ GET PROGRAM ♦ 
♦NAME FROM SAVE ♦ 
♦AREA AND PUT IT* 

♦ INTO THE I/O ♦ 

♦ BUFFER ♦ 
***************** 
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Chart NL. $$BATTNp - Output MAP Subroutines (Part 2 of 2) 
Refer to Chart 11 • 



* * 

* CNV8CD * 
*************** 



*****Q1 ********** 

* CONVERT LIMIT » 
♦INFORMATION TO * 

* UNPACKED * 

* EBCDIC * 

* * 
***************** 



*****C !**♦*♦♦*♦♦♦ 

* PUT ADDRESS * 

* OF FIELD INTO * 

* A WORK * 

* REGISTER * 

* * 
***************** 



**** 

* * 

* 1 * 

* * 

**** 



****A3********* 

* * 

* OUTPUT * 
*************** 



*****B3********** 
♦PUT THE ADDRESS^ 

♦ OF THE LAST ♦ 

♦ BYTE OF THE ♦ 

♦ I/O BUFFER ♦ 

♦ INTO A REG ♦ 
***************** 



.♦ CHARACTER ♦. YES 
EQUALS ...... 

*. BLANK .* 



.X^ 



.♦ CHARACTER ♦. NO 
EQUALS .*... 
♦, ZERQ ,♦ 



.♦ END *. YES 
♦. OF FIELD .♦..., 

♦ . .♦' 



*****F1********** 

♦ REPLACE ZERO ♦ 

♦ WITH A BLANK * 

♦ POINT ♦ 

♦ TO NEXT CHAR ♦ 

♦ * 
***************** 



*****Q3********** 

* * 

♦ CALCULATE ♦ 

* LENGTH FOR ♦ 

♦ I/O OPERATION ♦ 
***************** 



*****C4******^*^* 

* DECREASE ♦ 
REG BY ONEt ♦ 

POINT AT ♦ 
PRECEDING ♦ 

* CHAR ♦ 
***************** 

* **** 



**** 

****Q4********* 

♦ SKPLIN ♦ 

* * 
*************** 



* RET TO ADDR ♦ 

* IN LNK REG * 

*************** 



SKPLIN X 

*****E3********** 

♦ STORE LENGTH * 

♦ IN SYSLOG * 

♦ OUTPUT CCWi * 

♦ SET UP CCB ♦ 

♦ * 
***************** 



*****F3********** 
♦EXCPRG NC* 
,*_*-.*,*_*-*-.*•*-* 

♦ PERFORM THE * 

♦ I/O OPERATION ♦ 

♦ * 
***************** 



****G3**^**+*^ 

♦ RET TO ADDR ♦ 

♦ IN LNK REG ♦ 

♦ VIA EXCPRG ♦ 
*************** 
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Chart NM. $$BATTNE - ALLOC Statement Processor (Part 1 of 4) 
Refer to Chart 12. 



♦A5 
EXIT ON THE NO LEG THE 
FIRST TIME THROUGH THIS 
ROUTINE. 



****Al ********* 

* $$BATTNE * 

* *C2 * 

* * 
***************. 



*****Bi********** 
♦RESET DUPLICATE* 

* OPERAND AND * 
♦SECOND OPERAND * 

* SWITCHES * 

* *B2 * 
ft**************** 



CRTBLD 

*****d ********** 

* SET UP WRKRG1 * 

* WITH THE END * 
*0F STORAGE ADDR* 
♦POINT 1 WITH Fl* 

* TBL ADDRESS * 
***************** 



*****Ol ********** 

* SET UP POINT2 * 

* WITH THE PIB * 

* TABLE ADDRESS * 

* AND ZERO THE * 

* BYTE CNT REG * 
***************** 



INNXEN 

*****£ 1********** 

* STORE THE * 

* CONTENTS OF * 

* WRKRG1 IN THE * 
*TABLE AS UPPER * 
♦LIMIT VALUE *E2* 
***************** 



*****p 1 ********** 
*GET ORIGIN FROM* 

* CURRENT PIB * 
*AND MOVE IT TO * 

* THE TABLE AS ♦ 

* LOWER LIMIT ♦ 
***************** 



*****Gi ********** 

* CALC UPPER * 
♦LIMIT FOR NEXT ♦ 

♦ TABLE ENTRY * 
♦-CURRENT LOWER ♦ 
♦LIMIT MINUS 1- * 
***************** 



*****Hl********** 

* CALC NUMBER * 

* OF 2K BLOCKS * 

* AND STORE * 

* IN TABLE ♦ 

* *J2 * 
***************** 



***** j i ********** 

* ADD NUMBER * 

* OF 2K BLOCKS * 

* TO THE BYTE * 

* COUNT REG, ♦ 

* WRKRG4 ♦ 
***************** 



****** i ********** 
♦MOVE THE UPPER ♦ 

* LIMIT FOR THE * 
♦NEXT AREA INTO * 
♦WRKRG1 *K2* 

* * 
***************** 



****A2***^*^^ 

* ALLOC ♦ 

* *C2 ♦ 

* * 
*************** 



*B2 
AT 'CHKPRN' 
AND 'CKSCST' 



*C2 
SEE NOTE AT 
*G5 CHART NN. 



B3 *. 

.* PIB ♦. 

.♦ INDICATES *. 

.TASK DETACHED. 



*****C3********** 

* USE ADDRESS * 

* OF SAVE AREA * 
♦AS LOWER LIMIT * 

* AND PUT INTO * 

* TABLE ♦ 
***************** 



*E2 
THIS VALUE IS ALSO STORED 
IN THE ACTIVE LOWER LIMIT 
FIELD INDICATING THIS 
FIELD IS INACTIVE. IT 
CONTAINS A HEX FF IN THE 
LAST BYTE. 



♦ F2 
THIS LOOP IS EXECUTED 
UNTIL 3 TABLES, ONE FOR 
EACH TYPE OF PROBLEM 
PROGRAM, ARE BUILT. THE 
TABLES ARE BUILT IN THE 
SEQUENCE Fl, F2, AND 
BG. THE SEQUENCE IS A 
REVERSAL OF THE PHYSICAL 
ORDER. SEE LABEL LIST 
FOR ATABLE. F2TBEN AND 
F1TBEN EXPANSIONS. 



*****03********** 
♦DECREASE POINT1+ 

♦ AND POINT2 BY * 

♦ 16 POINT TO * 

♦ NEXT TBL AND * 
♦PIB RESPECTIVELY 

. ***************** 



ALLOCATION 

♦. TABLE . 

♦. ^F2 .* 



**** 

* * 
♦NN ♦.X. 

* F3^ 
**** 

GTNXOP X 

*****F3********** 
♦SCANR2 ND* 
*-*_*-*-*-*-*-*_* 

* GET FIRST ♦ 

* OPERAND * 

* *J5 * 
***************** 



*****G3********** 

* LOAD THE * 

* ADDRESS OF * 

* THE Fl TABLE ♦ 

* INTO P0INT4 * 

* * 
***************** 



.♦ DUPLICATE *. 
.FIRST OPERAND. 
♦. *A5 .♦ 



♦♦♦♦♦(^♦♦♦♦♦♦♦♦♦+ 

♦ MOVE THE * 

♦ OPERAND FOUND * 

♦ BY SCANIR2 * 

♦ INTO THE * 
♦PRECEDING TEST * 
***************** 



*****04********** 
♦SCANR3 ND^ 
*-*_*-*_*_*_*_*_* 

* GET NUMERIC * 

* ALLOCATION ♦ 

* VALUE ♦ 
***************** 



* DELI 

IS AN 

*. SI 



MITER * 

EQUAL 
GN .* 



*F5 

THE INSTRUCTION AT LOCA- 
TION CKSCST IS MODIFIED 
TO BRANCH TO THE ERROR 
HANDLING ROUTINE IF THE 
SECOND OPERAND IS 
DELIMITED BY AN, EQUAL 
SIGN OR A COMMA. THE 
COMMA IS ALLOWED TO 
DELIMIT THE FIRST 
OPERAND. 



*****G4******* 

* MODIFY TEST* 

* AFTER RETURN * 

* FROM SUB- ♦ 

* ROUTINE *F5^ 

* * 
************** 



***** 
♦NN * 
* Bl* 



♦ J2 
CURRENT UPPER LIMIT MINUS 
NEXT UPPER LIMIT DIVIDED 
BY 2048. 



WRKRG1 CONTAINS CHANGING 
(DYNAMIC) UPPER LIMIT 
INFORMATION. 



.* FIRST * 


YES 






♦OPERAND EQUALS 


.* 






♦. Fl .* 








♦ . .♦ 






**** 


♦ . .♦ 




X 




♦ NO 




**** 


* 3 






* * 


* 






* 2 ♦ 


.**** 






* * 








**** 






X 










*****J3********** 








♦ LOAD THE 










♦ ADDRESS OF 


* 








♦ THE F2 TABLE 


* 








* INTO P0INT4 


* 









***************** 



*J5 
THE ALLOC STATEMENT 
FORMAT 

ALLOC F1=2K, F2=2K 
Fl= GR F2= IS CONSIDERED 
THE FIRST OPERAND. IF 
BOTH Fl AND F2 ARE 
SPECIFIED SCANR2 IS 
USED TWICE. 



****«4********* 
.* FIRST ♦.NO X ♦ NVSERR ♦ 

♦ OPERAND EQUALS. ♦ X^ CHART NC * 

*. F2 .* ♦ * 

*. .* *************** 
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Chart NN. $$BATTNE - ALLOC Statement Processor (Part 2 of 4) 
Refer to Chart 12. 



***** 

*NM * 
* G4* 



B3 *. 
.* LAST *. 
NO .* CHARACTER 
...*. OF OPERAND 



OPERAND 
LENGTH 
GT 5 



*****C3*a)<******** 

* CONVERT * 

* NUMERIC VALUE * 

* TO PACKED * 

* BINARY AND * 

* DIVIDE BY 2 * 
***************** 



*****0L********** 

* * 

* PUT ADDRESS * 
*0F THE OPERAND * 

* INTO WRKRG3 * 

* * 
***************** 



YES .* NUMBER * 
....*. OF 2K BLOCKS 
*. GT 255 .* 



*D5 
A BLANK DELIMITER INDICATES NO MORE OPERANDS 
FOLLOW. HOWEVER, AN ALLOC STATEMENT CAN 
CONTAIN TWO OPERAND FIELDS (Fl AND F2) 
SEPARATED BY A COMMA. A COMMA DELIMITER 
REQUIRES ANOTHER PASS THROUGH THIS ROUTINE 
STARTING AT GTNXOP TO PROCESS THE SECOND 
OPERAND. 



.* OPERAND 
. CHARACTER 
*. NUMERIC . : 



*****£ 3 ********** 

* SAVE THE * 

* NUMBER OF * 

* 2K BLOCKS IN * 

* THE CORRECT * 

* TABLE ENTRY * 
***************** 



* SCAN *. 

STOPPED 

N A BLANK 

*D5 



*****G1 ********** 
*TEST CHARACTER * 

* TO DETERMINE * 
*IF IT IS AN ODD* 

* NUMBER *J3 * 



*****H1 ********** 

* POINT WRKRG3 * 

* TO THE NEXT * 

* CHARACTER OF * 

* THE OPERAND * 

* * 
***************** 



*****G3******** 

* SET UP TO 

* LOAD AND 

* EXECUTE 

* SSBATTNF 

* *G5 
*************** 



****H3******* 

* SVC 4 LOAD 

* SSBATTNF 

* CHART NP 
************* 



*G5 
THE LOAD INSTRUCT 
INSTRUCTION FOUND 
TRANSIENT. THE "" 
THE ROOT PHASE 
TO BEGIN rtlTH THE 
INSTRUCTION. WHEN 
FINISHED PROCESSI 
BRANCHING TO THE 
THIS IS THE AODRE 
SSBATTNF IS LOADEl 
FIRST PART OF $$B 
SVC 4 AS ITS FIRS 
SUPERVISOR GIVES 
NEXT INSTRUCTION 



IGN IS PHYSICALLY THE FIRST 

IN THE LISTING OF THIS 
ANCH VECTOR TABLE FOUND IN 
tbATTNA, CAUSES PROCESSING 

SECOND EXECUTABLE 

THIS TRANSIENT IS 
..G, THE LOAD IS EXECUTED BY 
ADDRESS IN THE BASE REGISTER. 
SS OF THE SVC 4 INSTRUCTION. 
~ SO THAT IT OVERLAYS THE 

TTNE. $$BATTNF ALSO HAS A 
. INSTRUCTION, BUT 
CONTROL TO $$BATTNF AT THE 
FOLLOWING A SVC 4. 



.*END OF * 
NO .* NUMERIC 
...*. CHAR IN 
*. OPERAND 



*J3 
EACH CHARACTER IS TESTED TO 
DETERMINE IF IT IS ODD. THE 
TEST TO DETERMINE IF THE 
ALLOCATION IS IN MULTIPLES 
OF 2K IS MADE ON THE LAST 
NUMERIC CHARACTER ONLY. 



NUMBER 
ODD 
*J3 



**K2********* 
NVSERR * 
CHART NC * 
* 
************* 
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Chart NP. $$BATTNF - ALLOC Statement Processor (Part 3 of A) 
Refer to Chart 12. 



**** A !****♦***♦ 

* * 

* $$BATTNF * 
*************** 



****A2********* 

* * 

* STARTF+2 * 

* * 
*************** 



*****Bl********** 

* LOAD ADDRESSES * 
*0F END OF MAIN * 

* STORAGE AND * 

* OF Fl TABLE * 

* * 
***************** 



* 2 *., 



**** 
CMNWLM X 

*****d********** 

* SAVE TOTAL * 

* NUMBER OF 2K * 

* BLOCKS IN * 

* «BGN02K« * 

* * 
***************** 



*****Dl*********« 

* CALCULATE * 

* TOTAL BLOCKS * 

* MINUS * 

* ALLOCATED * 

* BLOCKS * 
***************** 



*C3 
NEW UPPER LIMIT EQUALS 
UPPER LIMIT OF LAST AREA 
PLUS NUMBER OF BYTES 
IN LAST AREA. 



STLLMT X 

*****B4********** 

* STORE NEW * 

* LIMITS IN * 

* THE CORRECT * 

* TABLE ENTRY * 

* * 
***************** 



*****C4********** 

* CALC NEW * 

* UPPER LIMIT * 

* FOR THE NEXT * 

* TABLE ENTRY * 

* *C3 * 
***************** 



*****Q4********** 

* SET REGISTER * 

* POINTER, * 

* POINT1 TO * 

* NEXT TABLE * 

* ENTRY * 
***************** 



*****P1********** 

* * 

* CALCULATE * 

* LOWER LIMIT * 

* *F2 * 

* * 
***************** 



Gl *. 
.♦ ♦ . 
.* IS *. NO 
. AREA ACTIVE .*... 
*. *H2 .* 



HI *. 
.* NEW *. 
YES .*UPPER LIMIT*. 
X..*. LESS THAN .* 
*. OLD .* 
♦.LIMIT.* 
*. .* 
♦NO 



.*. 

Jl *. 

.♦ NEW ♦. 

.♦LOWER LIMIT*. NO 

♦.GREATER THAN .*..X 

*. OLD .* 

♦.LIMIT.* 



♦ F2 
THE LOWER LIMIT IS CALCULATED 
BY GETTING THE NUMBER OF 2K BLOCKS 
FROM THE CORRECT TABLE ENTRY, 
CONVERTING THIS VALUE OF BYTES 
(2K BLOCKS TIMES 20481, 
SUBTRACTING THE BYTE COUNT FROM 
THE UPPER LIMIT AND ADDING ONE. 



♦H2 
A HEX FF IS FOUND IN THE LAST BYTE 
OF THE POINTER SAVE AREA FIELD OF AN 
INACTIVE ENTRY. THIS IS THE LAST 
BYTE OF AN UPPER LIMIT ADDRESS 
(ALWAYS FF). 



.* END OF *. NO 
*. ALLOCATION .♦... 
♦. TABLE .♦ 
♦ . .♦ 



**** 

* * 

* 2 ♦ 

* * 
**** 



*****P4********** 

*CHGSTT NQ+ 
*-*-*.*_*_*_*_*_* 

♦ ENTER ♦ 

♦ SUPERVISOR ♦ 

♦ STATE ♦FS ♦ 
***************** 



*****Q4********** 

♦ INITIALIZE ♦ 

♦ FOR LOW TO ♦ 

♦ HIGH SCAN OF ♦ 

♦ ALLOCATION ♦ 

♦ TABLE +G5 ♦ 
***************** 



♦ F5 
NECESSARY TO 
ISSUE PRIVILEGED 
INSTRUCTION SSK 
IN SUBSEQUENT 
PROCESSING. 



♦G5 
BY USING A FORWARD SCAN 
OF THE ALLOCATION TABLE, 
CONTINUITY IS ENSURED. 
/INITIALLY 

/POINTl EQ ATABLE-16 
P0INT2 EQ PIBTBL ADDRESS 
WRKRG2 EQ STORAGE KEY 
WRKRG1 EQ BG LOWER LIMIT 



X 

***** 
♦NQ ♦ 
* Bl* 



♦YES 



♦♦♦♦^♦♦♦♦♦♦♦♦+ 

♦ ERRRTN ♦ 

♦ CHART NC ♦ 

♦ *K2 * 
*************** 



**** 

* * 

* 1 * 

* * 
**** 



*K2 
•1P00D 
INVALID 
ALLOCATION' 
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Chart NQ. $$BATTNF - ALLOC Statement Processor 
Refer to Chart 12. 



(Part 4 of 1) 



***** 

*NP * 
* G4* 



NXPBNT X 

*****B1********** 

* ADD 16 TO * 

* THE TABLE * 

* POINTER SO * 
♦THAT IT POINTS * 

* TO NEXT ENTRY * 
ft**************** 



*****oi*********« 

* POINT TO NEXT * 
*PIB WITH P0INT2* 

* AND ADD 16 TO * 

* STORAGE KEY * 

* IN WRKRG2 * 
***************** 



*****£ 1********** 


♦ SET 


PIB VALUES ♦ 


♦FOR 


LOWER LIMIT* 


♦ AND 


BLOCK COUNTS 


♦FROM ALLOCATION^ 


* 


TABLE ♦ 


***************** 


**** 




* 


* 




♦ 1 


*. . 




* 


* 




**** X 


CKNDAR 


.♦. 




Fl *. 


.* *. 


YES .♦ 


END *. 


.. .*. 


OF AREA .* 


*. 


♦v 


Jl .♦ 



X .♦ BATCHING *. NO 
,...X*.JOBS IN Fl OR.*... 
*. F2 .♦ 
*. *D3 .♦ 



*****D2******^*** 

* INITIALIZE * 

* WRKRG4 TO * 

* START LOOP * 

* WITH Fl * 

* *E3 * 
***************** 



RSPPAE1 X 

*****E2********** 

♦ GET ADDRESS ♦ 

♦ OF COMREG ♦ 

♦ FOR THIS ♦ 
♦PARTITION FROM ♦ 
♦2ND PART OF PIB+ 
***************** 



*****p 2 ********** 

♦ PUT UPPER ♦ 

♦ ADDRESS OF * 
♦THIS PARTITION ♦ 

♦ INTO HEX BYTE ♦ 

♦ 20 OF COMREG ♦ 
***************** 



♦ 03 
CHECK SYSTEM CONFIG BYTE 
IN COMREG BIT 5. IF ON, 
THERE ARE THREE COMREGS. 



♦ E3 
WRKRG4 IS INITIALIZED TO 
X'20« FOR Fl. IF NO 
BATCH IN FOREGROUND 
WRKRG4 IS SET 
TO FOR BG ONLY. 



****A4**^****** 

♦ CHGSTT ♦ 

♦ ♦ AS ♦ 

♦ * 
*************** 



*****B4********** 

♦ SAVE THE ♦ 

♦ ADDRESS OF ♦ 

♦ THE PC RTN ♦ 

♦ FOUND IN THE * 

♦ NEW PC PSW * 
***************** 



*****C4********** 
♦PUT INSTR ADDR ♦ 

♦ OF INSTR FOL- ♦ 

♦ LOWING BAL IN ♦ 
♦THE ADDR FLD OF* 

♦ NEW PC PSW ♦ 
***************** 



*****D4******* 

* * 

* FORCE A 

* PROGRAM 

* CHECK 

* * 
************** 



****E4********* 
♦NSI FOLLOWS BAL^ 

♦ INSTRUCTION ♦ 

* * 
*************** 



*A5 
USED TO ENTER AND EXIT THE 
SUPVERSIOR STATE. WHEN 
USED AS AN EXIT, CERTAIN 
BIT SWITCHES IN THE SVC 
NEW PSW ARE RESET TO THEIR 
ORIGINAL VALUES. 



*****G1******* 

♦ * 

♦ SET STORAGE ♦ 
♦PROTECTION KEY 

♦ IN THIS 2K ♦ 

♦ BLOCK ♦ 
************** 



*****G2 ********** 

♦ DECREMENT ♦ 

♦ WRKRG4 TO ♦ 

♦ POINT TO NEXT ♦ 

♦ PARTITION * 

♦ * 
***************** 



*****Hl ********** 

♦ ADD 2048 ♦ 

♦ TO W0RKG1, ♦ 

♦ INITIALLY ♦ 

♦ LOWER ♦ 

♦ LIMIT ♦ 
***************** 



*****H3******* 

* STORE BG 
X+ START ADDR. 

* IN PIB 

* * 
************** 



* 1 * 

* * 
♦Jl ♦♦♦♦ 

DETERMINED BY REPETITIVE 
ADDITIONS OF 2048 TO 
THE LOWER LIMIT UNTIL 
IT IS GREATER THAN THE 
UPPER LIMIT OF AN AREA. 



*****J3******* 

* * 

♦ RETURN TO ♦ 
♦PROBLEM PROGRAM^ 

♦ STATE ♦Kl * 

* * 
************** 



♦ Kl 
RETURN IS MADE BY LOADING 
THE OLD PC PSW IN WHICH 
THE ADDRESS OF •CONTROL* 
HAS BEEN STORED. 



****K3********* 

* CONTROL ♦ 

* CHART NB ♦ 

* * 
*************** 
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Chart NR. $$BATTNG - START and BATCH Statement Processors 
Refer to Chart 12. 



****Ai********* 



*************** 



*A2 
THIS DECISION IS SHOWN 
HERE FOR LOGIC 
DESCRIPTION ONLY. ENTRY 
POINT IS DETERMINED BY 
BRANCH VECTOR TABLE IN 
$$BATTNA. 



*A3 
TITLE ALLOWS IDENTIFICATION 
OF ATTENTION ROUTINE AS AN 
INITIATOR EVEN THOUGH IT IS 
EXECUTED FROM FOREGROUND 
PROGRAM AREA. 



X 

.*. 
Bl *. 








.* *. 








.* START *. 


BATCH 






*. OR BATCH .* 








♦ . *A2 .* 








*. .* 






**** 


*. .* 


X 




* * 


♦START 


**** 




* 1 * 




* * 




* * 




* 3 * 




**** 




* * 








**** 




. 


RT X 






X 


*****d******* 




*****C2******* 


* INSERT X'40'* 




* 


DETACH THE 


*IN INSTRUCTION* 




* 


ATTENTION 


* AT F2CALC1 * 




* 


TASK. PIB 


* TO TEST * 




* 


FLAG EQ 


* FOR MPS * 




* 


X'81' 


************** 




************** 



*****QL********** 

♦INITOPR NS* 
*_*-*_*_*-*-*_*-* 

* GET OPERAND * 
♦AND CHECK AREA * 

***************** 



El ♦ . 
.♦ CORE ♦ . 
* ALLOCATED ♦ . NO 
FOR THIS .*... 
TASK .* 



*. 



*****F1 ********** 

* LOAD THE BASE * 

* REGISTER FOR * 
♦THE FG PROGRAM * 

* FROM THE ORG * 
♦FLD OF ITS PIB * 
***************** 



*****G1 ********** 

♦ PUT INITIATOR * 
♦TITLE AND • SVC * 
♦LOAD' INSTRUCT ♦ 

♦ INTO PROGRAM * 
♦NAME FIELD *A3 ♦ 
***************** 



*****Hl ********** 

♦ SET UP TO ♦ 

♦ DISABLE ♦ 

♦ INTERRUPTS ON ♦ 

♦ SVC 22 ♦ 

♦ * 
***************** 



*****jl******* 

♦ * 

♦ SVC 22 

♦ SEIZE THE 

♦ SYSTEM 

♦ * 
************** 



*****D2********** 

♦ MOVE ADDR OF ♦ 
♦ATTENTION SAVE ♦ 

♦ AREA TO THE * 
♦FOREGROUND PIB ♦ 

♦ * 
***************** 



*****E2********** 

♦ MOVE CONTENTS ♦ 
♦OF LOGICAL TRAN* 

♦ -SIENT BUCKET ♦ 
♦TO OLD ATTENTN ♦ 

♦ SAVE AREA ♦ 
***************** 



*****F2^*^******* 

♦ MOVE ADDR OF * 

♦ FG ORIGIN ♦ 

♦ INTO LOGICAL ♦ 

♦ TRANSIENT ♦ 

♦ BUCKET ♦ 
***************** 



*****G2******* 



************** 



*****H2*^++^ 

♦ MODIFY PIK,* 

♦ LTK, AND KEY : 

♦ TO EQUAL FG 

♦ KEY 

♦ * 
************** 



*****j2********** 
♦ASSGNLOG NS* 
*_*_*_*_*.*_*-*-* 

♦ ASSIGN SYSLOG ♦ 

♦ TO FOREGROUND ♦ 

♦ PARTITION ♦ 
***************** 



**** 

* * 

* 3 ♦ 

* * 
**** 



BATCH X 

*****B4******* 

♦ INSERT X'44'* 
♦IN INSTRUCTION* 

♦ AT F2CALC1 TO ♦ 

♦ TEST FOR * 

♦ MPS AND BJF+ 
************** 



♦C3 
FROM THIS POINT THE 
INITIATOR USES THE FG 
PIB IN TASK SELECTION. 
CAUTION 

THE INITIATOR CONTINUES 
TO RUN AS AN ATTENTION 
TASK. THE TRANSIENT 
AREA IS OCCUPIED BY THE 
ROOT PHASE AND THE 
LOGICAL TRANSIENT KEY 
INDICATES THE TRANSIENT 
AREA IS IN USE. A SVC 
11 IS THE ONLY WAY TO 
RELEASE THE AREA. 



SECOND PART OF PIB TABLE 
PLUS DISPLACEMENT 
CALCULATED IN POINT 4 BY 
INITOPR SUBROUTINE. 



*****G3********** 

♦ SET UP TO * 

♦ ENABLE * 

♦ INTERRUPTS ♦ 

♦ ON SVC 22 * 

♦ * 
***************** 



*****H3******* 

♦ * 

♦ SVC 22 

♦ RELEASE THE 

♦ SYSTEM 

♦ * 
************** 



*****J3********** 

♦ SET UP TO * 

♦ LOAD * 

♦ $$BATTNH * 

♦ *J5 ♦ 

♦ * 
***************** 



****K3********* 

♦ SVC 4 LOAD ♦ 

♦ $$BATTNH ♦ 

♦ *J5 ♦ 
*************** 



*****A5********** 

♦ INSERT ♦ 

♦ 'NO NAME" IN * 

♦ THE PROGRAM ♦ 

♦ NAME FIELD * 

♦ * 
***************** 



*****B5********** 

* SET UP TO ♦ 

* DISABLE * 

* . INTERRUPTS ♦ 

* ON SVC 22 * 

* * 
***************** 



*****C4******** 


K* 




*****C5********** 


♦INITOPR NS* 




* 


CLEAR LABEL ♦ 


*-*_*-*-*-*_*-*- 


-* 




* 


LENGTH FROM * 


♦ GET OPERAND 


* 




* 


PARTITION ♦ 


♦AND CHECK AREA 


* 




* 


SAVE AREA ♦ 


* 
*************** 


* 
!<* 


**** 
* * 


* 


* 
*************** 


X 




* 5 * 










* * 




X 


D4 *. 




**** 


*****D5******* 


.♦ CORE *. 






* 


* 


.♦ AVAILABLE ♦ 


. NO . 


* 


SVC 22 * 


♦. AT LEAST 


.* 


.X. 


* 


SEIZE THE * 


*. 10K .♦ 






* 


SYSTEM * 


♦ . .* 






* 


* 


♦ . .♦ 




X 


************** 


♦YES 




*NS * 

* J5^ 

* * 

* 

UNAV 






X 








X 


*****E4********= 


!«* 




*****E5******* 


♦ASSGNLOG NS* 




* 


TURN ON * 


*_*_*_*-.*_*_*_*- 


-* 




* 


BIT IN * 


♦ ASSIGN SYSLOG 


* 




* 


LAST BYTE OF * 


* TO FOREGROUND 


* 




* 


PIB FOR * 


♦ PARTITION 


* 




* 


•BJF IN FG«* 


***************** 




************** 



*****F4********** 

* CALCULATE * 

* ADDRESS OF * 

* COMMUNICATION * 

* REGION FOR * 

* PARTITION ♦ES ♦ 
***************** 



*****G4******* 

* TURN ON BIT* 

* FOR 'BATCH * 

* COMMAND JUST * 
♦ISSUED', BIT 7* 

* IN COMREG+59* 
************** 



*****H4********** 

* * 

* INSERT 'NO * 
*NAME' IN COMM. * 
♦REGION JOB NAME* 

* * 
***************** 



*****j4********** 

* MOVE ADDRESS * 

* OF PARTITION * 

* ORIGIN INTO * 

* THE PIB * 

* * 
***************** 



*****F5******* 

* SET PIB * 

* FLAG TO X'81«* 
*AND SET CANCEL 

* CODE IN PIB * 

* FOR EOJ * 
************** 



*****G5******* 

* * 

* SVC 22 

* RELEASE 

* THE SYSTEM 

* * 
************** 



***** 

*NA * 

* B4* 

* * 



*J5 
A SIMILAR TECHNIQUE TO 
THAT USED IN $$BATTNE 
(CHART NN f NOTE G5) IS 
USED HERE TO GET THE 
NEXT PHASE. A SVC 4 
INSTRUCTION FOLLOWS THE 
EIGHT-CHARACTER NAME 
AND A BRANCH IS MADE 
TO THAT SVC 4 
INSTRUCTION (BASE 
REGISTER +8). 
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Chart NS. $$BATTNG - START and BATCH Subroutines 
Refer to Chart 12. 



****A1********* 

* # 

* INITOPR * 

* * 
*************** 



****A5******** 
* 

* . ASSGNLOG 
* 

************** 



*****B1 ********** 
*SCANR2 ND* 
*_*_*_*_*_*_*_*_* 

* GET * 

* OPERAND * 

* * 
***************** 



*****B 5 ********** 
♦LOAD ADDRESSES * 

* OF LUB TABLE * 

* AND OF SECOND * 

* PART OF PIB * 

* TABLE * 
***************** 



BLANK 

OPERAND 

*C3 



**** 

* * 

* 1 * 



*****C5********* 

* GET SYSTEM 

* CLASS INDEX 

* (FICL) FROM 
*SECOND PART OF 

* PIB TABLE 
**************** 



*****D5********** 

* CALCULATE * 

* SYSTEM CLASS * 

* LUB TABLE * 

* ADDRESSES * 



********* 



*** 



BGCALC 

*****£ 3********** 

* ADD 16 TO * 

* PIB TABLE * 

* DISPLACEMENT * 

* IN POINTA * 

* * 
***************** 



*****£ 5********** 

* MOVE SYSLOG * 
*AND SYSRES LUB * 

* ASSIGNMENTS * 

* TO DESIGNATED * 

* PART OF TABLE * 
***************** 



*****F 3 ********** 

* USE THE * 

* DISPLACEMENT * 

* IN P0INT4 TO * 

* POINT TO * 
♦CORRECT PIB *F4* 
***************** 



*F4 
TOTAL DISPLACEMENT 
IN P0INT4 IS-- 
BG=16 
F2 = 32 
Fl=48 



****F5********* 

* RETURN TO * 

* ADDRESS IN * 

* LINK REGISTER * 
*************** 



IS 
AREA 
SVC 2 
BOUND 



' F1CALC X 

*****H2 ********** 

* ADD L6 TO * 

* PIB TABLE * 

* DISPLACEMENT * 

* IN P0INT4 * 

* * 
***************** 



****H3 ********* 

* RETURN TO * 

* ADDRESS IN * 

* LINK REGISTER 



******** 



WAS 

AREA 

STOPPED 



F2CALC X 

***** j 2** ******** 

* ADD 16 TO * 

* PIB TABLE * 

* DISPLACEMENT * 

* IN P0INT4 * 



************** 



<** 



*****J4******* 

* TURN ON * 

* BIT 7 IN PIB 

* FLAG BYTE TO 

* RELEASE THE 

* PARTITION * 
************** 



UNAV 

*****j5********** 

*ERRRTN NC* 
*_*_*_*_*_*_*_*_* 

* SEND MESSAGE * 

* '1P10D AREA * 
*NOT AVAILABLE' 



****** 



**** 



X 
***** 
*NA * 



****«!********* 

* NVSERR * 

* CHART NC * 

* * 
*************** 



NO .* MPS 
...*. OR BJF 
*. *K3 



TEST FOR MPS 
OR BJF IS PRESET 
AT 'START' OR 
'BATCH' , CHART NR. 



****K5******** 

* CONTROL 

* CHART NB 
* 

************** 



**** 

* * 

* L * 

* * 
**** 
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Chart NT, $$BATTNH - START Statement Processor Channel Program 
Refer to Chart 12. 



****A2********* 

* * 

* $$BATTNH * 

* * 
*************** 



ATTNH 

*****B2********** 

* ADD BRANCH * 

* VECTOR TABLE * 

* ENTRIES TO * 
♦ROOT TO SUPPORT* 

* INITIATORS * 
***************** 



#****C2******4*** 
♦PUT SYSRDR CCW * 

♦ ADDRESS IN ♦. 
♦INPUT CCB. PUT * 
♦BUFFER ADDRESS ♦ 

♦ IN INPUT CCW ♦ 
***************** 



*****D2******* 

♦ TURN ON ♦ 

* BIT IN ♦ 
♦ASSIGN FLAG OF 

♦ CORRECT PIB ♦ 

* *D3 ♦ 
************** 



*****£ 2**«******* 

♦ SAVE ADDRESS ♦ 

♦ OF LABEL ♦ 

♦ INFORMATION ♦ 

♦ TABLE ♦ 

♦ * 
***************** 



*****F2 ********** 

* * 

* CALCULATE * 

* SYSRES PUB ♦ 

* TABLE ENTRY ♦ 

* * 
***************** 



* 1 * 






* * 






**** 




*B5 


xl 




ADD ROOT PHASE 




BASE REGISTER 


ADDRLP X 




VALUE TO CCW 


*****B4********** 


ADDRESS. RELOCATE 


♦ RELOCATE THE 


* 


9 CCW'S (RESCCW. 


♦ CCW STRING 


* 


RESCCWL-RESCCW8). 


♦ IN THE ROOT 


* 




♦ PHASE 


* 




* *B5 


* 




***************** 





♦D3 
TO ALLOW 
SYSRES I/O. 



*****D4** ******** 

♦ INITIALIZE ♦ 

♦ RESCCW4 AND ♦ 

♦ RESCCW8 WITH ♦ 

♦ LABEL AREA * 

♦ ADDRESS ♦ 
***************** 



*****E4********** 

* CALCULATE ♦ 

* START AND END ♦ 
♦TRACK FOR USER ♦ 
♦LABELS FOR THIS^ 

* PARTITION ♦ 
***************** 



*****P4********** 

♦WFMRES NU* 
*_*_*_*_*_*_*_*_* 

♦ INITIALIZE ♦ 

♦ LABEL AREA ♦ 

♦ * 
******* 



******** 



.♦ 
"♦YES 



*****H2********** 

♦ CHANGE TRACK ♦ 

♦ CAPACITY ♦ 

♦ CONSTANTS ♦ 

♦ FROM 2311 ♦ 
♦VALUES TO 2314 ♦ 
***************** 



*****J2********** 

♦ GET ADDRESS ♦ 

♦ OF LABEL ♦ 

♦ CYLINDER FROM ♦ 

♦ COMMUNICATION ♦ 

♦ REGION ♦ 
************* 



G4 *. 
.♦ ALL ♦. 
♦ TRACKS ♦. 
INITIALIZED .♦ 



*****H4* ********* 

♦ RESET WRITE ♦ 

♦ RECORD NUMBER ♦ 

♦ TO AND SET ♦ 

♦ KEY LENGTH ♦ 

♦ TO 8 * 
***************** 



****J4********* 

♦ CONTROL ♦ 

♦ CHART NB ♦ 

♦ * 
*************** 
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Chart NU. $$BATTNH - Subroutines 
Refer to Chart 12. 



****Ai********* 

* WFMRES * 
*************** 



*****B1********** 

* SET HEAD * 

* VALUES IN * 

* WRITE AND * 

* SEEK/SEARCH * 

* CCW'S * 
***************** 



*****£!********** 



***************** 



******D1 *********** 

EXCPRG NC 
*_*_*_*_*_*_*_*_* 

WRITE 

* FILE HARK * 

*F1 

************* 



****E1********* 

* RETURN TO * 

* ADDRESS IN * 

* LINK REGISTER * 
*************** 



*F1 
THIS IS A BRANCH 
IN THE PROGRAM, 
BUT IS SHOWN HERE 
AS A BAL TO 
BETTER DESCRIBE 
THE LOGIC FLOW. 



****A2********* 

* * 

* LOGGER » 

* * 
*************** 



**** 

* * 

* 3 * 



**** 
UNCLOG X 

*****C2********** 

* LOAD ADDRESS * 

* OF END OF * 

* BUFFER FOR * 

* REVERSE SCAN * 

* * 
***************** 



**** 

* * 

* 2 * 

* * 
**** 



**** 

* * 

* 1 * 

* * 
**** 



*YES 
X... 



*****E3********** 

* * 

* SET LENGTH * 

* FOR ZERO * 

* OUTPUT * 

* * 
***************** 



****A4********* 

* * 

* ERRRTN1 * 

* * 
*************** 



*****B4********** 

* GET OPERAND * 

* NUMBER FROM * 

* LOCATION * 

* «OPNUMB« * 

* * 
***************** 



OPERAND 

NUMBER 

GT 9 



*****D4********** 

* ADJUST NUMBER * 

* TO PRINTABLE * 

* HEXADECIMAL * 

* CHARACTER * 

* * 
***************** 



*****F2********** 

* CALCULATE * 

* LENGTH OF » 

* BUFFER * 

* CONTENT * 

* * 
***************** 



*****P3********** 

* ADD 1 TO * 

* LENGTH AND * 

* STORE IN * 

* SYSLOG OUTPUT * 

* CCW * 
***************** 



***** 
*NB * 
* El* 



* SET INPUT * 

* SWITCH * 

* TO FG1 * 

* * 
***************** 



*****E4********** 

* RESTORE * 

* NUMBER TO * 

* LOCATION * 

* 'OPNUMB' * 

* * 
***************** 



* STATEMENT 

WAS OUTPUT 

*.ON SYSLOG. 



******G3*********** 

EXCPRG NC 

*_*_*_*-*-*-*_*_* 

LOG 
* I/O * 


G4 *. 

.* IS *. 

.* INPUT *. NO 

*. DEVICE .*.... 

*. SYSLOG .* 

*. .* 

*. .* X 
♦YES **** 
* 

* 3 
. * 
X. **** 


************* 

**** * 

* * 

* 2 «... 


**** 
LOGEXT X 

*****H3********** 

* * 

* SET CONDITION * 

* CODE * 

* * 

* * 


X 
****H4********* 

* RETURN TO ♦ 

* ADDRESS IN * 

* LINK REGISTER * 
*************** 



***************** 



****J3********* 

* RETURN TO * 

* ADDRESS IN * 

* LINK REGISTER * 
*************** 



****«!********* 

* CONTROL * 

* CHART NB * 

* * 
*************** 



****K2********* 

* ERRRTN « 

* CHART NC ♦ 

* *K3 * 
*************** 



*K3 
•1C20D READ 
COMMAND NOT 
GIVEN'. 
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Chart NV. $$BATTNI - ASSGN Statement Processor (Part 1 of 2) 
Refer to Chart 13, 



****A1********* 

* $$BATTNI * 

* # 
*** ********** ** 



**** A 2 ********* 

* * 

* ASSGN * 

* * 
*************** 



*A4 
MODIFY INSTRUCTION 
•NWPBPT', CHART NW. 
ITS INITIAL CONDITION 
IS ALSO MODIFIED BY 
THE TXCUU SUBROUTINE 
(CHART NY). 



****Bi******* 
INITIALIZE * 
TO SET NEW 
PUB POINTER 
TO IGN 

*A4 * 
************* 



*-*-*-*_* 

GET SECOND * 

OPERAND * 

(SYSXXX) * 

**************** 



Dl *. 
.* SCAN ♦ . 
NO .* STOP 
,..*. IS A BLANK 
*. *J1 



*****£ 1 ********** 

♦SYSXXX NX* 

*_*_*_*_*_*_*_*-.* 

♦VALIDITY CHECK * 

* AND CONVERT * 

* SYSXXX * 
***************** 



*****Fi ********** 
♦SCANR3 ND* 
*_*_*_*_*_*_*_*_* 

* GET THE * 

* NEXT OPERAND * 

* * 
***************** 



**** 

* * 

* i * 



*****C2* ********* 
♦TXCUU NY* 
*-*_*_*_*_*_*_*-* 

* VALIDTY CHECK * 

* AND CONVERT * 

* CHANNEL/UNIT * 
***************** 



* DEVICE *. YES 

IS PRINTER .*....X 
*. OR CARD .* 



.* DEVICE * 
.X*. SPECIFIED IS 
*. ■ , DASD .* 



C3 *. 

.*ALREADY*. 
* ASSIGNED 

TO ANOTHER 
*. AREA 



****D3********* 

* ERRRTN * 

* CHART NC * 

* *K1 * 
*************** 



*****C4******* 

* MODIFY * 

* 'OWNRSH' TO 
X* SHOW THAT 

* OWNERSHIP 

* IS SET * 
************** 



D4 *. 
* SCAN *. 

STOP 
S A BLANK 



.* DEVICE * 
.SPECIFIED IS 
♦ . A TAPE .* 



***************** 



.* SCAN *. 

* STOP * 
IS A BLANK 

♦ . *J1 .* 



Gl *. 


G2 *. 




G3 *. 


.* SCAN *. 


.* *. 


.* 


.* STOP IS *. NO 


.* OPERAND *. YES. 


.* 


OPERAND 


.AN EQUAL SIGN.* 


...X*. IS 'IGN' .*..X. 


*. 


IS 'ALT' 


*. *J1 .♦ 


*. .* 


*. 


*. .* 


*. .* 




*. 


*. .* 


*. .* X 




*. .* 


*YES 


*NO ***** 




*YES 


**** 


*NW * 






* * 


* Bl* 






...* 2 * 


* * 




X 


X. * * 


* 




***** 


**** 


MKASGN 




*NW * 




X 




* B3* 


X 


*****H2********** 




* * 


****H]. ********* 


* LOAD ADDRESS * 




* 


NVSERR * 


* OF 'RETURN' * 




ALT 


CHART NC * 


* IN REGISTER * 






* 


* LINKR2 * 







YES .* DEVICE *. 
...♦SPECIFIED IS A.* 
*. 7-TRACK .♦ 
*.TAPE .♦ 



*****C 5** ******** 
♦REPLACE ADDRESS* 
*OF 7-TRACK MODE* 
♦TABLE WITH THAT* 

* OF 9-TRACK * 

* MODE TABLE * 
***************** 



* POINT TO THE * 

* NEXT ENTRY IN * 
♦THE MODE TABLE * 

* *K5 * 
***************** 



MODRST .*. 

E5 *. 
.* MODE *. 
YES .* SPECIFIED *. 
......IS G.T. TABLE. 

*. ENTRY .* 



.* MODE *. 
.* SPECIFIED *. NO 
♦.EQUALS TABLE .*... 
*. ENTRY .* 



*****Q5******* 

♦CHANGE SEARCH* 

* ARGUMENT IN ♦ 

* 'MODRST' TO 

* 'SET MODE ♦ 

* COMMAND' * 
************** 



*************** 



*J1 
THE SCAN ROUTINES 
SET CONDITION CODES 
TO INDICATE THE 
CHARACTER THAT 
STOPPED THE SCAN. 
THE VALIDITY OF 
THIS CHARACTER 
DEPENDS ON THE 
STATEMENT FORMAT. 



*K1 
•1A10D CONFLICTING 
I/O ASSIGNMENT'. 



***************** 



*****H4********** 
♦HEXCON PB* 
*_*_*_*_*_*_*_*_* 

♦VALIDITY CHECK * 

* AND CONVERT * 

* MODE * 
***************** 



J2 *. 


*****j3********** 


*****j4******* 


*. 


♦UNPA 


NZ* 


* MODIFY * 


OPERAND *. YES 


*- 


*„*_*_*_*_*. 


-*_* 


* INSTRUCTION * 


IS 'UA« .* 


..X^ 


UNASSIGN 


* 


* AT 'MODRST' * 


.* 


* 


PREVIOUS 


* 


* WITH MODE * 


.* 


* 


ASSIGNMENT 


♦ 


♦SPECIFIED ^J5 


*. .* 


***************** 


************** 


*NO 




; 






X 




X 






**♦♦ 




***** 






* * 




♦ NW ♦ 






♦ 1 ♦ 




♦ Ji* 




X 


♦ ♦ 




* * 




*****K4********** 


**** 




* 
RETURN 




♦LOAD ADDRESSES * 

* OF 7-TRACK * 

* MODE TABLE * 

* AND OF NEW * 

* PUB * 



*J5 

THE MODES SPECIFIED 
IN THE ASSGN STATEMENT 
BECOMES THE SEARCH 
ARGUMENT FOR THE 
FOLLOWING TABLE 
LOOK-UP. 



*K5 
ON FIRST PASS THROUGH 
THIS ROUTINE, THIS IS 
THE FIRST ENTRY IN THE 
TABLE. 



************* 
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Chart NW. $$BATTNI - ASSGN Statement Processor (Part 2 of 2) 
Refer to Chart 13. 



***** 

*NV * 
* G2* 



***** 
. *NV * 
* G3* 



**** 

* * 

* 1 * 



MKASGN X 

*****Bl********** 

♦UNPA NZ* 

*_*_*_*-*..*..*_#_* 

* UNASSIGN * 

* PREVIOUS * 

* ASSIGNMENT * 
***************** 



*****B3********** 
♦PUT THE START- * 
* ING ADDRESSES * 
*0F THE LUB AND * 
♦PUB TABLES INTO^ 
*A PAIR OF REGS ♦ 
***************** 



*B4 
ADDRESS OF JIB 
EQ VALUE OF FAVP 
MULTIPLIED BY 4 
PLUS THE STARTING 
ADDRESS OF THE 
JIB TABLE. 



*C2 
IGN SET INITIALLY. IF 
NWPBPT HAS NOT BEEN 
MODIFIED BY TXCUU 



*****d********** 


SUBROUTINE, IT 




C3 ♦. 






♦PUT THE START- * 


CONTAINS A CODE, 




.♦ ♦. 




****C4********* 


* ING ADDRESSES * 


FE, THAT MEANS 




.♦ IGN PUB * 


YES 


* ERRRTN 


*OF THE LUB AND * 


IGNORE THE PUB. 




♦.INDICATED BY 
♦. LUB .♦ 


♦ . . . 


X* CHART NC 


*PUB TABLES INTO* 




* *D4 


*A PAIR OF REGS * 






♦ . .* 




*************** 


***************** 




***** 
*NV ♦ 


*. .* 
♦NO 




♦DA 
•1AOOD 






♦ E2 + 


X 




INVALID I/O 


NWPBPT X 


NDTERR 


* * 


.♦. 




ASSIGNMENT'. 


*****D1******* 




* 


D3 ♦. 






* PUT PUB * 


****D2********* 




.♦ *. 






* POINTER AS * 


♦ ERRRTN ♦ 


X NO .♦ PUB * 






* DETERMINED * 


♦ CHART NC + X 

* *E2 * 




.♦. INDICATES 
♦.DEVICE EQ.+ 


* 




* BY TXCUU ♦ 






♦ INTO LUB ♦ 


*************** 




♦.TAPE .♦ 






************** 


*E2 
•1A20D INVALID 




♦ . .* 
*YES 




♦E4 
ON THE FIRST 
TIME THROUGH 
THIS BLOCK TESTS 
THE JIB POINTER 
IN THE LUB. ON 


X 


DEVICE TYPE'. 








OTHER 


.♦. 






X 




ITERATIONS, IT 


El ♦. 






*****E3********** 


TESTS THE LAST 


.♦ ♦. 






* GET ADDR OF 


* 


BYTE OF THE JIB 


YES .♦ IGNORE ♦. 






* FAVP. FAVP 


* 


ENTRY ITSELF FOR 


...♦.PUB INDICATED. ♦ 






♦POINTS TO NEXT 


* 


THE SAME 


♦. +C2 .♦ 






♦ AVAILABLE JIB 


* 


CONDTION. EXIT 



FROM THE LOOP 
OCCURS WHEN THE 
END OF THE CHAIN 
IS FOUND. 



NDCHFD X 

*****B5********** 

♦ CALC ADDR OF ♦ 

♦ JIB TO BE ♦ 

♦ ATTACHED TO ■» 

♦ THE CHAIN ♦ 

♦ *B4 ♦ 
***************** 



*****£ 5********** 

♦ * 

♦ ATTACH THE ♦ 

♦ JIB TO THE ♦ 

♦ CHAIN ♦ 

♦ * 
***************** 



*****D5********** 

♦ SET FAVP ♦ 

♦ TO DISPLACE- ♦ 

♦ MENT INDEX ♦ 

♦ OF NEXT * 

♦ FREE JIB ♦ 
***************** 



*****E5********** 

♦ SET END OF * 

♦ CHAIN SIGNAL, ♦ 

♦ X'FF', IN THE * 

♦ NEW JIB ♦ 

♦ * 
***************** 



.♦DEVICE ♦. 
.YES .♦ SPECIFIED ♦. 
' .^IS ASSIGNED TO. 
♦. SYSLOG .♦ 



ANY 
FREE 
JIBS 



****F4*#******* 

♦ ERRRTN ♦ 

♦ CHART NC ♦ 

♦ *G4 ♦ 
*************** 



*****P5********** 

♦ STORE ♦ 

♦ ALTERNATE * 

♦ PUB POINTER ♦ 

♦ IN JIB ♦ 

♦ * 
***************** 



.ASGPUB X 

*****Gl******* 

♦ SET ♦ 
♦OWNERSHIP FLAG^ 

♦ IN LAST ♦ 

♦ BYTE OF ♦ 

♦ PUB ♦ 
************** 



***** 
*NV ♦ 
* J3* 



*****G3********** 

♦ SET * 

♦ LUB ♦ 

♦ POINTER TO ♦ 

♦ JIB * 

♦ POINTER * 
***************** 



*G4 
'1A30D NO 
FREE JIBS' 



*****Q5********** 

♦ * 

♦ SET TYPE ♦ 

♦ AND OWNERSHIP * 

♦ IN JIB ♦ 

♦ * 
***************** 



*****H1******* 

♦ SET MODE ♦ 

♦ IN BYTE 5 

♦ OF PUB 



*********** 



JIB 

CHAINED 

♦ E4 

*. .* 



**** 

* * 

* 1 * 

* * 
**** 



****J 1********* 

♦ CONTROL ♦ 

♦ CHART NB ♦ 

♦ * 
*************** 



*****J3********** 

♦ CALCULATE ♦ 

♦ THE ADDRESS ♦ 

♦ OF THE NEXT * 

♦ JIB ENTRY ♦ 

♦ *J4 * 
***************** 



NEXT JIB ENTRY 
ADDR EQ POINTER 
VALUE MULTIPLIED 
BY 4 PLUS STARTING 
ADDRESS OF JIB TABLE. 
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Chart NX. $$BATTNI - Validate SYSXXX Subroutine 
Refer to Chart 13. 



****C1********* 

* NVSERR * 

* CHART NC *i 

* * 
*************** 



****A2********* 



*************** 



.*. 

B2 *. 

.♦LENGTH *. 

.♦OF OPERAND ♦ 

. EQUALS 6 

♦. CHARS .* 

♦ . .♦ 



C2 ♦. 

.♦ FIRST ♦. 

X NO .♦THREE CHARS+. 

.♦. OF OPERAND . 

♦. EQ SYS .♦ 



♦ Dl 
POINT1 AND POINT3 ARE 
INITIALIZED WITH THESE 
NEW VALUES SO THAT THEY 
CAN BE USED BY THE NUMCON 
SUBROUTINE DURING VALIDITY 
CHECKING OPERATIONS. 



♦ Fl 
$$BATTNP USES A ROUTINE 
IDENTICAL TO THIS ONE, 
STARTING AT SYSXN2, EXCEPT 
THAT THE LABEL IN $$BATTNP 
IS SYSRFG. 



****GL********* 

* SYSXN2 OR ♦ 

* SYSRFG ♦ 

* *F1 ♦ 
*************** 



*****02********** 

♦ SET OPERAND ♦ 
♦POINTER,POINTl,+ 
♦TO ADDR OF THE ♦ 

♦ FOURTH ♦ 
♦CHARACTER *D1* 
***************** 



*****E2***^****** 

♦ SET LENGTH ♦ 

♦ COUNTER, ♦ 

♦ POINT3, WITH ♦ 

♦ THE VALUE 2 ♦ 

♦ *D1 ♦ 
***************** 



*****F2********** 
♦NUMCON PB^ 
*_*_*_*-*.*_*_*_* 

♦VALIDITY CHECK ♦ 
♦NUMERIC VALUES ♦ 
♦ AND CONVERT ♦ 
***************** 



G2 ♦. 
.♦ ♦. 

♦ NUMERIC 
VALUE GT 

♦ * 255 

♦ . *♦ 



*****B3********** 
♦CALCULATE NICL ♦ 
♦ENTRY, SAVE IT ♦ 

♦ FOR UNASSIGN * 

♦ SUBROUTINE ♦ 

♦ *B4 ♦ 
***************** 



*****C3********** 

♦ GET ADDRESS ♦ 

♦ OF FICL FROM ♦ 

♦ COMM. REGION ♦ 

♦ CALCULATE * 

♦ FICL ENTRY ♦ 
***************** 



SYSMODM 

*****Q3********** 

♦GET FICL ENTRY * 

♦ FOR PARTITION ♦ 
♦BEING INITIATED^ 

♦ AND STORE IN ♦ 

♦ FICL ♦ 
***************** 



SYSTEM 

UNIT 

*D4 

♦ . .♦ 

*. .* 

♦YES 



♦B4 
NICL ENTRY EQUALS STARTING ADDRESS OF 
NICL TABLE, NICLAD, PLUS THE 
DISPLACEMENT INDEX. THE NICL 
ENTRY IS SAVED IN LOCATION 
NICL + I FOR THE UNASSIGN 
SUBROUTINE, UNPA, CHART NZ. 



= SYSTEM 

1 = PROGRAMMER 

(SET IN WRKRG1 BY NUMCOM 
SUBROUTINE) 



*****E4********** 

♦ ADD UNIT NO. ♦ 

♦ TO SYSTEM ♦ 
.X^ NICL TO POINT ♦ 

♦ TO CORRECT ♦ 

♦ PARTITION ♦ 
***************** 



*****F3********** 

♦ GET NICL ♦ 
♦ENTRY FOR THIS ♦ 

♦ PARTITION AND ♦ 

♦ STORE IN NICL ♦ 

♦ * 
***************** 



G3 ♦. 
.* VALID ♦. 
.♦ LOGICAL 
♦. UNIT 
♦ . ^F4 



♦ F4 
THE NICL VALUE IS DETERMINED AT 
SUPERVISOR GENERATION TIME. WHEN 
THE UNIT NUMBER SUPPLIED BY THE 
ASSIGN STATEMENT, IS LESS THAN THE 
NICL VALUE A LUB ENTRY EXISTS 
- FOR THE UNIT. 



SYSXN2 

*****H2********^* 

♦ CALC FICL ♦ 

♦ AND NICL * 

♦ DISPLACEMENT ♦ 

♦ INDEXES - ♦ 

♦ KEY/16 ♦ 
***************** 



*****J2********** 

♦ GET ADDRESS ♦ 

♦ OF NICL FROM ♦ 

♦ COMM. REGION, ♦ 
♦STORE IN INSTR.^ 

♦ AT 'SYSMODM' ♦ 
***************** 



****H3********* 

♦ ERRRTN * 

♦ CHART NC ♦ 

♦ *J3 * 
*************** 



♦ J3 
'1A40D INVALID 
LOGICAL UNIT 
SPECIFICATION'. 



*****G4********** 

♦ CALCULATE THE ♦ 

♦ CORRESPONDING ♦ 
X^ LUB ENTRY ♦ 

♦ ADDRESS ♦ 

♦ *G5 ♦ 
***************** 



*****H4********** 

♦ CALCULATE THE ♦ 

♦ CURRENT PUB * 

♦ ENTRY ADDRESS ♦ 

♦ *H5 ♦ 

♦ * 
***************** 



*****J4********** 

♦ SAVE THE ♦ 

♦ LUB AND PUB ♦ 

♦ ADDRESSES IN ♦ 

♦ LOCATION ♦ 

♦ IOTADR ♦ 
***************** 



****K4********* 

♦ RETURN TO ♦ 

♦ ADDRESS IN ♦ 

♦ LINK REGISTER ♦ 
*************** 



*G5 
LUB ENTRY ADDRESS EQUALS 
UNIT NUMBER PLUS THE 
VALUE OF THE FIRST UNIT 
IN CLASS, DOUBLED, PLUS 
THE STARTING ADDRESS OF 
THE LUB TABLE, LUBADD. 



*H5 
PUB ENTRY ADDRESS EQUALS 
DISPLACEMENT INDEX FROM 
THE LUB ENTRY, MULTI- 
PLIED BY 8, PLUS THE 
STARTING ADDRESS OF THE 
PUB TABLE, PUBADD. 
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Chart NY. $$BATTNI - Validity Check Channel and Unit 
Refer to Chart 13. 



****A1********* 

* * 

* TXCUU * 

* * 
*************** 



*****Bi ********** 

* CALCULATE * 

* OWNERSHIP * 

* MASK FOR INST * 

* LABELED * 

* OWNRSH *B2 * 
***************** 



MASK EQUALS 8, 
MINUS KEY 
DIVIDED BY .16 
C8-(KEY/160 . 



*B4 
OWNERSHIP BIT SWITCHES ARE 
ZERO AT THIS TIME, ALLOWING 
THE FULL BYTE IN PUB TO BE 
TESTED FOR ZERO. 



****C2********* 

* NVSERR * 

* CHART NC * 

* * 
*************** 



*****C3********** 

* SAVE DEVICE * 

* TYPE CODE IN * 
♦LOCATION DVCTYP* 

* FOR LATER * 

* TESTING * 
***************** 



****C4* ******** 

* ERRRTN * 

* CHART NC * 

* *D4 * 
******* 



*****Di********** 
♦HEXCON PB* 
*_*_*_*_*_*_*_*_* 

♦CONVERT X'CUU' * 

* TO BINARY * 

* * 
***************** 



*****03 ********** 

* SAVE THE ADDR * 

* OF THIS PUB * 

* ENTRY IN SAVE * 
*AREA, IOTADR+8 * 

* * 
***************** 



*D4 
'1A70D INVALID 
DEVICE STATUS*. 



*****£!********** 

* PUT THE * 

* STARTING ADDR * 

* OF THE PUB * 

* TABLE INTO * 
♦REGISTER POINT1* 
***************** 



*****E3 ********** 

* * 

* CALCULATE * 

* THE PUB * 

* POINTER * 

* *£4 * 
***************** 



*E4 
PUB POINTER EQUALS 
PUB ENTRY ADDRESS 
MINUS STARTING ADDRESS 
OF PUB TABLEi PUBADD, 
DIVIDED BY 8. 



END OF 

PUB 

TABLE 



****F 2 ********* 

* . ERRRTN * 

* CHART NC * 

* *G2 * 
*************** 



****vF3******* 

* STORE NEW * 

* VALUE 

* IN NWPBPT 

* *G4 

* * 
************** 



Gl *. 
.♦CHANNEL*. 
AND UNIT 
ENTRY IN 



*G2 
•1A50D DEVICE 
NOT SPECIFIED' 



*****G3******* 

* RESET MODE * 

* RESET BYTE * 
*AT MODRST WITH * 
♦VALUE FROM PUB* 

* ;«G4 ♦ 



IN SSBATTNI, 'NWBPT* AND 'MODRST' ARE INSTRUCTIONS 
THAT ARE MODIFIED DIRECTLY. IN SSBATTNP, WHICH 
USES A SUBROUTINE IDENTICAL TO THIS ONE, THESE 
TWO LABELS ARE CONSTANTS FOR TEMPORARY STORAGE. 



*****H1 ********** 

* ADD 8 TO THE ♦ 

* PUB POINTER, * 
♦POINT1 SO THAT * 

* IT POINTS TO * 
*THE NEXT ENTRY * 
***************** 



DEVICE 

TYPE EQ 

TAPE 



*****J3******* 

* MODIFY * 

* MODRST * 

* WITH STANDARD 

* MODE VALUE * 

* FROM PUB * 
************** 



****«3********* 

* RET TO ADDR * 

* IN LINK REG * 

* • * 
*************** 
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Chart NZ. $$BATTNI - Unassign Subroutine 
Refer to Chart 13. 















THE SCNLUB 












SUBROUTINE 












RETURNS TO THE 












LINK REGISTER 


****Al********* 


****A2********* 








ADDRESS WHEN 


* * 


* * 








THERE ARE NO 


* UNPA * 


* UNPAN2 * 








MORE UNITS 


* * 


* * 








LEFT IN THE 


*************** 


*************** 


**** 
* * 






CURRENT CLASS. 
THE NSI AFTER 








* 1 * 






THE BAL IS A 








* * 






BRANCH TO 








**** 






RSTOWN. 
OTHERWISE, IT 
RETURNS TO LINK 
REGISTER +4, 
WHICH IS CMPBPT. 


UNPA X 






GTNXLB X 


RSTOWN 




*****Bi ********** 






*****B3 ********** 


*****B4******* 






* * 






*SCNLUB PA* 


* TURN * 






* LOAD KEY * 






*_*_*_*_*_*_*_*_* 


* OFF * 




* IN WORK * 






*SET UP LOCATION* 


..X* PUB OWNERSHIP 


* 




* REGISTER * 






* JBSLUB WITH * 


* FLAG * 




* * 






* LUB ENTRY * 


* * 






***************** 

!x.. ....... 






***************** 


************** 






UNPAN2 X 


*C2 


X 

.*. 


X 

.*. 






*****d********** 


MASK VALUE 


C3 *. 


C4 *. 




*****C5******* 


* CALCULATE * 


EQUALS 256 MINUS 


.* END *. 


.* *. 




* RESET 


* MASK TO TURN * 


KEY DIVIDED BY 16. 
C256-(KEY/16)D 


.* OF CLASS *. YES 


.* DEVICE * 


YES 


* FROM 


* OFF PUB * 


*. WITHIN LUB .* 


*. TYPE IS 


*.. .. 


....X* STANDARD 


* OWNERSHIP * 




*. TABLE .* 


*. TAPE .* 




* MODE IN PUB 


* FLAG *C2 * 




*. *A5 .* 


*. .* 




* 


***************** 


*D2 


*. .* 
*NO 
**** 

* * . 

* 3 *... 


*. .* 
*NO 




************** 




THIS TEST CHECKS 
THE PUB POINTER 


* * 


......... .x!x. ... . 








**** X 








X 


FIELD OF THE 


CMPBPT .*. 


CHKJIB X 






*****Q1******* 


LUB. 


D3 *. 


*****D4********** 




* MODIFY * 




.* PUB *. 


* REPLACE LUB 


* 




* 'RSTOWN* * 




.* POINTERS *. YES. 


* IN JBSLUB 


* 




* WITH MASK * 




*. ARE EQUAL .*.... 


* WITH THE 


* 




* VALUE * 




*. *J2 .* 


* ORIGINAL LUB 


* 




* * 




*. .* 


* IN LBSLUB 


* 




************** 






*. .* 


***************** 


* * 



*****£ 1********** 

* * 

♦LOAD ADDRESSES * 

* OF LUB ENTRY * 

* AND PUB ENTRY * 

* * 
***************** 



.*. 



*E2 
CONDITION CODE 
WAS SET IN THE 
JIB SCAN 
ROUTINE. 



Fl 

.* * 
* PUB 

ASSIGNED 
*. *D2 



*****Gi********** 

* SAVE THE * 

* LUB ENTRY * 

* IN LOCATION * 

* LBSLUB FOR * 

* COMPARISON * 
***************** 



*****H1******* 

* MOVE 'FFFF'* 

* INTO THE LUB * 

* ENTRY TO 

* UNASSIGN THE * 

* LOGICAL UNIT* 
************** 



***** j i ********** 
*CALC LUB ENTRY * 
♦ADDRESS OF THE * 

* FIRST LUB FOR * 

* THE CURRENT * 

* CLASS *H2 * 
***************** 

**** 



* 7 



**** 
SCHLBS X 

****** 1********** 

* SET UP LUB * 

* POINTER AND * 

* COUNT FOR * 

* LUB SCAN * 

* * 
***************** 



*****P2********** 

* INSERT X«FF« * 

* IN PUB TO * 
.X* INSURE ' * 

* UNASSIGNED * 

* * 
***************** 



****G2********* 

* RETURN TO * 

* ADDRESS IN * 

* LINK REGISTER * 
*************** 



*H2 ' 
LUB ENTRY 
ADDRESS 
EQUALS THE 
DOUBLED VALUE 
OF THE STARTING 
ADDRESS OF THE 
LUB TABLE, 
LUBADD. 



*J2 
A COMPARISON 
IS MADE BETWEEN 
THE PUB POINTER 
IN THE ORIGINAL 
LUB, SAVED AT 
LBSLUB, AND THE 
PUB POINTER IN 
THE LUB FOUND 
IN THE SCAN, 
JBSLUB. WHEN- 
EVER IDENTICAL 
PUB POINTERS 
ARE FOUND, THE 
OWNERSHIP FLAG 
IN THE PUB IS 
NOT RESET. 



..X 



GTNXJB 

*****£ 3* ********* 
*SCNJIB PA* 
*-*_*_*_*_*-.*_*_* 
♦RESET LOCATION * 

* JBSLUB FROM * 

* JIB ENTRY * 
***************** 



G3 *. 
.♦STORED ♦. 
NO .♦ ALTERNATE ♦ 
...♦. ASSIGNMENT 



♦ J3 
THE JIB IS 
HANDLED AS IF 
IT WERE A 
LUB ENTRY. 



♦ K3 
NEW PUB ENTRY 
ADDRESS EQUALS 
NEW DISPLACE- 
MENT INDEX 
MULTIPLIED BY 
8 PLUS THE 
STARTING 
ADDRESS OF THE 
PUB TABLE, 
PUBADD. 



♦ 5 



**** 
CKNXJB X 

*****E4********** 
♦SCNJIB PA* 
*_*_*_*_*,*_*_*_* 

*RESET LOCATION * 

* JBSLUB FROM * 

* JIB ENTRY ♦ 
***************** 



.♦. 

F4 ♦. 

.♦ END ♦. 

OF ♦ 

JIB CHAIN 

♦ E2 .♦ 



*****G4********** 

♦ REPLACE JIB ♦ 

♦ CHAIN BYTE ♦ 

♦ WITH VALUE ♦ 

♦ OF FAVP ♦ 

♦ * 
***************** 



TMFAVP 

*****H4********** 

* REPLACE FAVP * 

* WITH POINTER * 

* TO THIS JIB * 

* ENTRY ♦ 

* * 
***************** 



.♦STORED ♦. 
.♦ ALTERNATE ♦. 
. ASSIGNMENT . 



*****E5********** 

♦ ZERO THE ♦ 

♦ FIRST THREE * 

♦ BYTES OF THE ♦ 

♦ JIB ENTRY ♦ 

♦ *J3 * 
***************** 



*****F5********** 

♦ RESET LBSLUB ♦ 

♦ WITH LUB ♦ 

♦ VALUE IN ♦ 

♦ JBSLUB * 

♦ * 
***************** 



*****G5********** 

* CALCULATE ♦ 

* NEW PUB ♦ 

* ENTRY ADDRESS * 

* *K3 ♦ 

* * 
***************** 



*****J5********** 

* ZERO THE * 

* FIRST THREE * 
,X^ BYTES OF THE * 

* JIB ENTRY * 

* * 
***************** 
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Chart PA. $$BATTNI - Scan LUBs and JIBs Subroutines 
Refer to Chart 13. 



****A1#******** 

* * 

* SCNLUB * 

* * 



*****B1 ********** 

* * 

* GET ADDRESS * 
*0F LUB ADDRESS * 

* IN WRKRGL * 

* * 
***************** 



*****Cl********** 

* STORE LUB * 

* ENTRY AT * 

* JBSLUB * 

* *C2 * 

* # 
***************** 



***** Ql ********** 

* POINT TO NEXT * 

* LUB ENTRY * 

* AND SAVE ADDR * 

* IN LOCATION * 

* SCFICL * 
***************** 



*****£ I ********** 

* GET REMAINING * 

* NUMBER IN * 

* CLASS FROM * 

* LOCATION * 

* SCFICL + 2 * 
***************** 



*C2 
USE THE CONTENTS OF 
JBSLUB AS A COMPARAND 
IN THE MAIN UNASSIGN 
ROUTINE. 



****A3********* 

* * 

* SCNJIB * 

* * 
*************** 



.*JBSLUB *. 
.*JIB POINTER*. 
*. INDICATE 
*. X'FF' .* 



*****C3 ********** 

* CALCULATE * 

* ADDRESS OF * 

* NEXT JIB * 

* *C4 * 

* * 
***************** 



*****D3 ********** 

* SAVE OLD JIB * 

* DISPLACEMENT * 

* INDEX IN * 

* TMFAVP * 

* * 

************: 



*****£ 3* ********* 

* STORE NEW * 

* PUB AND * 

* JIB POINTERS * 

* IN LOCATION * 

* JBSLUB * 
***************** 



*B4 
END OF 
CHAIN 
CHECK. 



*C4 
JIB ADDRESS EQUALS 
DISPLACEMENT INDEX 
FROM LUB, MULTIPLIED 
BY 4 PLUS THE STARTING 
ADDRESS OF THE JIB 
TABLE, JIBADD. 
NOTE 

THE LUB USED IN THE 
PRECEDING CALCULATION 
IS IN LOCATION JBSLUB. 



ZERO 
NUMBER IN 
. CLASS . 



****F 2 ********* 

* RET TO ADDR * 

* IN LNK REG * 

* * 
*************** 



****F3********* 

* RET TO ADDR * 

* IN LNK REG * 

* * 
*************** 



*****G1 ********** 

* DECREASE * 
♦COUNT OF UNITS * 

* IN CLASS, AND * 

* SAVE FOR * 
♦PRECEDING TEST * 
***************** 



****H1********* 

* RET TO ADDR * 

* IN LNK REG * 

* PLUS 4 * 
*************** 
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Chart PB. $$BATTNI - Conversion Subroutines 
Refer to Chart 13, 



****A1********* 

* * 

* HEXCON * 

* * 
*************** 



X 

.*. 

Bl *. 

.* FIRST *. 

.* TWO * 

*. CHARACTERS 

*. VALID .* 

*. *B2 .* 



*B2 
1ST CHAR. 
2ND CHAR. 



APOSTROPHE 



♦YES 



.* LAST *. 

. CHARACTER . 

♦APOSTROPHE.* 

*. .* 



*****D i********** 

♦ CALCULATE ♦ 

♦ NUMBER OF ♦ 

♦ HEXADECIMAL ♦ 

♦ CHARACTERS * 

♦ MINUS ONE ♦ 
***************** 



*****El********** 

♦ TRANSLATE * 

♦ A-F TO ♦ 

♦ X'FA' - X«FF« * 

♦ * 
***************** 



*****F1********** 

* SET POINTER ♦ 

* AND SET UPPER * 
♦LIMIT OF X«FF« ♦ 
♦FOR RANGE CHECKS 

* *. 
***************** 



*****G1********** 
♦CHKRNG PB* 
*_*-*_*_*«*_*_*«* 

♦ CHECK ALL ♦ 
♦CHARACTERS FOR ♦ 

♦ VALID LIMITS ♦ 
***************** 



*****Hl********** 

* * 

* PACK TO ♦ 

* BINARY, LOAD * 

* INTO WRKRGl ♦ 

* * 
* ***************** 



****J1 ********* 

* RETURN TO ♦ 

* ADDRESS IN * 

* LINK REGISTER * 
*************** 



****A3********* 

* , ' * 

* NUMCON * 

* * 
*************** 



*****B3********** 

* SET UPPER * 

* LIMIT OF 9 * 

* FOR RANGE * 

* CHECK * 

* * 
***************** 



****D2********* 

* NVSERR * 

* CHART NC * 

* * 
*************** 



*****D3********** 

*CHKRNG PB* 
*_*_*_*_*_*_*_*_* 

* CHECK ALL * 
♦CHARACTERS FOR ♦ 

♦ VALID LIMITS ♦ 
***************** 



*****E3********** 

♦ PACK TO ♦ 
♦PACKED DECIMAL ♦ 

♦ AND CONVERT ♦ 

♦ TO BINARY ♦ 

♦ * 
***************** 



*****P3********** 

♦ INSERT «1» ♦ 

♦ IN WRKRG4 * 

♦ TO SIGNIFY ♦ 

♦ PROGRAMMER * 

♦ CLASS * 
***************** 



NUMSYS 

*****C4********** 

* INSERT »0« * 

* IN WRKRG4 * 
...X* TO SIGNIFY * 

* SYSTEM CLASS * 

* * 
***************** 



*****D4* ********* 

* SET POINTER * 

* TO START OF * 

* NUMTBL * 

* MINUS 4 * 

* * 
***************** 



NUMLOP X 

**#**E4********** 

* ADD 4 TO * 

* POINTER FOR * 

* NEXT ENTRY * 

* IN NUMTBL * 

* * 
***************** 



****A5********* 

* * 

* CHKRNG ♦ 

* * 
*************** 



*****B5********** 

* GET CHARACTER * 
♦STRING ADDRESS ♦ 

♦ AND NUMBER ♦ 

♦ OF CHARACTERS ♦ 

* * 
***************** 



YES .♦ CHARACTER ♦. 
...♦. LESS THAN .♦ 
♦. ZERO .♦ 



.SYS . 


NUMTBL 


FINAL . 




VALUE 


NUMBER. 


.RDR 


1 





.IPT 


2 


1 


.PCH 


3 


2 


.LST 


4 


3 


.LOG 


5 


4 


.LNT 


6 


5 


.SLB 


8 


7 


.RLB 


9 


8 



CHARACTER 
GT UPPER 
. LIMIT . 
♦ . .♦ 



*****E5********** 

* ADD 1 TO * 

* POINTER, ♦ 

* SUBTRACT 1 ♦ 

* FROM COUNT * 

* * 
***************** 



F4 *. 
.* * 
* END 
OF TABLE 



****G5********* 

* RETURN TO * 

* ADDRESS IN * 

* LINK REGISTER * 
*************** 



*****H4********** 

* GET NUMTBL ♦ 

♦ NUMBER FOR ♦ 
♦THIS ENTRY AND ♦ 

♦ REDUCE BY 1 ♦ 

* *J2 * 
***************** 



****j4********* 

* RETURN TO * 

* ADDRESS IN * 

* LINK REGISTER ♦ 
*************** 
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Chart PC. $$BATTNI - UNA Statement Processor 
Refer to Chart 13, 



****A1********* 

* * 

* UNA * 

* * 
*************** 



*****B1********** 
♦GETKEY PD* 
*-*_*_*_*-*_*_*_* 

* GET KEY OF * 

* FIRST OPERAND * 

* IN P0INT2 * 
***************** 



*****B3********** 

*UNARTN PD* 
*_*-.*_*_*_*,.*_*-* 

* UNASSIGN ALL * 

* LOGICAL UNITS * 

* IN CLASS *B4 * 
***************** 



*B4 
THE UNITS UNASSIGNED ARE 
THOSE BELONGING TO THE 
AREA SPECIFIED BY THE 
SECOND OPERAND OF THE UNA 
STATEMENT. 



*****£!********** 

♦CHKFUA PD* 
*-*.*_*-*_*.*«*_* 

* CHECK AREA * 

* TO BE * 

* DETACHED * 
***************** 



SCAN 
DELIMITER 
. IS A 
♦.BLANK.* 



*****EL********** 

* SAVE THE * 

* KEY OF THE * 

* FIRST OPERAND * 

* IN POINT4 * 

* * 
***************** 



SNGUNA 

*****E3********** 

*UNARTN PD* 
*_*_*_*_*_*_*-.*_* 

* UNASSIGN ALL * 

* LOGICAL UNITS * 

* IN CLASS *E4 * 
***************** 



*E4 
THE UNITS UNASSIGNED ARE 
THOSE BELONGING TO THE 
AREA SPECIFIED BY THE 
FIRST OPERAND OF THE UNA 
STATEMENT. 



*****p i ********** 

♦GETKEY PD* 
*_*-*_*-*_*_*_*_* 

* GET KEY OF * 
♦SECOND OPERAND * 

* IN P0INT2 * 
***************** 



****P3********* 

* CONTROL * 

* CHART NB * 

* * 
*************** 



*****G1 ********** 
♦CHKFUA PD* 
*-*_*_*_*_*«*_*.* 

* CHECK AREA * 

* TO BE ♦ 

* DETACHED ♦ 
***************** 



HI *. 

.* *. 

* SCAN * 

DELIMITER 

*. IS A .* 

♦.BLANK.* 



*YES 



.* KEYS *. YES 
♦.ARE IDENTICAL.*.... 
*. .* 



**** 

* * 

* 1 * 

* * 

**** 



****K2********* 

* NVSERR * 

* CHART NC * 

* * 
*************** 
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Chart PD. $$EATTNI - Miscellaneous Subroutines 
Refer to Chart 13. 



****A1********* 

* * 

* CHKFUA * 

* * 

*************** 



Bl *. 
.* KEY *. 

OF OPND 

EQ KEY OF 

.THIS PROG. 



*****£ 1 ********** 

* CALC PIB * 

* ADDRESS - * 

* STARTING AODR * 

* OF PIB TABLE * 

* PLUS KEY * 
******* ********** 



****C2********* 

* NVSERR * 

* CHART NC * 

* * 
*************** 



****A3********* 

* * 

* GETKEY * 

* * 
*************** 



*****B3 ********** 
*SCANR2 ND* 
*_*_*_*_*-*_*_*_* 

* GET THE * 

* STATEMENT * 

* OPERAND * 
***************** 



C3 *. 

.* SCAN *. 
* OELIMETER * 

IS AN EQUAL 
*. SIGN 



****El********* 

* RET TO ADDR * 

* IN LNK REG * 

* * 
*************** 



****E2********* 

* ERRRTN * 

* CHART NC * 

* *F2 * 
*************** 



.* 



OPERAND 
LENGTH EQ 
. 2 CHARS . 



*****E3** ******* 
* 

* PUT Fl KEY 

* INTO 

* POINT2 
* 
**************** 



*F2 
•1A60D UNIT 
CURRENTLY 
UNASSIGNABLE* 



*****G3********** 

* * 

* PUT F2 KEY * 

* INTO * 

* POINT2 * 

* * 
***************** 



****A4********* 

* * 

* UNARTN * 

* * 
*************** 



*****B4********** 

* ■ SET LOGICAL * 

* UNIT TO ZERO * 

* AND STORE * 

* PROGRAM KEY * 

* IN 'UNAKEY' * 
***************** 



*****C4********** 

* SET SYSTEM * 

* CLASS COM * 

* AND STORE IT * 

* IN 'UNACLS' * 

* * 
***************** 



UNALOP X 

***** D4* ********* 

* STORE LOGICAL * 

* UNIT NUMBER * 

* IN 'UNALUN' * 

* AND LOAD * 

* KEY AND CLASS * 
***************** 



*****E4********** 

*SYSXN2 NX* 
*_*-*_*-*_*-*_*_* 

* CONVERT * 

* SYSXXX * 

* * 
***************** 



2 * 

* 
**** 



.UNAGO X 

*****F5 ********** 
*UNPAN2 NZ* 

* UNASSIGN * 

* LOGICAL * 

* UNITS * 
***************** 



* ADD 1 TO * 

* LOGICAL UNIT * 

* NUMBER * 

***************** 



.* OPERAND *. NO 




.* END OF *. 


IS F2 .*.... 


* 


CLASS 


*. .* 




*. .* 


*. .* 




*. .* 


*. .* X 




*. .* 


*YES **** 




*YES 


* * 






* 1 * 






* * 






* X. **** 






X 




X 


****J3 ********* 




****j4********* 


RET TO ADDR * 


* 


RETURN TO 


IN LNK REG * 


* 


ADDRESS IN 


* 


* 


LINK REGISTER 



*************** 



************** 
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Chart PE. $$BATTNJ - LISTIO Statement Processor 
Refer to Chart 13. 



****A}********* 

* * 

* $$BATTNJ * 
*************** 



****A2 ********* 

* * 

* LISTIO * 

* * 
*************** 



LISTIO 

*****Bl********** 
*SCANR2 ND* 
*_*_*-*-*-*-*-.*_* 

* GET THE * 

* OPERAND FROM * 

* LISTIO STMNT * 
***************** 



****C2 ********* 

* NVSERR * 

* CHART NC * 

* * 
*************** 



• X* 



*****D2 ********** 
*LSTBG PF* 
*_*_*-*_*_*_*_*_* 
LIST * 
BACKGROUND * 
* ASSIGNMENTS * 
***************** 



****E2 ********* 

* CONTROL * 

* CHART NB * 

* * 
*************** 



.X* 



*****F2********** 
*LSTF1 PF* 
*_*_*_*_*-*_* 

LIST * 
♦FOREGROUND ONE * 
* ASSIGNMENTS * 
***************** 



**** 

* * 

* i * 

* * 
**** 

X 

*****B3********** 

* * 

* CLEAR THE * 

* I/O BUFFER * 

* * 

* * 
***************** 



*****C3********** 

* PUT THE * 

* HEADER * 

* SIGNIFYING * 

* UNASSIGNED * 

* IN I/O BUFFER * 
***************** 



*****D3******* 

* SET * 

* HEADER AND * 

* NONE LISTING 

* SWITCHES * 

* TO NOP *G4* 
************** 



*****E3********** 

* PUT THE * 

* STARTING * 

* ADDRESS OF * 

* THE PUB TABLE * 

* INTO POINT1 * 
***************** 



*****F3********** 

* PUT THE * 

* STARTING * 
♦ADDRESS OF THE * 
*LUB TABLE INTO * 

* P0INT2 * 
***************** 



CHKF2 
YES .* 



Gl *. 






X 


*****G3********** 


* 






****G2********* 


* CALC THE * 


OPERAND 


* 




* CONTROL * 


* PUB ADDRESS * 


IS F2 




* 


* CHART NB * 


* FOR SYSLOG * 




* 




* * 


* *K4 * 


.* 






*************** 


* * 


*. .* 








***************** 


*NO 








**** * 
* * 


• 








* 3 *. . . 

* * 


X 








**** X 


.*. 






CHKUA .*. 


CKPBUA .*. 


HI *. 






H2 *. 


H3 *. 


* 






.* *. 


.* *. 


OPERAND 


* 


NO 


.* OPERAND *. YES 


.* DEVICE *. 


IS ALL 




*... . 


....X*. IS UA .*.... 


*. DOWN .* 



**** 

* * 

* 2 * 

* * 
**** 



CUAPNX X 

*****B4**** ****** 

* ADD 8 TO THE * 

* PUB POINTER * 

* SO THAT IT * 

* POINTS TO THE * 

* NEXT PUB * 
***************** 



NO .* END 

...*. OF PUB 

*. TABLE 

*. .* 

X *. .* 

**** *YES 

* * 

* 3 * 

* * 
**** 



.* ANYTHING *. YES 

*. LISTED .*.... 

*. .* BR 



* LIST HEADER * 

* AND THE WORD * 

* NONE * 
***************** 



****F4********* 

* CONTROL * 

* CHART NB * 

* * 
*************** 



LOGGED. IT FUNCTIONS AS A FIRST TIME SWITCH AND 
IS INITIALIZED TO NOP. THE NONE-LISTING SWITCH, 
UAPSWH, IS PROGRAM SWITCH SET TO BRANCH WHEN 
SOMETHING HAS ALREADY BEEN LISTED. THE BRANCH 
PROHIBITS THE LIST-NONE OPERATION. THE SWITCH IS 
INITIALIZED TO A NOP (NOTHING LISTED). 



*****E5********** 
♦SPACE PH* 
*_*_*_*_*_*_*_*_* 

* SPACE * 

* ONE * 

* LINE * 
***************** 



***** j i ********** 
♦LSTBG PF* 
*_*-*-*_*_*_*_*-* 

* LIST * 

* BACKGROUND * 

* ASSIGNMENTS * 
***************** 



*****Ki********** 
*LSTF1 PF* 
*-*-*-*_*_*_*_*u.* 

* LIST * 
♦FOREGROUND ONE * 

* ASSIGNMENTS * 
***************** 



****J2********* 

* NVSERR * 

* CHART NC * 

* * 
*************** 



DEVICE 


* 


YES 




ASSIGNED 




*..X 




TO SYSLOG 


* 






*. .* 








*. .* 




> 




♦NO 






:** 






* 








* : 


> 


' 




* 

*:< 


(:** 



*K4 
SYSLOG PUB ADDRESS EQUALS THE INDEX DISPLACEMENT 
(PUB POINTER) FROM THE SYSLOG LUB MULTIPLIED BY 8 
PLUS THE STARTING ADDRESS OF THE PUB TABLEi PUBADD. 



***** 

*PJ * 

LSTUA* B4* 



***** 
*PF * 
* B5* 
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Chart PF. $$BATTNJ - Subroutines 
Refer to Chart 13. 



****Ai********* 

* * 

* LSTBG * 

* * 
*************** 



*****Bi ********** 

* PUT THE * 

* SYSTEM FICL * 
♦AND NICL VALUES* 

* INTO WRKRG1 * 

* * 
***************** 



*****£!********** 

* * 

* CLEAR * 

* THE OUTPUT * 

* BUFFER * 

* * 
***************** 



*****Q1********** 

* PUT THE * 

* SYSTEM * 

* HEADER IN * 

* THE OUTPUT * 

* BUFFER * 
***************** 



****Q2********* 

* * 

* LSTBGF * 

* * 
*************** 



****A3********* 

* * 

* LSTF1 * 

* * 
*************** 



*****B3********** 

* PUT THE Fl * 

* FICL AND * 

* NICL VALUES * 

* INTO WRKRG1 * 

* * 
***************** 



*****C3********** 

* * 

* CLEAR * 

* THE OUTPUT * 

* BUFFER * 

* * 
***************** 



*****D3********** 

* PUT THE * 

* FOREGROUND * 

* ONE HEADER * 

* IN THE OUTPUT * 

* BUFFER * 
***************** 



****A4********* 

* * 

* LOGGER * 

* * 
*************** 



*****B4********** 

* PUT END OF * 

* BUFFER ADDR * 

* INTO WRKRGl * 

* FOR REVERSE * 

* SCAN * 
***************** 



***** 
*PE * 
* Kl* 



LSTF2 X 

*****B5********** 

* PUT THE F2 * 

* FICL AND * 

* NICL VALUES * 

* INTO WRKRGl * 

* * 
***************** 



*****q 5********** 

* * 

* CLEAR * 

* THE OUTPUT * 

* BUFFER * 

* * 
***************** 



LSTBGF 

*****E1******* 

* SET SYSTEM * 

* UNIT LIST ■■ 

* SW, SYSSWH 

* TO BRANCH 

* * 
************** 



*****FL********** 

* PUT ADDR * 

* OF SYSTEM * 

* CLASS TABLE * 

* INTO A REG, * 
♦WRKRG2 *F2* 
***************** 



D4 *. 

.* *. 

.* END OF ♦ . 

♦ . BUFFER .* 

*. .* 

*. .* 

*. .* 

*YES 

*x 


*****Q5********** 

* PUT THE * 

* FOREGROUND * 

* TWO HEADER IN * 

* THE OUTPUT * 

* BUFFER * 
***************** 


X 

*****E4********** 

* CALCULATE * 

* LENGTH OF * 

* BUFFER * 

* CONTENT * 

* * 
***************** 


X 
*****E 5********** 

♦LSTBGF PF* 
*_*_*_* r *-*_*_*-* 
♦LIST FOREGROUND* 

* TWO UNIT * 

* ASSIGNMENTS * 
***************** 



*F2 
THE REGISTER 
CONTAINS THE 
LOGICAL UNIT 
SPECIFICATION. 



***** 

♦ PG * 

* B2* 



*****G4********** 

* ZERO * 

* WRKRGl TO * 
♦SET LENGTH FOR * 

* ZERO OUTPUT * 

* * 
***************** 



****P5********* 

* CONTROL * 

* CHART NB * 

* * 
*************** 



*****H4********** 

♦ * 

♦ ADD 1 TO * 

♦ LENGTH AND ♦ 

♦ STORE IN CCW ♦ 

♦ * 
***************** 



* 


-*- 


*_#_*_*_*- 
LOG I/O 


*- 
* 


* 




** 


*********** 


















X 




'. NO 
. . . .♦ 


.*" 


K4 ♦. 
* * 

ChANNL'L 
END 


*. 


YES 
if 



****K5********* 

* RETURN TO * 

* ADDRESS IN * 

* LINK REGISTER * 
*************** 
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Chart PG. $$BATTNJ - Locate Assignment Routine 
Refer to Chart 13. 



***** 

*PH * 
* D4* 

* * 



****A1********* 

* * 

* LSTAUN * 

* * 
*************** 



LSTAUN 

*****Bl ********** 

* RESET THE * 

* REGISTER THAT * 

* CONTAINS * 

* LOGICAL UNIT * 

* SPECIFICATION * 
***************** 



****B2********* 

* * 

* LSTBUN * 

* * 
*************** 



**** 

* * 

* 2 * 

* * 
**** 



LSTBUN2 X 

*****B3********** 
♦LOGGER PF* 
*-*-.*_*_*_*-*-.*-* 

* OUTPUT THE * 

* SECONDARY * 

* HEADER * 
***************** 



**** 

* * 

* 3 * 

* * 
**** 



*****B4********** 

* ADD 3 TO * 

* WRKRG1 TO * 

* POINT TO * 

* NEXT UNIT * 

* * 
***************** 



*****B5********** 

* ADD 1 TO * 

* WRKRG1 * 

* SO THAT IT * 

* CONTAINS * 

* NEXT UNIT * 
***************** 



LSTBUN 

*****£!********** 

* SAVE THE * 

* LOGICAL UNIT * 

* SPECIFICATION * 

* REG IN * 

* IOTADR * 
***************** 



*C2 
STARTING SCAN 
ADDRESS EQUALS 
DOUBLE THE FICL 
VALUE PLUS THE 
STARTING 
ADDRESS OF THE 
LUB TABLE, 
LUBADD. THIS 
VALUE IS SAVED 
IN SCFICL. 



*****oi********** 

* CALC NICL * 

* ENTRY ADDRESS * 

* = INDEX * 
♦DISPLACEMENT + * 

* NICL ADDRESS * 
***************** 




**** 

* * 

* 1 * 

* * 
**** 


X 

*****£!********** 

* SAVE NICL * 

* ENTRY IN * 

* 'SCFICL' FOR * 

* LUB SCAN * 


X 

*****E2*********« 

* CALCULATE * 

* LUB ADDRESS * 

* FOR SCAN * 

* *C2 * 



*****C3********** 




♦SPACE PH* 




*-*-*_*-*_*-*_*_* 




* SPACE * 




* ONE * 




* LINE * 




***************** 




**** I 




* * . 




♦ 5 *... 


*D4 


* * 


PROGRAM SWITCH 


**** 


SET TO BRANCH 


NXTLUB X 


WHEN SYSTEM 


*****D3********** 


UNITS ARE TO BE 


* * 


LOGGED. NOP 


* CLEAR ♦ 


WHEN BG 


* OUTPUT * 


PROGRAMMER CLASS 


♦ BUFFER ♦ 


UNITS ARE TO BE 


* * 


LOGGED. WHEN 


***************** 


SWITCH IS SET 




TO BRANCH 




WRKRG1 CONTAINS 




POINTER TO 




TRANSLATE TABLE. 



***************** 



*****P1 ********** 

* * 

* GET * 

* FICL * 

* ENTRY * 

* * 
***************** 



***************** 



*****E3********** 

♦SCNLUB PA* 
*-*_*_*_*_*-*_*-* 

♦ SET UP LOC * 

♦ JBSLUB FROM ♦ 

♦ LUB ENTRY * 
***************** 



NO .* LISTING 
...*. SYSTEM 
*. UNITS 



*****H1********** 

* CALCULATE * 

* SYSTEM NICL * 

* ENTRY, STORE * 









*F4. 








SCNJIB 




X 




SUBROUTINE IS 


X 


.♦. 




IDENTICAL TO THAT IN 


*****f 2********** 


F3 *. 




SSBATTNI EXCEPT 


♦LOGGER PF* 


.♦ ♦. 




THAT THE OLD 


*_*_*.*_*_*-*_*_* 


YES .♦ END ♦ 




JIB DISPLACE- 


* OUTPUT * 


...♦. OF CLASS 


'.* 


MENT INDEX 


♦ THE HEADER ♦ 


. *. .♦ 




IS NOT SAVED 


* * 


*. .♦ 




IN TMFAVP IN 


***************** 


X *. .* 
***** *no 

♦ PH ♦ 

♦ F3* 




StBATTNJ. 




* * 




*G4 




* 




PROGRAM SWITCH 




NDSCAN 




SET TO BRANCH 


X 


X 




IF MORE 


*****G2******^+++ 


*****Q3********** 


STANDARD 


♦SPACE PH+ 


♦ PUT THE 


* 


ASSIGNMENTS ARE 


*_*_*•*_*.*_*_*_* 


* CHARACTERS 


* 


TO BE LISTED. 


* SPACE * 


♦ SYS INTO THE 


* 


BRANCH WILL BE 


* ONE * 


♦ OUTPUT BUFFER 


* 


TAKEN AT END 


* LINE ♦ 


* 


* 


OF JIB CHAIN. 


***************** 


***************** 





SAVLUS 

*****C5********** 

♦ SAVE THE ♦ 

♦ LOGICAL UNIT ♦ 

♦ SPECIFICATION ♦ 

♦ IN LOCATION ♦ 

♦ IOTADR ♦ 
***************** 

**** 

♦ * 

♦ PH ♦ 

♦ D5* 
**** 

ASGLST X 

*****05********** 
♦LSTASG PJ^ 
*-*-*-*-*_*-*-*-* 
♦LIST ASSIGNMENT^ 

♦ FOR LUB ENTRY ♦ 

♦ AT JBSLUB ♦ 
***************** 



*****E5********** 

♦ PUT THE ♦ 

♦ CHARACTERS ♦ 

♦ -ALT- INTO ♦ 

♦ THE COMMENTS ♦ 

♦ FIELD ♦ 
***************** 

**** 

♦ * 

♦ PH ♦ 

♦ El* 
**** 

LANXJB X 

*****P5********** 
*SCNJIB PA* 
*_*-*_*_ *. r *_*_*_* 

♦ SET LUB VALUE * 
♦IN JBSLUB FROM ♦ 

♦ CHAINED JIB ♦F^ 
***************** 



STDSWH .♦. 

G5 ♦. 
.♦ LIST ♦. 
BR .♦ STANDARD ♦ 
...♦. ASSIGNMENTS 
♦. ^G4 .♦ 



***** 

♦ PH ♦ 

* B5^ 
* * 



Y, blUKt 

•SCFICL" 



***************** 



LSTBUN1A .♦. 










Jl ♦. 










* * 








.♦ 


CLASS 


* 


NO 




♦ . 


IS EMPTY 


.♦.. 




* 


'♦. .♦ 
♦ . .♦ 


* 




X 




♦YES 




**** 








* 










* 


1 




X 




* 






***** 




**** 



LISTING *. NO 
SYSTEM .♦... 
UNITS .♦ 



*****J2********** 

♦ * 

♦ SET UP ♦ 

♦ SECONDARY ♦ 

♦ HEADER ♦ 

♦ * 
***************** 



.X.. 
X 

**** 

* * 

* 2 ♦ 

* * 
**** 



*****H3********** 
















H5 * 


* PUT LOGICAL ♦ 
















* 


♦ UNIT ♦ 












NO 


.* 


END 


♦ SPECIFICATION ♦ 












...* 




OF JIB 


♦ INTO ♦ 














'* 


CHAIN 


♦ WRKRG1 * 
















*. 


***************** 












X 

***** 

*PH * 

* Bl* 

* * 

* 




*. .* 
♦ YE 

X 

**** 


X 
















* 


SWH .♦. 


SYSUNT 












* 5 


J3 ♦. 


*****J4********** 






* 


.♦ ♦. 


* 


PUT 


SYSTEM 


* 






**** 


.♦ SYSTEM ♦. YES 


* 


UNIT 


NAME 


* 








♦. UNIT LIST ...... 


». . .X* 


INTO THE 
I/O BUFFER 


* 
* 








♦. *D4 .♦ 


* 




♦ . .♦ 


* 








* 









***************** 



*****K3********** 




K4 *. 




♦CONVERT LOGICAL* 




♦ ♦. 




* UNIT NUMBER ♦ 


.* 


END OF ♦. 


NO 


♦ TO EBCDIC AND ♦ 


♦.SYSTEM CLASS . 


♦ .... 


♦PUT IT INTO THE* 


* 


UNITS .♦ 




* OUTPUT BUFFER ♦ 




♦ . .* 




***************** 




*. .♦ 


X 


• 




♦YES 


**** 
* 
* 3 


* 




Ilstprg 


X 




X 


* 


**** 




***** 


**** 


* * 




♦ PH ♦ 




* 4 * 




♦ B4* 




* * 




* * 
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Chart PH. $$BATTNJ - Output List (Part 1 of 
Refer to Chart 13. 



2) 



***** 

*PG * 
* H5* 



****A2********* 

* * 

* SPACE * 

* * 
*************** 



*****B2********** 



****A3********* 

* * 

* NOUNIT * 

* * 
*************** 



STORED 


*. 


YES 


* CLEAR THE * 


ALTERNATE 


.*... . 


* I/O BUFFER * 


IN JIB 


* 




* * 


*. .* 






* * 


*. .* 




X 


***************** 


*N0 




**** 
* * 




• 




* 1 * 

* * 




X 

.*. 




**** 








X 


CI *. 






*****C2********** 


* * 






♦LOGGER PF* 


STORED 


* 




*_*_*.**_ *_*_*_*_* 


STANDARD 




* 


* " SPACE ONE * 


IN JIB 


* 




* LINE * 


*. .* 






* *F2 * 


*. .* 






***************** 



*****Di******* 

* SET STANDARD* 

* ASSIGNMENT * 

* LIST SW 

* TO BRANCH * 

* (STDSWH) * 
************** 



****Q2********* 

* RET TO LNK * 

* REG ADDR * 

* VIA LOGGER * 
*************** 



*****£!******** 


** 




* SAVE THE 


* 




* LUB ENTRY 


* 




* FROM THE JIB 


* 




* IN LOCATION 


* 




* LBSLUB 


* 




***************** 




x! 

x 




*F2 


***** 




THIS IS A BRANCH IN 


*PG * 




THE PROGRAM. IT IS 


* F5* 




SHOWN HERE AS A BAL 


* * 




TO BETTER DESCRIBE 


* 




THE LOGIC FLOW. 



**^c************** 



*****C3********** 
♦SPACE PH* 
*_*_*_*_*_*_*_*_* 

* SPACE ONE * 

* LINE * 

* * 
***************** 



*****03 ********** 

* PUT THE * 

* CHARACTERS * 

* -NONE- * 

* INTO THE I/O * 

* BUFFER * 
***************** 



*****E3********** 

♦LOGGER PF* 
*_*-*_*_*_*_*_*_* 

♦OUTPUT THE LINE* 

* PREVIOUSLY * 

* SET UP ♦ 
***************** 

**** 

* * 
*PG * 

* F3* 
**** 

NDSCAN X 

*****F3********** 
*SPACE PH* 
*-.*_*_*_*_***_*-* 

* SPACE ONE * 
♦LINE PREVIOUSLY* 

* SET UP * 
***************** 



****G3********* 

* RET TO ADDR * 

* IN LNK REG * 

* * 
*************** 



***** 
*PG * 

* K4* 



LSTPRG X 

*****B4***#****** 
*SPACE PH* 

*-*-*-*-*-*-*-*-* 

* SPACE ONE * 

* LINE * 

* * 
***************** 



*****C4******* 

* RESET SYSTEM* 

* UNIT LIST ♦ 
♦SWITCH SYSSWH, 

* TO NOP ♦ 

* * 
************** 



LSTPRG1 

*****Q4********** 

♦INSERT "0' FOR ♦ 

♦ PROGRAM ♦ 

♦ CLASS INTO ♦ 

♦ WRKRG1 ♦ 

♦ * 
***************** 



***** 
*PG * 
* BL* 



***** 
*PG * 
* G5* 



LSTSTD X 

*****B 5 ******* 

* TURN OFF * 

* STANDARD 

* ASSIGNMENT 

* LIST SWITCH 

* 'STDSWH' * 
************** 



*****C5********* 

* SET JOBLUB 
*WITH THE ENTRY 

* SAVED FOR 

* STANDARD LIST 

* IN LBSLUB 
**************** 



*****D5 ********** 

* MOVE THE * 

* CHARACTERS * 

* -STD- ♦ 

* TO COMMENT * 

* FLD OF BUFFER * 
***************** 
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Chart PJ. $$BATTNJ - Output List (Part 2 of 2) 
Refer to Chart 13, 



* * 

* LSTASG * 

* * 
*************** 



***** 
*PE * 
* K3* 



*****C1 ********** 

* COMPUTE * 

* ADDRESS OF * 

* CORRESPONDING * 

* PUB ENTRY * 

* *B3 * 
***************** 



*****Q1********** 

* CONVERT CHAN * 

* AND UNIT SPEC * 
*T0 HEXADECIMAL * 

* EBCDIC * 

* * 
***************** 



*****E1 ********** 

* PUT CHAN * 

* AND UNIT INFO * 

* INTO THE I/O * 

* BUFFER * 

* * 
***************** 



*B3 
PUB ENTRY ADDRESS 
EQUALS PUB POINTER 
FROM THE LUB MULTI- 
PLIED BY 8 PLUS THE 
STARTING AODRESS OF 
THE PUB TABLE, 
PUBADD. 



NOTASG 

*****C 2 ********** 

* SET * 

* 'IGN' * 

* IN THE I/O * 

* BUFFER * 

* * 
***************** 



*****£ 2 ********** 

* SET * 

* 'UNA' * 

* IN THE I/O * 

* BUFFER * 

* * 
***************** 



****03********* 

* * 

* OUTPUT * 

* * 
*************** 



.*. 


OUTPUT X 


1 *. 


*****F 2 ********** 


*. 


^LOGGER PF* 


MODE *. YES 


*-*-*-*_*_*-*-*_* 


S ZERO .*... 


* OUTPUT * 


.* 


* LINE * 



UALNOT X 

*****C4* ********* 

* CONVERT CHAN * 

* AND UNIT TO * 

* HEXADECIMAL * 

* EBCDIC * 

* * 
***************** 



*** 04** ****** 
PUT CHANNEL 

AND UNIT 
INFO INI THE 
I/G BUFFER 

************* 



***************** 



*PE * 

* B4* 

* * 



*****C5******* 

* SET HEADER * 

* AND NONE * 

* LIST SWITCHES 

* *G4 * 



***************** 



SPACE 

ONE 
LINE 



*****P5 ********** 

* PUT * 

* SECONDARY * 

* HEADER IN * 

* OUTPUT BUFFER * 

***************** 



*****Gl ********** 

* CONVERT MODE * 

* SET BYTE TO * 

* HEXADECIMAL * 

* EBCDIC * 

* * 
***************** 



*****G2 ********** 

* * 

* CLEAR * 

* OUTPUT * 

* BUFFER * 

* * 
***************** 



*G4 
SET LSTUA AND 
UAPSWH TO THE 
BRANCH STATE. 



OUTPUT * 

SECONDARY * 

HEADER * 

**************** 



****H2********* 

* RET TO ADDR * 

* IN LNK REG * 

* * 
*************** 



SPACE 

OiVE 
LINE 



***J1********** 

* 

RESET MODE * 

TO MODE * 

SPECIFIED * 



****** l********** 

* MOVE MODE * 

* INFORMATION * 

* INTO I/O * 

* BUFFER * 

* * 
***************** 
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Chart PK. $$BATTNK - VOL Statement Processor 
Refer to Chart 13. 



****A1********* 

* * 

* VOL * 

* * 
*************** 



*****Bl********** 
♦FDKTV PK* 
*-*-*_*_*_*-*_*_* 

* STATEMENT * 
♦INITIALIZATION * 

* * 
***************** 



*****ci********** 

*SCANR2 ND* 
*_♦.._*_*-*-*-*-*-# 

* GET * 

* SYSXXX * 

* OPERAND * 
***************** 



****A2********* 

* * 

* FDKTV * 

* * 
*************** 



FDKTV 

*****B2********** 

* LOAD BASE * 

* REGISTER WITH * 

* FILE ADDRESS * 

* INFORMATION * 

* * 
***************** 



.* STATEMENT *. NO 
IN .*... 
♦.SEQUENCE .* 



Dl *. 


*****D2******* 


* *. 


* SET OFF ALL* 


DELIMITER *. NO 


* FLAGS IN 


IS A .*.... 


* JBCSW5 EXCEPT 


COMMA .♦ 


* BLOCKS-NOT- 


*. .* 


* PRESENT * 


*. .* X 


************** 



*****£\********** 

♦CNUNCO PN* 
*_*-*-*-*_*-*_*_* 

♦CONVERT SYSXXX * 

* TO SYMBOLIC * 

* UNIT ADORES * 
***************** 



*****p\********** 

♦FDKTVNM PK* 
*.,*-.*..*-*_*..*_*-* 

♦ PROCESS * 

♦ FILE NAME ♦ 

♦ OPERAND ♦ 
***************** 



*****Ql********** 

* SET BITS IN * 

* JBCSW5 TO ♦ 

* ALLOW DLAB ♦ 

* OR TPLAB * 

* * 
***************** 



****H1********* 

* CONTROL * 

* CHART NB * 
*^ * 

*************** 



*J1 
THESE 

INSTRUCTIONS 
ARE USED TO 
OUTPUT LABEL 
INFORMATION 
THAT WAS FOUND 
FOR THE PREVIOUS 
LABEL BLOCKS. 



*****E2********** 

♦ PUT STARTING * 

* ADDR OF LABEL ♦ 

♦ AREA INTO ♦ 
♦P0INT4 AND SAVE* 

* EXTENT BASE * 
***************** 



F2 *. 
.* FILE *. 
.* TYPE IS 
.*. SEQUENTIAL 
*. DISK 
♦. *J1 .* 



♦ YES 



*****G2******* 

♦ SET BITS IN* 

♦ MTAFLG AND ♦ 

♦ MTRSVD FOR ♦ 

♦ LAST SEQ DISK* 

♦ EXTENT *J1* 
************** 



FDKTV1 X 

*****H2********** 
♦LBLOUT PR* 
*_*_*-*_*_*..*_*_* 

* OUTPUT LABEl * 

* TO VOL AREA * 

* -SYSRES- *J1 ♦ 
***************** 



*****j2******* 

* CLEAR FLAG * 

* BYTES * 

* MTRSVD 

* AND MTFLG2 ♦ 
♦IN LABEL AREA* 
************** 



*«**K2********* 

♦ RETURN ♦ 

♦ VIA LINK REG ♦ 

♦ * 
*************** 



FDKTV2 

*****C3******* 

♦ RESET ALL ♦ 

♦ SEQUENCE ♦ 
...X* FLAGS IN 

♦ JBCSW5 ♦ 

♦ * 
************** 



***** 
*PL * 
* El* 



****Q4********* 



*************** 



*****E4********** 

*SCANR2 ND* 
*_*_*_*_*_* r .*_*_* 

* GET * 

* OPERAND * 

* * 
***************** 



NO .* SCAN 
,..*. STOP IS A 
*. BLANK . 
*. .* 



G4 *. 

.* *. 

* OPERAND * 

LENGTH G.T. 



****C5**^****** 

* * 

* FDKTVNM * 

* * 
*************** 



FDKTVNM X 

*****D5********** 

*FSCAN1 PM* 
*_*.,*_#_*_#_*_*_# 

* GET FILE * 

* NAME * 

* OPERAND * 
***************** 



.* OPERAND *. 

OMITTED 

*. .* 



F5 *. 

.*- IS *. 
.* LENGTH * 
.GREATER THAN 



**** 

* * 

* 1 * 



* OPERAND 

LENGTH G.T. 
*. 



* MOVE * 

* OPERAND * 

* TO LOCATION ♦ 

* 'PARMTR' * 

* * 
***************** 



****&■$********* 

* NVSERR * 

* CHART NC * 

* * 
*************** 



***** 

*NB * 

* B5* 

* * 



*****G5********** 

* CLEAR FILE ♦ 

* NAME STORAGE * 

* AREA AND * 

* MOVE THE FILE * 

* NAME IN * 
***************** 



*****H$********** 

* * 

* CLEAR MTAFLG * 

* FLAG BYTE IN * 

* LABEL AREA * 

* * 
***************** 



*****J5********** 

* SET FILE NAME * 

* IN KEY FIELD, * 

* BLANK LAST * 

* CHARACTER * 

* OF KEY * 
***************** 



****K5********* 

* RETURN * 

* VIA LINK REG * 

* * 
*************** 
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Chart PL. $$BATTNK - TPLAB Statement Processor 
Refer to Chart 13. 



****A2********* 

* * 

* TPLAB * 

* * 
*************** 



**** 

* * 

* 1 * 



*A4 
INCLUDES FILE 
SECURITY, BLOCK 
COUNT, AND 
SYSTEM CODE. 



*C1 
VOL STATEMENT 
HAS BEEN 
PROCESSED. 



*****C2********** 
♦CONCAT PN* 
*_*_*_*_ *„*_*.,*_* 

* GET REST * 

* OF * 

* STATEMENT * 
***************** 



***** 
*PK * 
* C3* 



****E1********* 

* ERRRTN * 

* CHART NC * 

* *F1 * 
*************** 



*F1 
•1S10D STATEMENT 
OUT OF SEQUENCE*. 



CORRECT 

SEQUENCE 

*C1 



*****E2********** 
*SCANR2 ND* 
*_*_*-*_*_*_*-*_* 
* GET FILE * 



YES .* LONG 
...*. STRING 

*. *A4 



****B4********* 

* * 

* CHKRNG * 

* * 
*************** 





X 






.*. 






C3 *. 






.* *. 






* SHORT * 


. 


*" 


STRING 

*. .* 

*. .* 

*. .* 

*YES 


,* 




**** 






* 


* 






..* PM 


* 






* C4* 






**** 


TFILL X 




*****Q3********** 




INSERT 


* 


* 


DEFAULT VALUE 


* 


* 


•OOOOOOO/ 


* 


* 


DOS/TO. 


>/360« 


* 



************* 



TPLEND 

*****E3 ********** 

* SET J8CSW5 * 

* TO INDICATE * 
♦TPLAB STATEMENT* 

* PROCESSED * 

* * 
***************** 



F2 *. 




*****F3********** 


.* FIRST *. 




* 


RESET * 


.* CHAR AN *. NO 


* 


DATA * 


*. APOSTROPHE .*. 




* 


LENGTH TO 80 * 


*. .* 




* 


AND STORE * 


*. .* 




* 


IN DTALGT * 


*. .* 


X 


** 


*************** 


UYES 


**** 

* * 

* 2 * 

* * 
**** 






X 






X 


*****G2********** 




*****G3********** 


* SET ADDRESS * 




* 


SET * 


* OF ENTRY IN * 




*FILE TYPE FIELD* 


* LABEL STORAGE * 




* 


TO 'T' TO * 


* AREA * 




* 


INDICATE * 


* * 




* 


TAPE * 


***************** 




***************** 



****B5** ******* 

* * 

* CHKRNG1 * 

* * 
*************** 



CHKRNG1 X 

*****C 5 ********** 

* SET LIMIT (9) * 

* FOR CHECKING * 

* DECIMAL * 

* DIGITS * 

* * 
***************** 



CHKRNG X 

*****D5**** ****** 

* GET STRING * 

* ADDRESS AND * 

* NUMBER OF * 

* CHARACTERS * 

* * 
***************** 



****G4* ******** 

* NVSERR * 

* CHART NC * 

* * 
*************** 



YES .* NO CHAR *. 
....*. GREATER THAN .* 
*. MAX .* 



END *. NO 
OF .*... 
STRING .* 



*****H2********** 

* SET FLAG BIT * 

* IN MTFLG2 * 

* FOR TPLAB * 

* * 
***************** 



****H3********* 

* CONTROL * 

* CHART NB * 

* * 
*************** 



****H5********* 

* RETURN * 

* VIA * 

* LINK REG * 
*************** 



*****J2********** 
*MOVE CHARACTER * 

* STRING TO * 

* LABEL OUTPUT * 

* AREA AT MTFID * 

* * 
***************** 



* L * 

* * 
**** 
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Chart PM. $$BATTNK - TLBL Statement Processor 
Refer to Chart 13. 



****A1********* 

* * 

* TLBL * 

* * 
*************** 



TLBL X 

*****B1********** 

♦FDKTV PK* 
*_.*..*..#..*_*-*_*_* 



***************** 



*****d********** 

* SET DEFAULT * 

* VALUES FROM * 
♦FILE ID THROUGH* 

* EXPIRATION * 

* DATE * 
***************** 



* PROCESS * 

* FILE NAME * 

* OPERAND * 
***************** 



*****(=! ********** 

* LOAD * 

* MAXIMUM * 

* LENGTH MINUS * 

* 1 OF FILE ID * 

* * 
***************** 



*****F1 ********** 

♦FDKTID PP* 

*_*_*.,*_*..*_*_*_* 

♦PROCESS FILE ID* 
♦OPERAND, CHECK * 
* DATE OPERAND * 
***************** 

**** 



****A2********* 

* * 

* FETINSR1 * 

* *A3 * 
*************** 



*A3 
THIS ENTRY IS FROM THE 
EXTENT PROCESSOR 
(CHART QF). IN THIS 
CASE, ONLY THE SERIAL 
NUMBER IS PROCESSED 
AND THE RETURN 
LINKAGE IS TO CHART QF. 
SEE NOTE 1. 

**** 

* * 

* 2 * 



*A4 
AFTER PROCESSING FILE SERIAL OPERAND, 
RETURN TO FTEND1, AND PROCESS VOLUME 
SEQUENCE NUMBER, FILE SEQUENCE NUMBER, 
GENERATION NUMBER, AND VERSION NUMBER 
IN TURN. 



Gl *. 

.* DATE *. 

IS 

RETENTION 

. PERIOD . 



*****Hl ********** 
*STORE RETENTION* 
♦PERIOD IN BYTES* 

* 56 AND 57 OF * 

* OUTPUT BLOCK ♦ 

* * 
***************** 



.♦. 

02 *. 

.♦ DATE ♦. 

IS ♦. NO 
ABSOLUTE .♦... 
. DATE .♦ 
♦ . .♦ 
♦ . .♦ 



*****E2********^* 
♦CHKRNG1 PL* 
*_*_*-*_*_*_*-*_* 

♦ CHECK ♦ 

♦ DIGIT ♦ 

♦ RANGE ♦ 
***************** 



*****F2********** 

♦ *. 

♦ INSERT THIS * 

♦ YEAR INTO ♦ 

♦ OUTPUT BLOCK ♦ 

♦ * 
***************** 



*****G2******^**^ 
♦FETINSRO PM+ 
*-*-*-*_*_*-*«,*_* 

* CHECK DAY AND ♦ 

* INSERT INTO * 

* OUTPUT BLOCK ♦ 
***************** 



*****H2*****+^*** 

* INSERT * 

* CREATION DATE ♦ 

* INTO OUTPUT * 

* BLOCK ♦ 

* * 
***************** 



FTEND X 

***** j 1 ********** 

♦FSCAN PM* 
*_*_*_*_*_*_*_*_* 

♦ GET FILE ♦ 

♦ SERIAL ♦ 

♦ OPERAND * 
***************** 



*J2 
RETENTION PERIOD 
RETURN FROM PP-H4 



NOTE 1— THE ENTRY. IS 
SHOWN HERE FOR CONVENIENCE. 
THE ROUTINE IS ACTUALLY 
IN $$BATTNO AND IS 
IDENTICAL TO THIS ONE. 



LAST ♦. YES 
OPERAND ...... 

*A4 .♦ 



C4 ♦. 

.♦ DID ♦. 
♦ BLANK ♦ 

FOLLOW LAST 
♦. OPERAND .♦ 



***** 
*PL ♦ 
* D3^ 



FETINSRT 

*****D3********** 
♦FSCAN PM^ 
*_*_*_*_*_*_*_*_* 

♦ GET NEXT ♦ 

♦ OPERAND ♦ 

♦ * 
***************** 



FETINSRO X 

*****F3********** 

♦CHKRNG1 PL+ 
*_*_*_*_*_*_*_*_* 

* CHECK ♦ 

* DECIMAL * 

* DIGITS * 
***************** 



FETINSR1 

*****G3********** 
♦DETERMINE ADDR ♦ 
♦IN OUTPUT BLOCK* 

* AND LENGTH OF * 

* OUTPUT FIELD * 

* MINUS ONE * 
***************** 



H3 *. 

.* WILL ♦. 

.♦ OPERAND ♦. N 

♦.FIT IN OUTPUT. ♦. 

♦. FIELD .♦ 



****P4********* 

* * 

* FSCAN1 ♦ 

* * 
*************** 



****E5********* 

* * 

* FSCAN ♦ 

* * 
*************** 



.* DELIMITER ♦. 

IS A 

♦. BLANK .♦ 



*****j 3 ********** 

* INSERT ♦ 

* OPERAND IN * 

* OUTPUT BLOCK ♦ 
♦RIGHT JUSTIFIED^ 

* * 
***************** 



FSCAN1 X 

*****G5********** 

♦SCANR2 HD* 
*_*_*_*_*_*«*_*.* 

* GET ♦ 

* OPERAND ♦ 

* * 
***************** 



* EQUAL 

SIGN ENDED 
*. SCAN 



****J4********* 

* NVSERR * 

* CHART NC ♦ 

* * 
*************** 



*****j5********** 

♦ SET CONDITION * 

♦ CODE TO * 

♦ INDICATE IF * 

♦ OPERAND IS ♦ 

♦ PRESENT ♦ 
***************** 



****K5*« ******* 

♦ RETURN ♦ 

♦ VIA LINK RbG ♦ 

♦ * 
*************** 
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Chart PN. $$BATTNK - Check, Convert, and Concatenate Subroutines 
Refer to Chart 13, 



****A2********* 

* * 

* CNUNCO * 

* * 
*************** 



****A3********* 

* * 

* NUMCON * 

* * 
*************** 



****A4********* 

* * 

* CONCAT * 

* * 
*************** 



*****B 3 ********** 

* SET UPPER * 

* LIMIT OF 9 * 

* FOR RANGE * 

* CHECK * 

* * 
***************** 



*****B4* ********* 

* CLEAR * 

* CONCATENATION * 

* BUFFERS WITH * 

* BLANKS * 

* 1127 BYTES) * 
***************** 



*. 



C2 *. 

' FIRST *. 

THREE 

CHARACTERS 

SYS 



**** 

* * 

* 2 * 

* * 
**** 



****01********* 

* * 

* CNUNCOl * 

* * 
*************** 



♦****D2********** 
*SET UP POINTER * 
*AND LENGTH FOR * 

* NUMERIC * 

* CONVERSION * 

* TO BINARY * 
***************** 



*****C3********** 
*CHKRNG PL* 
*.,*_*_*-*_*_*_*_* 

* CHECK ALL * 
♦CHARACTERS FOR * 

* VALID LIMITS * 
***************** 



*****D3********** 

* PACK TO * 
♦PACKED DECIMAL * 

* FORMAT AND * 

* CONVERT TO * 

* BINARY * 
***************** 



*****C4********** 

* SAVE FIRST * 

* PART OF * 

* STATEMENT * 

* *C5 * 

* * 
***************** 



* INPUT SECOND * 

* PART OF * 

* STATEMENT *D5 * 
***************** 



*C5 
SAVE THE FIRST 70 BYTES 
OF THE I/O BUFFER, IN 
LOCATION BUFFER1 BY 
ORING THE TWO FIELDS. 
THIS WILL MAP ALL 
LOWERCASE CHARACTERS TO 
UPPERCASE. 



*D5 
THE SECOND PART OF THE 
STATEMENT IS NOW IN I/O 
BUFFER, AT LOCATION 
BUFFER. 



CNUNCOl X 

*****E2********** 
*NUMCON PN* 
*_*_*_*_*-.*_*_*_* 

* CONVERT XXX * 

* TO BINARY * 

* * 
***************** 



****E3********* 

* RETURN TO * 

* ADDRESS IN * 

* LINK REGISTER * 
*************** 



*****E4********** 

* COMBINE THE * 
*TWO PARTS INTO * 

* A SINGLE * 

* STATEMENT * 

* *E5 * 
***************** 



*E5 
COMBINE THE TWO PARTS BY 
ORING THE CONTENTS OF THE 
I/O BUFFER (STARTING AT 
BUFFER +15) WITH BUFFR2. 
BUFFR2 IS CONTIGUOUS WITH 
BUFFR1. 



*****F2********** 

* SAVE UNIT * 

* ORDER IN * 

* LOCATION * 

* UNCLOR * 

* * 
***************** 



YES .* ORDER * 
......GREATER THAN 

*. 255 .* 



* IS *. NO 

UNIT IN LUB .*... 
*. TABLE .* 



*****F4********** 

♦ RESET POINTER ♦ 

♦ AND LIMIT FOR ♦ 

♦ NEXT ENTRY TO * 

♦ SCANR * 

♦ *F5 * 
***************** 



****G4********* 

* RET TO ADDR * 

* IN LINK REG * 

* * 
*************** 



*F5 
GET VALUES SAVED BY THE 
SCAN SUBROUTINE— 

1. REMAINING BUFFER 
LENGTH. 

2. ADDRESS OF OPERAND 
SUBTRACT THE ADDRESS 
FIELD OF THE CCW FROM 
THE STARTING ADDRESS 
OF THE OPERAND. ADD 
BUFFR1 ADDRESS TO THE 
DIFFERENCE. THE RE- 
SULTANT NEW OPERAND 
ADDRESS IS IN P0INT1. 
ADD 56 TO THE RE- 
MAINING BUFFER FIELD. 
THE RESULTANT NEW 
BUFFER LENGTH IS IN 
P0INT2. RESTORE P0INT1 
AND P0INT2 IN LOCATION 
TMPAR1 WHERE IT IS 
REFERENCED BY THE SCAN 
SUBROUTINE. 



****H1********* 

* NVSERR * 

* CHART NC * 

* * 
*************** 



*****H2****^****^ 

* COMPUTE ♦ 

* CLASS FROM * 

* KEY * 

* *J1 * 

* * 
***************** 



*****H3 ********** 

* * 

* SET UNIT * 

* CLASS TO * 

* ONE ♦ 

* * 
***************** 



****H4********* 

* ERRRTN ♦ 

* CHART NC * 

* *J4 * 
*************** 



*J1 

CLASS EQUALS 
4 MINUS KEY 
DIVIDED BY 16. 



*****J2********** 

* GET * 

* CORRESPONDING * 

* NICL ENTRY * 

* IN WRKRG1 * 

* * 
***************** 



*J4 
•1A40D INVALID 
LOGICAL UNIT 
SPECIFICATION'. 



****J3********* 

* RET TO ADDR * 

* IN LNK REG * 

* * 
*************** 
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Chart PP. $$BATTNK - Process File ID and Date Operands 
Refer to Chart 13. 



****B1********* 

* * 

* FDKTID * 

* * 
*************** 



* ADDRESS * 

* OPERAND * 

* CHARACTER * 

* * 
***************** 



FDKTDAT X 

*FSCAN PM* 
*,-*_*,-*_*_*_*_*_* 

* GET * 

* DATE * 

* OPERAND * 
***************** 



ANY 
MORE 
.OPERANDS 



*****Dl ********** 
*SCANR3 NO* 
*_*_*_*,.*_*-*_*_* 

* GET * 

* OPERAND * 

* START ADDR * 

***************** 



IS 

OPERAND 
PRESENT 



*****F1 ********** 

* * 

* LOAD SCAN * 

* LIMIT INTO * 

* POINT2 * 

* * 
***************** 



C2 *. 

.* IS *. 

THIS 

CHARACTER 

. A QUOTE . 



.* IS *. 

QUOTE 

IN COLUMN 

72 



C3 *. 
.* ANY *. 
* MORE 
CHARACTERS 



DATE 
OPERAND 
OMITTED 



*****£ 2********** 

* SET SCAN * 

* DELIMITER * 

* TO INDICATE * 
*END OF OPERAND * 

* * 
***************** 



* IS 

DELIMITER 
*. BLANK 
*. .* 



****E3********* 

* NVSERR * 

* CHART NC * 

* * 
*************** 



IS 

CHAR A 
QUOTE 



*****H1 ********** 

* START SCAN * 

* WITH FIRST * 

* CHARACTER * 

* AFTER QUOTE * 

* * 
***************** 



COL 
72 IS 

.NON-BLANK. 



DELIMITER 

IS A 

. COMMA . 



**** 

* 2 * 

* * 
**** 



NDSCAN1 .*. 

G3 *. 

-* IS *. 

NO .* THERE AN *. 

...♦OPERAND WITHIN.* 

♦THE QUOTES.* 

*. .* 



E4 *. 

.* DATE *. 

.* OPERAND * 

.GREATER THAN 



RETURN TO LINKREG+4 
FOR OMITTED DATE 
OPERAND. 



RETENTION PERIOD OR 
ABSOLUTE DATE. 
FORMAT OF ABSOLUTE 
DATE IS '/YYDDD'. 



* THIRD *. YES 

CHARACTER A .*.... 
*. SLASH .* 
*. *F5 .* 



G4 *. 

.* IS *. 

.* OPERAND * 

*. GREATER THAN 

*. 4 .* 



GET DAY 

FIELD 
LENGTH 



********** 



FDKTDAT1 

*****H4****** 
*NUMCON 



* CONVERT * 
♦RETENTION PER- * 

* IOD TO BINARY * 
***************** 



DAY 

FIELD 

OMITTED 



*****H 5** ******** 

* POINT TO * 

* START OF * 

* ABSOLUTE * 

* DATE FIELD * 

* * 
***************** 



*****j2********** 

* COMPUTE * 

* POINTER FOR * 

* NEXT SCAN AND * 

* STORE SCAN * 

* LIMIT * 
***************** 



*****J3********** 

* INSERT FILE * 

* ID IN * 

* OUTPUT BLOCK * 
*LEFT JUSTIFIED * 

* * 
***************** 



***** 
*PM * 
* Gl* 



* 2 * 

* * 
**** 



**** 

* * 

* 3 * 
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Chart PQ. $$BATTNK - DLBL Statement Processor 
Refer to Chart 13. 



♦ A2 
FIRST FIVE 
CHARACTERS 
ARE IJSYS. 



****A1********* 



*************** 



♦PP-H4 (RET 

PERIOD) 
PP-H5 (ABS. 

DATE) 
PP-C4 (OMIT 

DATE) 



♦ A4 

P0INT1= ADDRESS OF 

LOGICAL UNIT IN 
FILENAME (MTFLIN+5). 

P0INT3= LENGTH OF LOGICAL 
UNIT MINUS 1. 

LINK4= ADDRESS OF FDKIJ2, 
•ERROR" RETURN FROM 
CNUNCOl ROUTINE. 



*****Bl********** 

* LOAD BASE * 

* REGISTER * 

* WITH FILE * 

* INFORMATION * 

* ADDRESS * 
***************** 



*****d********** 

* * 

* PUT ADDRESS * 

* OF LABEL AREA * 

* IN 'LBLSAA' * 

* * 
***************** 



*****Ql********** 

♦FDKTV PK* 
*-*_*-*_*_*-.*_*-* 

* STATEMENT * 
♦INITIALIZATION * 

* * 
***************** 



*****Ei********** 

* SET DEFAULT * 

* VALUES FOR * 

* FILE ID THROUGH* 

* SYSCODE * 

* *Jl * 
***************** 



*****F1 ********** 

* RESET CURRENT * 
♦EXTENT DEFAULT * 

* TABLE TO * 

* STANDARD * 

* * 
***************** 



*****Gi********** 
♦FDKTVNM PK* 
*-*_*_*-*_*-*_*_* 

* SET UP FILE * 

* NAME AND * 

* KEY FIELDS * 
***************** 



B2 ♦ . 

.♦ FILE *. 

.♦ NAME ♦ . 

.IS FOR SYSTEM. 

*. FILE .* 

*. *A2 .* 

♦ . .♦ 

*YES 



*****Q2********** 

* INITIALIZE * 

* REGISTERS * 

* FOR CNUNCOl * 

* SUBROUTINE * 

* *A4 * 
***************** 



*****D2********** 
♦CNUNCOl PN* 
*_*-*_*..*_*_*_*_* 

* VALIDATE AND * 

* CONVERT UNIT * 

* NO. TO BINARY * 
***************** 



DATE IS 
RETENTION 
. PERIOD . 



OPERAND *. YES 
OMITTED .♦... 
OR SD .* 



FDKIJ1 X 

*****P2********** 

* GET LOGICAL * 

* UNIT DEFAULT * 
♦FROM 'UNCLOR', ♦ 
♦SET IN CURRENT * 

* EXTENT TABLE * 
***************** 



X. 

FDKIJ2 X 

*****g2********** 

♦ RESTORE ♦ 

♦ ADDRESS OF ♦ 

♦ NVSERR TO ♦ 

♦ LINKR4 FOR ♦ 

♦ ERRORS * 
***************** 



*****H2********** 

♦ LOAD REGISTER ♦ 

♦ WITH MAXIMUM ♦ 

♦ LENGTH OF ♦ 
♦FILE ID FIELD, ♦ 

♦ MINUS ONE ♦ 
***************** 



*****E3********** 

♦ STORE YEAR ♦ 

♦ IN EXPIRATION ♦ 

♦ DATE OF ♦ 

♦ OUTPUT BLOCK ♦ 

♦ * 
***************** 



*****P3********** 

♦NUMCON PN^ 
*_*_*_*_*_*_*_*_* 

♦ CONVERT ♦ 

♦ DAY TO ♦ 

♦ BINARY ♦ 
***************** 



NUMBER 

DAYS 

.G.T. 366 



*****H3+^+******+ 

♦ STORE DAY ♦ 

♦ IN EXPIRATION ♦ 

♦ DATE OF ♦ , 

♦ OUTPUT BLOCK ♦ 

♦ * 
***************** 



*****E4********** 

♦ MOVE FILE ♦ 

♦ NAME INTO ♦ 

♦ FILE ID AS * 

♦ DEFAULT VALUE ♦ 

♦ * 
***************** 



FDK2 X 

*****F4******* 

♦ SET MASK ♦ 

♦ 'DSEQMSM * 
♦TO ALLOW EXTENT^ 

♦ STATEMENT ♦ 

♦ PROCESSING ♦ 
************** 



*****G4******* 

♦ SET FLAG * 

♦ 'MTAFLG' 

♦ TO ASSUME 

♦ EXTENTS 

♦ OMITTED ♦ 
************** 



FDDKCODE X 

*****H4*^^****** 

♦ SET FILE TYPE ♦ 

♦ IN 'FILTYP' ♦ 

♦ TO «S« FOR ♦ 

♦ SEQUENTIAL ♦ 

♦ DISK ♦ 
***************** 



C3 ♦. 


*****C4********** 


*****C5******* 


.♦ ♦. 


♦STORE RETENTION* 


♦ RESET FLAG ♦ 


.♦ DATE IS ♦. NO 


♦ PERIOD IN ♦ 


♦ 'MTRSVD' TO ♦ 


♦. ABSOLUTE .♦... 


♦ BYTES 76-77 ♦ 


♦ ZERO, SET * 


♦. DATE .♦ 


♦ OF OUTPUT ♦ 


♦ FILE TYPE ♦ 


♦ . .♦ 


♦ BLOCK ♦ 


* TO 'D' ♦ 


♦ . .♦ 


***************** 


************** 


♦YES 


* **** 

* ♦ 

.X.* 3 ♦ 

X. * * 






x **♦♦ 


X 


X 


.♦. 


.♦. 


*****D3********** 


D4 ♦. 


D5 ♦. 


♦NUMCON PN* 


.♦ FILE *. 


.♦ TYPE ♦. 


*_*-*_ *„*_*_*_*_* 


YES .* ID *. 


.♦ IS ♦. YES 


♦ CONVERT ♦ 


...... SPECIFIED .♦ 


♦. DIRECT .*..X 


♦ YEAR TO ♦ 


♦ . .♦ 


*. ACCESS .♦ 


♦ BINARY ♦ 


♦ . .♦ 


♦ . .* 


***************** 


♦ . .* 


♦ . .♦ 



*****E5******* 

♦ SET MASK ♦ 

♦ 'DSEQMSK' TO 

♦ INDICATE 

♦ EXTENT REQ'D 

♦ FOR I.S. * 
************** 



*****P5********** 

♦ SET .FILE TYPE * 

♦ IN FILTYP TO * 

♦ 'C OR ET ♦ 

♦ FOR INDEX, ♦ 

♦ SEQUENTIAL ♦ 
***************** 



NO .♦ OPERAND 

...♦. EITHER ISC 

♦ . OR 

♦ .• ISE .♦ 



DLBOUT X 

*****H5******* 

* MOVE MASK * 

* 'DSEQMSK' * 

* INTO SWITCH 

* 'JBCSW5' * 

* * 
************** 



*J1 
FILE = BLANKS 
FILE SERIAL = BLANKS 
FORMAT ID = 1 
VOL. SEQ. » X'OOOl' 
CREATION DATE = 
EXPIRATION DATE = 
RETENTION PERIOD = X'0007' 
FILE TYPE CODE = S 
SYSCODE = DOS/360 VER. 3 



*****j2********** 
♦FDKTID PP* 
*_*_*_*_*_*_*_*_* 
♦PROCESS FILE ID* 
♦OPERAND, CHECK ♦ 
♦ DATE OPERAND ♦ 
***************** 



*****J4********** 

♦FSCAN PM* 
*-*_*,.*_*_#-*_*_* 

* GET * 

* FILE TYPE * 

* OPERAND * 
***************** 



*****j5********** 

♦ PUT FILE TYPE ♦ 

♦ INTO OUTPUT ♦ 

♦ BLOCK AND ♦ 

♦ RESET DATA ♦ 

♦ LENGTH TO 84 ♦ 
***************** 



**** 

.xl 



****K3********* 

♦ NVSERR ♦ 

♦ CHART NC ♦ 

♦ * 
*************** 



****K5^******^ 

♦ CONTROL ♦ 

♦ CHART NB ♦ 

♦ * 
*************** 
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Chart PR. $$BATTNK - Output Label Data Subroutines 
Refer to Chart 13. 



****A1********* 

* * 

* LBLOUT * 

* * 
*************** 



.* LABEL 
. BLOCK IN 
*. BUFFER 



*****B3********** 
*LBL0UT1 PR* 
*_*_*.<.*_*_*..*_*_* 

* CALCULATE NEW * 
♦REMAINING TRACK* 

* CAPACITY * 
***************** 



*B4 
WHEN THE DIFFERENCE 
BETWEEN THE OLD 
RESIDUAL COUNT 
(REMAINING CAPACITY) 
AND THE CURRENT BYTE 
COUNT (SPACE NEEDED) 
IS A NEGATIVE VALUE, 
THERE IS NO SPACE 
AVAILABLE ON THE 
TRACKS. 



*****d******* 


X 


* SET BLOCK * 


****C2********* 


* NOT PRESENT * 


* RETURN TO 


* BIT IN * 


* ADDR IN 


* JBCSW5 * 


* LINK REG 


* * 


*************** 


************** 






*D2 




BNPMSK 




OF THE 


X 


FLAG BYTE 


*****oi********** 


FLGBYO. 


* PUT DATA * 




* LENGTH IN * 




* WRKRG1 FROM * 




* DTALGT * 





***************** 



El *. 

.♦LENGTH *. 

NO .* GREATER *. 

,..*.THAN PREVIOUS.* 

*. MAXIMUM .* 

*. *E2 .* 



*E2 
MAXIMUM LENGTH 
IS RESET BY EACH 
ITERATION, WHENEVER 
A PREVIOUSLY SET 
MAXIMUM IS EXCEEDED. 



***** 03 ********** 

* GET CURRENT * 

* TRACK NO., * 

* CALC LAST * 

* TRACK NO. * 

* * 
***************** 



LAST 

TRACK 

FILLED 



*YES 



*****Fl********** 

* RESET MAXIMUM * 

* LENGTH WITH * 

* CURRENT DATA * 

* LENGTH * 

* *E2 * 
***************** 



*****G1 ********** 

* ADJUST DATA * 

* LENGTH BY * 

* ADDING KEY * 

* LENGTH * 

* * 
***************** 



*****Hi ********** 

* SET UP WRITE * 

* AND VERIFY * 

* CCW WITH * 

* LENGTH VALUE * 

* * 
***************** 



***** j i ********** 

* CALCULATE * 

* SPACE NEEDED * 

* ON THE LABEL * 

* TRACK * 

* *J4 * 
***************** 



****** !*******##* 

* GET THE * 

* REMAINING * 

* CAPACITY OF * 

* THE TRACK * 

* FROM REMCAP * 
***************** 



****H2********* 

* * 

* LPL0UT1 * 

* * 
*************** 



*****F3***#****** 

* ADD ONE TO * 

* TRACK NO. * 

* AND STORE * 

* IN WHHADD * 

* * 
***************** 



*****G3******* 

* RESET RCD 

* NUMBER TO 

* ZERO IN 

* WRECNO 

************** 



*****H3*#****# 

* RESET TRK 

* CAPACITY 



********** 



****F 4** ******* 

* ERRRTN * 

* CHART NC * 

* *G4 * 
*************** 



*****B5********** 

* SET UP * 

* SEEK ADDRESS * 

* IN LOCATION * 

* SHHADD * 

* * 
***************** 



*****C5******#*** 
*ADD 256 TO THE * 

* RECORD NUMBER * 

* AND STORE IN * 

* WRECNO * 

* *F5 * 
***************** 



*****D5********** 

* SET UP * 

* WRITE * 

* CCB * 

* * 
***************** 



****E 5 ********* 

* EXCPRG * 

* CHART MC * 

* * 
*************** 



*F5 
A TWO BYTE FIELD IS 
PICKED UP, STARTING 
WITH WRECNO. ADDING 
256 TO THIS VALUE 
EFFECTIVELY INCREASES 
THE RECORD NUMBER 
BY 1. 



*G4 
'1L10D 
LABEL AREA 
EXHAUSTED'. 



LBL0UT1 

*****J3******* 

* CALCULATE 
■■■* REMAINING 

* TRACK 

* CAPACITY 
. * *K4 

************** 

**** 



*****K3 ********** 

* PUT * 

* REMAINING * 

* CAPACITY INTO * 

* LOCATION * 

* REMCAP * 
***************** 



,14 








1. 


DATA LENGTH + KEY LENGTH 








MULTIPLIED BY — 


537 


2137 


?. 


PRODUCT DIVIDED BY- 


512 


2048 


3. 


QUOTIENT ADDED TO— 


81 


146 



*K4 
REMAINING CAPACITY EQUALS 
MAXIMUM BYTES PER TRACK 
(3625 FOR 2311, 7294 FOR 
2314) MINUS CURRENT BYTE 
COUNT ON NEW TRACK. REMCAP 
IS DECREASED BY THE DATA 
LENGTH NEEDED EACH TIME. 
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Chart PS, $$BATTNL - DLAB Statement Processor 
Refer to Chart 14, 



****A1********* 

* * 

* DLAB * 

* * 
*************** 



STATEMENT 

IN SEQ. 

*A2 



*A2 
DLAB MUST BE 
PRECEDED BY 
A VOL STATEMENT. 



***** 
*PU * 
* Bl* 



**** 

* * 

* 2 * 

* * 
**** 



B3 *. 

.* *. 

.* DELIMITER *. 

A 

*. COMMA .* 

*. .* 

*. .* 

*YES 



*****d********** 

* LOAD WRKRG4 * 
*WITH FILE INFO * 

* ADDRESS AND * 
*P0INT4 WITH THE* 
*ADR OF LBL AREA* 
t**#************* 



****C2********* 

* ERRRTN * 

* CHART NC * 

* *D2 * 
*************** 



*D2 
•1S10D STATEMENT 
OUT OF SEQUENCE'. 



*****£!********** 

*CONCAT MN* 
*_*_*_*_*_*_*_*_* 

*BUILD COMPLETE * 
* CARD IMAGE IN * 
♦BUFFR1, BUFFR2 * 
***************** 



*****F i********** 

*SCANR2 ND* 
*_*_*_*_*_*_*_*_* 

* GET THE FIRST * 

* OPERAND-51 * 

* CHARACTERS- * 
***************** 



Gl *. 

.*0PERAND*. 
.♦ENCLOSED IN*. 
. APOSTROPHES . 



****E2 ********* 

* NVSERR * 

* CHART NC * 

* * 
*************** 



*****D3********** 

*NUMCON PN* 
*_*_*_*_*_ *_*_*_* 

* CONVERT VOL * 

* SEQ NO. TO * 

* BINARY * 
***************** 



*****E3 ********** 

* SAVE VOLUME * 

* SEQ. NO. * 

* IN LABEL * 

* DAVLSQ * 

* * 
***************** 



*****F3********** 
♦D0P34 PT* 
*_*_*_*_*_*_*_*_* 

*CHECK, CONVERT * 
♦STORE CREATION * 
* DATE IN LABEL * 
***************** 



*****B4********** 

* CLEAR * 

* RESERVED BYTE * 
*AND TYPE FIELD * 

* 'DARSYD' AND * 

* 'DAFTYP' * 
***************** 



*****C4**** ****** 
*SCANR2 ND* 
*_*_*_*_*_*_*_*_* 

* GET NEXT * 

* OPERAND- * 

* SYSTEM CODE- * 
***************** 



D4 *. 
.♦OPERAND*. 
NO .*ENCLOSED IN*. 
,..*. APOSTROPHES .* 



OPERAND *. YES 
IS SD OR .*. 
. BLANK .* 
*. .* 



*****C5******* 

* RESET * 

* 'MTRSVD' TO 

* ZERO, SET 

* FILE TYPE 

* TO 'D' * 
************** 



**** 

* * 

* 1 * 



*****E4********** 

* * 

* SAVE SYSTEM * 

* CODE IN * 

* 'DASYCD' * 

* * 
***************** 



*****F4********** 

* RESET POINT1, * 

* POINT2 AND * 

* TMPAR1 FOR * 

* NEXT SCAN * 

* * 
***************** 



*****F_ 5******* 

* SET * 

* 'DSEQMSK' TO 

* INDICATE 

* EXTENT REQ'D 

* FOR I.S. * 
************** 



TO C OR E 



*************** 



*****G3********** 


*****G4******* 


G5 *. 


* PUT ADDR * 


* SET MASK * 


.* * 


* OF EXPIRATION * 


* 'DSEQMSK' * 


NO .* OPERAND 


* DATA AREA * 


* FOR XTENT < 


...*. IS ISC OR 


* INTO P0INT4 * 


* STATEMENT * 


*. ISE 


* * 


* REQUIRED * 


*. .* 


***************** 


************** 


X *. .* 



*****Hl ********** 

* SAVE FILE ID * 

* IN DACTRL * 

* AND SET DAFMT * 
*TO 1 TO ENSURE * 

* FORMAT-1 * 
***************** 



*PU-F4 
PV-K1 
PX-G1 
***** 



V ****H3********** 
*D0P34 PT* 
*_*_*_*_*_*_*_*_* 

♦CHECK, CONVERT * 

* STORE EXPRATN * 

* DATE IN LABEL * 
***************** 



FDDKCODE X 

*****H4********** 

* SET FILE * 

* TYPE TO * 

* SEQUENTIAL * 

* DISK * 

* * 
***************** 



DLBOUT X 

*****H5******* 

* MOVE MASK * 

* 'DSEQMSK' 

* INTO SWITCH 

* 'JBCSW5' 



*****J1 ********** 

♦ RESET POINT1, ♦ 

♦ POINT2 AND * 

♦ TMPAR1 FOR * 

♦ NEXT SCAN ♦ 

♦ * 
***************** 



****J2********* 

* ERRRTN * 

* CHART NC * 

* *K2 * 
*************** 



*****J3********** 

* RESET P0INT4 * 

* TO STARTING * 

* ADDRESS OF * 

* LABEL AREA * 

* * 
***************** 



*****J4********** 

*SCANR2 ND* 
*_*_*- *^*_*_*_*_* 

* GET LAST * 

* OPERAND- * 

* OPTIONAL NSD- * 
***************** 



***** j 5** ******** 

* PUT FILE TYPE * 

* INTO 'DAFTYP' * 

* AND SET DATA ♦ 
♦LENGTH 'DTALGT'* 

* TO 84 * 
***************** 



*****«! ********** 

♦SCANR2 NO* 
*_*-*,*-*_*_*_*-* 

* GET NEXT ♦ 

* OPERAND- VOL ♦ 

* SEQ NUMBER^ * 
***************** 



*K2 
•ILOOD INVALID 
LABEL SYNTAX'. 



.♦EXPIRATION *. 
DATE LT .* 
*. CREATION .* 
*.DATE .* 



****«5********* 

♦ CONTROL ♦ 

♦ CHART NB ♦ 

♦ * 
*************** 
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Chart PT. $$BATTNL - Extract Operand Routine 
Refer to Chart 14. 



****A2********* 

* D0P34 * 

* * 
*************** 



*****B2********** 
*SCANR2 ND* 
*-.*_*.u*_*-*_*.-*_* 

* GET THIRD * 

* AND FOURTH * 

* OPERANDS * 
***************** 



X 

.*. 

C2 *. 

.♦"delimiter"*. 

IS A 
*. COMMA .* 



D2 *. 
.* *. 

LENGTH IS 



***** e 2 ** ******* * 

* SET LENGTH * 

* IN POINT3 * 
*F0R CONVERSION * 

* SUBROUTINE * 

* * 
***************** 



*****F2********** 
*NUMCON PN* 
*-,*-,*_*_*-*_*-^*_* 

* CONVERT YEARS * 

* TO BINARY * 

* * 
***************** 



*****G2********** 

* STORE * 

* CONVERTED * 

* YEAR VALUE * 

* IN 'DACRYR' * 

* * 
***************** 



*****H2********** 

* SET POINT1 * 

* TO ADDRESS OF * 

* THE DAY FIELD * 

* AND POINT3 * 

* TO LENGTH * 
***************** 



*****j2********** 
*NUMCON PN* 
*-*-*_*_*-*-*-*_* 

* CONVERT DAY * 

* TO BINARY * 

* * 
***************** 



.* DAY * 
.GREATER THAN 
*. 366 .* 



*****C4********** 

* STORE * 

* CONVERTED * 

* DAY - 2 BYTES * 

* INTO 'DACRDY' * 

* * 
***************** 



****D4********* 

* RET TO ADDR * 

* IN LNK REG * 

* * 
*************** 



****E3********* 

* NVSERR * 

* CHART KC * 

* * 
*************** 
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Chart PU. $$BATTNL - XTENT Statement Processor (Part 1 of 3) 
Refer to Chart 14. 



****A1 ********* 

* * 

* XTENT * 

* * 
*************** 



**** 

* * 

* 2 * 



. STATEMENT 

*. DLAB OR . 

*. XTENT.* 



FILE 
DIRECT 
ACCESS 



*****Cl ********** 

* INITIALIZE * 

* POINTERS TO * 

* FILE ADDRESS * 
*AND LABEL AREA * 
♦ADDRESS *C2 * 
***************** 



*C2 
WRKRG4 CONTAINS THE 
FILE INFORMATION 
ADDRESS WITHIN THE 
LABEL AREA. P0INT4 
CONTAINS THE ADDRESS 
OF THE LABEL AREA. 



TYPE 

EQUALS 

I 



YES .* EXTENT * 
...*.TYPE GREATER 
*. THAN .* 



* 3 * 

* * 
**** 



EXTEN 
TYPE 
I 



*****Qi********** 

* LOAD ADDRESS * 
*0F THE CORRECT * 
*PIB ENTRY INTO * 

* WRKRG1 * 

* (PIBADD+ KEY) * 
***************** 



TYPE 

EQUALS 

128 



******** 



GET-EX 
SEQUE 
FIE 



TENT 

NCE 

LD 



**************** 



*****£!********** 

* CALCULATE * 

* THE AMOUNT OF * 

* MAIN STORAGE * 

* ALLOCATED IN * 

* WRKRG2 *E2 * 
***************** 



*****Fl ********** 

* CALCULATE * 

* THE FG UPPER * 

* LIMIT ADDRESS * 

* IN WRKRG1 * 

* *F2 * 
***************** 



*E2 
EXTRACT THE NUMBER 
OF 2K BLOCKS ALLOCATED 
FROM THE PIB AND 
MULTIPLY BY 2048 TO 
GET THE NUMBER OF 
BYTES ALLOCATED. 



*F2 
EXTRACT THE ADDRESS 
OF THE PROGRAM ORIGIN 
FROM THE PIB. ADD 
NUMBER OF BYTES 
ALLOCATED TO THIS 
PROGRAM. 



TPOK X 
*****E3 ********** 

*XT0P12 PX* 
*-*_ *-*-*-*_*_*_* 

* GET EXTENT * 

* SEQUENCE * 

* FIELD * 
***************** 



**** 

* * 

* 5 * 

* * 
**** 



* IS 

THIS FIRST 
*. EXTENT . 



GET EXTENT * 

SEQUENCE * 

NUMBER * 

*************** 



.* SEQUENCE *. NO 
*. NO. GREATER .*... 
*. THAN .* 
*. 1 .* 



•ISTYP4 
NO .*" 



SPACE *. 
AVAILABLE .■ 
.WITHIN FG.* 
*.AREA .* 



****G 2 ********* 

* ERRRTN * 

* CHART NC * 

* *H2 * 

*************** 



ASCENDING 
SEQUENCE 
. NUMBER . 



FIRST 

EXTENT 

*J2 



* GET EXTENT 

* SEQUENCE 

* NUMBER 
************* 



*****H1 ********** 
*XT0P12 PX* 
*_*_*_*_*_*_*_*_* 

* CHECK AND * 
♦CONVERT EXTENT * 

* TYPE FIELD * 
***************** 



***H4********** 

SET UP FOR * 

SEQUENCE * 

NUMBER * 

CHECK * 

*************** 



* SEQUENCE 

NO. GREATE 
*. THAN 1 
*. *J2 .* 



***** j 1 ********** 

* STORE * 

* CONVERTED * 
♦VALUE FOR TYPE * 

* IN LOCATION ♦ 

* 'XTTYPE' * 
***************** 



*J2 
THE FIRST EXTENT MUST BE A 
TYPE 4. AT THIS TIME, A 
SEQUENCE NUMBER GREATER 
THAN I IS OUT OF SEQUENCE. 



* SEQUENCE * 
NUMBER IN 

♦.ASCENDING.* 
♦.ORDER.* 



**** 

* * 

* 2 ♦ 

* * 
**** 
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Chart PV. $$BATTNL - XTENT Statement Processor (Part 2 of 3) 
Refer to Chart 14. 



***** 

*PU * 
* G3* 



**** 

* * 

* 2 * 

* * 
**** 



XT0P3 X 

*****BL********** 
♦XT0P3A PX* 

*_*-*_*-*_*_*_*..* 

* GET LOWER * 

* LIMIT OF * 

* EXTENT * 
***************** 



*****£!********** 

* PUT Bit CELL * 
♦NO., FIELD INTO* 

* LOCATION XTB1 * 

* OF THE LABEL * 

* AREA. * 
***************** 



*****Dl ********** 

* ADD A TO THE * 

* LABEL AREA * 

* POINTER, * 

* POINTA * 

* *D2 * 
***************** 



*****E i********** 
♦XT0P3A PX* 
*-*-*-*-*-*,*_*_* 

* GET UPPER * 

* LIMIT OF * 

* EXTENT * 
***************** 



*****Fl********** 

* RESET LABEL * 

* AREA POINTER * 

* POINTA * 

* *D2 * 
***************** 



*****G1********** 

* PUT B2, CELL * 
*NO.. FIELD INTO* 

* LOCATION XTB2 * 

* OF THE LABEL * 

* AREA. * 
***************** 





.* 


LOWER 


*. 






.* 


HEAD 


* 


YES 


X* 


.GREATER THAN 


*. . .. 




*. 


UPPER 


.* 






* 


.HEAD 
*. .* 
♦NO 


* 


X 

**** 



*D2 
THE BASE REGISTER, 
POINTA, IS 
INCREMENTED BY A 
FACTOR OF FOUR WHEN 
THE UPPER LIMIT 
EXTENT FIELDS OF THE 
LABEL AREA DSECT 
ARE BEING PROCESSED. 
WHEN THE OPERATION 
IS COMPLETE, POINTA 
IS RESTORED TO ITS 
ORIGINAL VALUE. 



XTOP5 

*****C3********** 
*SCANR3 ND* 
*_*_*-.*-*_*_*-*_* 

* GET SERIAL * 

* NUMBER * 

* FIELD * 
***************** 



.* 6 CHAR *. 
. ENCLOSED IN . 
♦APOSTROPHES* 



*****E3 ********** 
♦SAVE THE SERIAL^ 

♦ NUMBER IN ♦ 
♦LOCATION XTSERL* 

♦ OF LABEL ♦ 

♦ AREA ♦ 
***************** 



*****P2********** 

♦ MOVE EXTENT ♦ 

♦ SERIAL INTO ♦ 

♦ 'DAFSER' AS ♦X 

♦ FILE SERIAL ♦ 

♦ NUMBER ♦ 
***************** 



HI ♦. 
.♦ CELL ♦. 
.♦ NUMBERS ♦. NO 
ARE .♦..X 
♦. EQUAL .♦ 
♦ . .♦ 
♦ . .♦ 
♦YES 



Jl ♦. 

.♦ UPPER *. 
EXTENT 
EXCEEDS 

. MXCCHH . 



.♦. 

Kl *. 

.* LOWER *. 

.* LIMIT * 

.GREATER THAN 

♦. UPPER .* 

♦.LIMIT.* 



**** 

* * 

* 3 ♦ 

* * 
**** 



*****Q3********** 

♦ RESET POINT1, ♦ 

♦ POINT2, AND. ♦ 

♦ , TMPAR1 FOR ♦ 

♦ NEXT SCAN ♦ 

♦ * 
***************** 



*****H3********** 
♦SCANR3 ND+ 
*_*_*_*_*_*_*_*_* 

♦ GET SYSXXX * 

♦ FIELD ♦ 

♦ * 
***************** 



.♦ DELIMITER ♦. YES 
♦. IS AN EQUAL ...... 

*. SIGN .♦ 



♦NO 



***** 
*PS ♦ 
* J2+ NLSERR 



*****K3********** 
♦CNUNCO PN^ 
*_*_*_*_*_*_*_*_* 

♦CONVERT SYSXXX ♦ 

♦ TO CLASS ♦ 

♦ AND ORDER ♦ 
***************** 



**** 

* * 

* 2 * 

* * 
**** 



ANY 
MORE 
.OPERANDS 



*****C5 ********** 
♦SCANR3 ND* 
*^*_ *_*_*_*_*_*_* 

* GET B2 ♦ 

* FIELD ♦ 

* * 
***************** 



NO .♦ DELIMITER ♦. 
...♦. A .♦ 
♦. BLANK .♦ 



*****F5********** 

*NUMCON PN^ 
*_*-*_*«*_*-*_*_* 

* CONVERT B2 ♦ 

* TO B-INARY ♦ 

* * 
***************** 



*****G5********** 

♦ STORE B2 ♦ 

♦ IN LOCATION ♦ 

♦ XTB2 OF ♦ 

♦ LABEL AREA ♦ 

♦ * 
***************** 



***** 
*PW ♦ 
* B2+ 



****K4********* 

♦ NVSERR ♦ 

♦ CHART NC ♦ 

♦ * 
*************** 
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Chart PW. $$BATTNL - XTENT Statement Processor (Part 3 of 3) 
Refer to Chart 14. 



***** 

*PV * 
* G5* 

* * 



* 1 * 

* * 
**** 



.* TYPE 
*. SEQUENTIAL 
*. DISK 



*****C2******* 

* RESET * 

* 'MTAFLG' 

* FLAG- BYTE 

* TO ZERO 

* * 
************** 



*****D2********** 

* LOAD P0INT4 * 

* WITH ADDRESS * 

* OF PREVIOUS * 

* EXTENT * 

* * 
***************** 



PACKCG X 

*****B4******* 

* TURN ON BIT* 

* IN 'MTAFLG' * 

* FOR LIOCS 

* LOOK-AHEAD * 

* * 
************** 



XTUNIT 

*****C3********** 

* ADD 1 TO * 

* EXTENT COUNT * 

* IN LABEL * 

* SAVE AREA * 

* * 
***************** 



SYMBOLIC 
UNITS ARE 
. EQUAL . 



.* BIN *. 

NUMBERS 

ARE EQUAL 

*H3 



* 1 * 

* * 
**** 



OUTLBL 

*****C4******* 

* SET FLAG * 

* 'MTRSVD' 

* SAME AS 

* 'MTAFLG' 

* * 
************** 



*****D4********** 
*LBL0UT PR* 

*_*_*,. *^*_*_*_*_* 

* OUTPUT * 

* PREVIOUS * 

* EXTENT * 
***************** 



*****E4********** 

* RESET DATA * 

* LENGTH * 

* 'DTALGT' * 

* TO 84 * 

* * 
***************** 



*****F4********** 

* REPLACE * 

* PREVIOUS * 

* EXTENT WITH * 

* NEW EXTENT * 

* * 
***************** 



. 


*H3 




THE SUBFIELD 


X 


WITHIN THE DSECT 


.*. 


FOR THIS EXTENT 


H2 *. 


FIELD IS COMPARED 


.* VOL. *. 


TO THE IDENTICAL 


.* SERIAL *. 


YES SUBFIELD OF THE 


*. NOS. ARE .* 


.... PREVIOUS EXTENT 


*. EQUAL .* 


. FIELD. 


*. *H3 .* 




*. .* 


X 


*NO 


**** 




* * 




* 2 * 




* * 


x! 


**** 


NODCUX X 




*****J2******* 




* TURN ON BIT* 




* IN 'MTAFLG' * 




* FOR NO EXTENT * 




* DEQUEUE * 




* * 




************** 




X 

**** 





NEWXTN 

*****G4***# ****** 

* INCREASE * 

* P0INT4 TO * 

* NEXT EXTENT * 

* AND STORE * 

* IN 'LBLPTR' * 
***************** 



*****H4*** ******* 

* ADD 20 TO * 

* THE DATA * 

* LENGTH IN * 

* 'DTALGT' * 

* * 
***************** 



*****J4******* 

* SET JBCSW5 * 

* FOR BLOCK 

* PRESENT AND 

* EXTENT 

* PROCESSED * 
************** 



****K4********* 

* CONTROL * 

* CHART NB * 

* * 

*************** 
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Chart PX. $$BATTNL - XTENT Processor Subroutines 
Refer to Chart 14. 



****A1********* 

* XT0P12 * 

* * 
*************** 



*****B1********** 
♦SCANR2 ND* 
*_*^. *_*_*.* *_*-.#_* 

* GET EXTENT * 

* TYPE OR * 

* SEQUENCE NO. * 
***************** 



****A3********* 

* * 

* XT0P34 * 

* *A5 * 
*************** 



*****B3********** 
♦SCANR3 NO* 
*«*-*^ *-*_*-*-*-* 

* GET THE * 

* EXTENT * 

* LIMITS * 
***************** 



**** 

* * 

* 1 * 

* * 
**** 



*****A4********** 

* SET SCAN * 

* POINTERS, * 

* POINT1 AND * 

* POINT2 TO THE * 

* NEXT FIELD * 
***************** 



*****B4********** 
♦NUMCON PN* 
*-*_*-*-*_*_*_*_* 

* CONVERT C2 * 

* TO BINARY * 

* * 
***************** 



*A5 
THIS SUBROUTINE AS 
ILLUSTRATED GETS THE 
LOWER LIMIT INFORMATION 
FROM THE EXTENT. 
HOWEVER, IT IS ALSO 
USED TO GET UPPER LIMIT 
INFORMATION. THE 
CORRECT LABEL OF THE 
LABEL AREA DSECT IS 
ADDRESSED FOR UPPER 
LIMIT VALUES BECAUSE 
OF A BASE REGISTER 
ADJUSTMENT IN THE 
CALLING ROUTINE. 
EXTENT INFORMATION 
IS IN THE FORM Bl- 
CELL NUMBER C1C1- 
CYLINDER 1 
C2C2C2-CYLINDER 2 
H1-HEAD1 
H2H2-HEAD2 



.* DELIMITER *. NO 
IS A .*... 

*. COMMA .* 



Dl *. 
.♦OPERAND*. 
.* LENGTH *. NO 
♦.GREATER THAN .♦.*. 
*. .* 



El *. 

.♦OPERAND*. 

.♦ LENGTH ♦. 

♦.GREATER THAN . 

*. 3 .* 

*. .* 

*. .* 

*NO 



*****Fl********** 

*NUMCON PN* 
*_*_*_*_*_*-.*_*_* 

* CONVERT * 

* OPERAND TO * 

* BINARY * 
***************** 



NO .* DELIMITER *. 
...*. IS A 

*. COMMA .* 



D3 *. 

.* *. 

.* LENGTH *. 

EQUAL 

*. 9 .* 



*****E3********** 

♦NUMCON PN* 
*_*„*_*-*_ *_*_*_* 

* CONVERT * 

* OPERAND TO * 

* BINARY * 
***************** 



C4 *. 

.♦ C2 ♦. 

.♦ FIELD ♦ 

♦.GREATER THAN 

*. 199 .* 

*. .* 



*. 



♦NO 



*****04********** 

♦ PUT LOWER ♦ 
♦LIMIT CYLINDER ♦ 

♦ TWO INTO LOC ♦ 

♦ XTLLC2 OF ♦ 

♦ LABEL AREA ♦ 
***************** 



*****E4********** 

♦ SET SCAN ♦ 

♦ POINTERS, ♦ 

♦ POINT1 AND ♦ 
♦POINT2 TO NEXT ♦ 

♦ OPERAND FIELD ♦ 
***************** 



**** 

* * 

* 2 * 

* * 
**** 



SEQUENCE ♦. 


yes! 


NO 


GREATER . 
THAN .♦ 


♦ ..X. 


♦. 255 .♦ 






♦ . .♦ 


X 




♦NO 


***** 
♦PS ♦ 
* J2* 
* * 
* 
NLSERR 



. X 

*F2******* 

NVSERR 
CHART NC 

********** 


** 
* 

* 
* 
** 


F3 ♦. 
.* *. 
.* EXTENT *. YES 
*. IS .*.... 

*. ZERO .* 
♦ . .♦ 

♦ . .♦ X 
*NO **♦* 
. * * 

* 2 ♦ 

* * 
*♦** 


*****P4********** 

* CLEAR XTLLH1 * 

* AND LOAD IT ♦ 

* WITH LOWER * 

* LIMIT HEAD * 

* ONE VALUE * 
***************** 






X 
*****G3********** 

♦ PUT THE CELL ♦ 

♦ NUMBER FIELD ♦ 

♦ INTO LOCATION ♦ 

♦ SVXTB * 


X 

*****G4********** 

♦ SET SCAN ♦ 

♦ POINTERS. ♦ 

♦ POINTl AND ♦ 
♦POINT2 TO NEXT * 



*****H1********** 
♦STORE SEQUENCE ♦ 

♦ NUMBER IN LOC ♦ 

♦ XTSEQN IN ♦ 

♦ LABEL AREA ♦ 

♦ * 
***************** 



****jl********* 

♦ RET TO ADDR ♦ 

♦ IN LNK REG ♦ 

♦ * 
*************** 



***************** 



*****H3********** 

♦ SET SCAN ♦ 
♦POINTERS, POINTS 
♦AND P0INT3 FOR ♦ 

♦ THE NEXT ♦ 

♦ OPERAND FIELD ♦ 
***************** 



*****J3********** 

♦NUMCON PN+ 
*_*_*_*_*_*_*_*_* 

♦ CONVERT CI ♦ 

♦ TO BINARY ♦ 

♦ * 
***************** 



*****«3********** 
♦PUT LOWER LIMITS 

♦ CYLINDER ONE ♦ 

♦ INTO LOCATION ♦ 

♦ XTLLC1 OF ♦ 

♦ LABEL AREA * 
***************** 



*****H4********** 
*NUMCON PN* 
*-*-*-*_*-*-*-*_* 

* CONVERT H2 * 

* TO BINARY ♦ 

* * 
***************** 



*****j4********** 

* PUT LOWER ♦ 

* LIMIT HEAD * 

* TWO VALUE * 

* INTO XTLLH2 * 

* OF LABEL AREA * 
***************** 



****K4********* 

* RET TO ADDR * 

* IN LNK REG ♦ 

* * 
*************** 
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Chart PY. $$BATTNM - EXEC Statement Processor 
Refer to Chart 14. 



****Al********* 

* * 

* EXEC * 

* * 
*************** 



**** 

* * 

* 1 * 

* * 
*«** 



***** 

*QC * 

* K2* 

* * 



*****B1 ********** 

*SCANR2 NO* 
*_*»*- #-.*_*_*..*_* 

* GET THE FIRST * 

* OPERAND, * 

* PROGRAM NAME * 
***************** 



.*PROGRAM*. 

NAME IN *. NO 
DIRECTORY .*... 
*J2 .* 



****B4********* 

* ERRRTN * 

* CHART NC * 

* *B5 * 
*************** 



*B5 
'1C30A PROGRAM 
NOT FOUND'. 



*C5 
•1S100 

STATEMENT OUT 
OF SEQUENCE'. 



.* DELIMITER *. 
. IS A BLANK . 
*. .* 



.* EXEC *. 

. STATEMENT . 

♦IN SEQUENCE* 



****C4** ******* 

* ERRRTN * 
•X* CHART NC * 

* *C5 * 
*************** 



Dl *. 
.♦OPERAND*. 
.* LENGTH *. NO 
♦.GREATER THAN .*... 
*. .* 
*. .* 
*. .* 
*YES 



El *. 
.♦OPERAND*. 
.* LENGTH *. NO 
*. LESS THAN .*... 



LABEL 
BLOCK IN 
. CORE 
*. *E5 .* 



***** 
*PZ * 
* BL* 



***** 
*QA * 
* Bl* 



*E5 
THE LAST SEGMENT OF 
LABEL INFORMATION 
HAS NOT BEEN 
TRANSFERRED TO THE 
LABEL CYLINDER OF 
SYSRES IF THIS 
BIT SWITCH OF 
JBCSW5 EQUALS ZERO. 



*****F1 ********** 

* CLEAR SAVE * 

* AREA * 

* TMPAR1 * 

* TO BLANKS * 

* * 
***************** 



****P2********* 

* NVSERR * 

* CHART NC * 

* * 
*************** 



*****Gi ********** 

* PUT PROGRAM * 

* NAME INTO * 

* SAVE AREA * 

* JUST CLEARED * 

* * 
***************** 



*****H1********** 

♦ SET AN ODD ♦ 

♦ VALUE IN ♦ 

♦ SAVE AREA ♦ 

♦ FWRKFL * 

♦ * 
***************** 



*****jl********** 
*PUT THE ADDR OF* 

* PROGRAM NAME * 
*INTO REG 1. SET* 

* REG WITH * 
*ADDR OF FWRKFL * 
***************** 



*J2 
THE AREA ADDRESSED BY 
REGISTER IS SET WITH AN ODD VALUE. 
IF A PROGRAM NAME MATCHING THE 
PROGRAM NAME SPECIFIED IN REGISTER 
1 IS FOUND DURING THE CORE IMAGE 
LIBRARY DIRECTORY SEARCH, PART OF 
THE SVC 23, THE AREA ADDRESSED BY 
REGISTER CONTAINS THE LOAD 
ADDRESS BOUNDARY ALIGNED. 
(AN EVEN VALUE) 



*****K1 ********** 

* SVC 23 * 

* GET LOAD ADDR * 

* FOR PROGRAM * 

* SPECIFIED * 

* *J2 * 
***************** 
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Chart PZ. $$BATTNM - Output Last Block of Label Data 
Refer to Chart 14. 



.*. 

BL *. 
.* FILE *. 
NO .* TYPE IS 
...*. SEQUENTIAL 
*. DISK 
*. .* 
*. .* 



*****C1****** 

* iSET BITS 

* UN MTRSVD 

* IAND MTAFLG 

* !FOR LAST 

* ISD ENTRY 
************* 



_*_*_*_* 

* CALCULATE NEW * 

* REMAINING * 
*TRACK CAPACITY * 
***************** 



* CALCULATE * 

* REMAINING * 

* CAPACITY * 

* * 
***************** 



*C2 
FROM THIS POINT ON, 
THIS ROUTINE IS 
IDENTICAL TO THE 
LBLOUT SUBROUTINE 
IN SSBATTNK. SEE 
CHART PR FOR MORE 
DETAILED INFORMATION. 



SAVE 
REMAINING 
CAPACITY 
N 'REMCAP' 



EXEC1 .*. 

Dl *. 
.* MAX *. 
NO .* LENGTH * 
...♦.GREATER THAN 
*.DATA LNG .* 
*. *C2 .* 
*. .* 
*YES 



*****£!********** 

* RESET * 

* MAXIMUM * 

* LENGTH WITH * 

* DATA LENGTH * 

* * 
***************** 



*****F1 ********** 

* ADD KEY * 

* LENGTH TO * 

* DATA LENGTH * 

* IN WRKRG1 * 

* * 
***************** 



*****Q1 ********** 

* SET UP WRITE * 

* AND VERIFY * 

* CCWS WITH * 

* LENGTH * 

* INFORMATION * 
***************** 



*****Hl ********** 

* CALCULATE * 

* SPACE NEEDED * 

* ON THE * 

* TRACK * 

* * 
***************** 



*****jl********** 

* GET REMAINING * 

* TRACK * 

* CAPACITY * 

* FROM »REMCAP« * 

* * 
***************** 



*****q 3 ********** 

* GET CURRENT * 

* TRACK NUMBER * 

* AND CALCULATE * 

* LAST TRACK * 

* NUMBER * 
***************** 



YES .* LAST 

....*. TRACK 

*. FILLED 



****F2**##****# 

* ERRRTN * 

* CHART NC * 

* *G2 * 
*************** 



*G2 
•1L10D LABEL 
AREA EXHAUSTED" 



*****F 3 ********** 

* ADD 1 TO * 

* TRACK NUMBER * 

* AND STORE * 

* IN WHHADD * 

* * 
***************** 



*****G3********** 

* RESET RECORD * 

* NUMBER * 

* TO ZERO * 

* * 
***************** 



*****H3********** 

* * 

* RESET TRACK * 

* CAPACITY * 

* TO MAXIMUM * 

* * 
***************** 



**** 

* * 

* 2 * 



***************** 



*****Q4* ********* 

* * 
*■ SET UP SEEK * 

* ADDRESS IN * 

* ShHADD * 

* * 
***************** 



* ADO 256 TO * 

* THE WRITE * 

* RECORD * 

* NUMBER * 

***************** 



*****F4****** 

* SET UP 

* WRITE 

* (SYSRES) 

* ■ CCB 

************* 



************* 
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Chart QA. $$BATTNM - Move Last Block Routine 
Refer to Chart 14. 



*PY-D3 
PZ-G4 
***** 



NOLBPR X 

*****B1********** 

* MOVE THE * 

* PROGRAM NAME * 
♦INTO THE FIRST * 

* 8 BYTES OF * 

* FG AREA * 
***************** 



*****C1 ********** 

* MOVE THE * 
♦STORAGE PROTECT* 

* KEY INTO THE * 

* PSW SAVE * 

* AREA * 
***************** 



*****D1 ********** 

* SET THE * 

* REGISTER SAVE * 

* AREA TO * 

* ZERO * 

* * 
***************** 



*****£!********** 

* PUT THE ADDR * 
*OF THE CORRECT * 

* FG PIB INTO * 

* WRKRG1 * 



* 1 * 

* * 
**** 


* 2 * 

* * 

**** 


X 
*****B3 ********** 

*PUT ADDRESS OF * 

* LABEL * 

* INFORMATION * 

* INTO WRKRG4 * 

* * 
***************** 


X 

*****B 4*** ******* 

* CALCULATE * 

* LOAD ADDRESS * 

* FOR * 
♦SELF-RELOCATING* 

* PROGRAM *B5 * 
***************** 



*B5 
LOAD ADDRESS EQUALS 
ADDRESS OF THE LABEL 
STORAGE AREA PLUS 
THE LENGTH OF THE 
LABEL AREA. 



****** 



******* 



*****C3********** 

* PUT THE * 

* LENGTH OF * 
*THE LABEL AREA * 

* INTO WRKRG2 * 

* * 
***************** 



.* WAS *. 
NO .* LARGER *. 
..*AREA SPECIFIED. 
*.IN LBLTYP.* 



*****£ 3********** 

* REPLACE * 

* LENGTH IN * 

* WRKRG1 WITH * 

* VALUE FROM * 

* LBLTYP * 
***************** 



YES .*IS A SELF- *. 

...*. RELOCATING . 

*. PROGRAM .* 



***** 04* ********* 

* SET LOAD * 

* ADDRESS IN * 

* REGISTER * 

* *D5 * 

* * 
***************** 



*****E4********** 

* PUT THE ADDR * 

* OF THE LABEL * 

* AREA MINUS 1 * 

* IN P0INT1 * 

* *E5 * 
***************** 



*****FL******* 

* SET PIB * 

* ASSIGN FLAG 

* TO INHIBIT 

* SYSRES 

* WRITE * 
************** 



*****Gl********** 

* CALCULATE * 

* THE AMOUNT * 
*0F MAIN STORAGE* 

* ALLOCATED * 

* *G2 * 
***************** 



*****Hl ********** 

* CALCULATE * 

* THE HIGH * 



*G2 
MAIN STORAGE ALLOCATED 
EQUALS THE NUMBER OF 2K 
BLOCKS SPECIFIED IN THE 
PIB MULTIPLIED BY 2048 
TO CONVERT BLOCKS TO BYTES. 



*H2 
HIGH MAIN STORAGE ADDRESS 
EQUALS PROGRAM ORIGIN 
ADDRESS PLUS THE NUMBER 
OF BYTES MINUS ONE. 



*****F3********** 


*****P4******* 


*SAVE LABEL AREA* 


* 


RELOCATE 


* LENGTH FOR * 


* 


THE LAST 


* LIOCS, ALIGN * 


* 


TWO 


* TO DOUBLEWORD * 


* 


ROUTINES 


* BOUDARY * 


* 


*F5 


***************** 


************** 






X 

***** 






*QB * 


X 




* Bl* 


*****G3********** 




* * 


* PUT THE * 






* ADDRESS OF * 




MVCLRT 


* THE LABEL * 






* STORAGE AREA * 






* IN P0INT2 * 






***************** 







*D5 
THE LOAD ADDRESS WAS 
EXTRACTED FROM THE 
CORE IMAGE LIBRARY 
DIRECTORY PREVIOUSLY. 



*E5 
THIS IS AN INITIALIZATION 
STEP FOR A MAIN STORAGE 
CLEAR ROUTINE THAT 
FOLLOWS. 



*F5 
THE LAST TWO ROUTINES OF 
$$BATTNM ARE MOVED OUT 
OF THE FOREGROUND AREA 
INTO THE LOGICAL 
TRANSIENT AREA TO 
PROVIDE SPACE FOR THE 
FOREGROUND PROGRAM 
TO BE EXECUTED. 



NO .* FLOATING 



* MAIN blUKAbt * 

* ADDR FOR THIS * 








...*. KU1NI .* 
*. .* 


* PROGRAM *H2 * 








*. .* 


***************** 


*J2 






*. .* 
*YES 




PROVIDES 


SPACE 


FOR 






FLOATING 


POINT 






X 


REGISTERS IN FG 


SAVE 


X 


***** j i ********** 


AREA. 






*****J3********** 


* SAVE HIGH * 








* ADD 32 TO * 


* MAIN STORAGE * 








* LABEL STORAGE * 


* ADDRESS IN * 








* AREA ADDRESS * 


* RG2SVA * 








* *J2 * 


* * 








* * 


***************** 








***************** 

'. xl 


X 


X 


**** 








**** 


* * 








* * 


* 1 * 








* 2 * 


* * 








* * 


**** 








**** 
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Chart QB. $$BATTNM - Move Subroutine and Initialize For FG Program Load Routine 
Refer to Chart 14, 



***** 

*QA * 
* F4* 



MVCLRT X 

*****Bi ********** 
*MOVRTN QB* 
*_*-*_*-.*..*..*_*_* 

* MOVE ZEROS * 
*INTO THE LABEL * 

* STORAGE AREA * 
***************** 



*****£!********** 

* SET UP * 

* REGISTERS FOR * 

* MAIN STORAGE * 
*CLEAR OPERATION* 

* *C2 * 
***************** 



*****01 ********** 

♦MOVRTN QB* 
*_*-.*_*-*_*_*_*_* 

* CLEAR * 

* REMAINING * 

* MAIN STORAGE * 
***************** 



*****E1 ********** 

* LOAD REGISTER * 

* 1 WITH THE * 

* VALUE IN THE * 

* BASE REGISTER * 

* *D2 * 
***************** 



*****F1 ********** 

* SAVE REGISTER * 

* AND 1 * 

* VALUES IN THE * 

* REGISTER SAVE * 
♦AREA *F2* 
***************** 



*****Gi********** 

* STORE THE * 

* ADDRESS OF * 

* THE SVC 4 * 

* IN THE PSW * 

* *H2 * 
***************** 



****H1 ********* 

* SVC 11 * 
♦RELEASE CONTROL* 

* * 
*************** 



****A5****^^* 

* * 

* MOVRTN * 

* * 
*************** 



*****B5********** 

* PUT THE VALUE ♦ 

* 255 INTO * 

* WRKRG3 * 

* FOR EXECUTE * 

* INSTRUCTION * 
***************** 



♦C2 
•FROM' AND «TO« ADDRESSES, 
LENGTH TO BE CLEARED, AND 
FIRST BYTE TO BE CLEARED. 



♦D2 
REGISTER ONE CONTAINS 
THE ADDRESS OF THE NAME 
OF THE FOREGROUND PRO- 
GRAM TO BE LOADED. 
REGISTER CONTAINS THE 
LOAD ADDRESS AS DETER- 
MINED BY THE LINKAGE 
EDITOR PROGRAM OR AS 
ESTABLISHED FOR A 
SELF-RELOCATING PROGRAM. 
BOTH REGISTER VALUES ARE 
STORED IN THE FG PROGRAM 
SAVE AREA. 



♦ D3 
REMAINING LENGTH IS 
CALCULATED BY ADDING 
THE CONTENTS OF WRKRG3, 
255, TO THE NEGATIVE 
VALUE IN WRKRG2. 



FINISH 

*****Q4********** 

* GET * 

* REMAINING * 

* LENGTH *X 

* *D3 * 

* * 
***************** 



* SUBTRACT * 

* 256 FROM * 

* LENGTH * 

* * 
***************** 



POSSIBLE 
PARTIAL 
. BLOCK 



*F2 
THE REGISTER SAVE AREA 
CAN BE CONSIDERED AS 
BEING IN TWO PARTS. 
PART 1 CONTAINS REGS 9-0. 
PART 2 CONTAINS REGS 1-8. 
THE SAVE OPERATION PUTS 
REG VALUES IN THE CORRECT 
SAVE AREA. 



*****F4********** 

* MOVE ZEROS * 

* INTO THE * 

* REMAINING * 

* BYTES ♦ 

* * 
***************** 



*****£ 5********** 

* * 

* MOVE * 

* ZEROS INTO ♦ 

* 256 BYTES ♦ 

* * 
***************** 



*****P5********** 

* ADD 256 * 

* TO ADDRESSES * 

* IN P0INT1 * 
♦AND P0INT2 *G5* 

* * 
***************** 



****G4********* 

* RET TO ADDR * 

* IN LNK REG * 

* * 
*************** 



*H2 
THE PSW IN THE FG SAVE AREA IS ASSEMBLED WITH THE SYSTEM MASK, KEY, 
AMWP, AND INTERRUPTION CODE FIELDS CONTAINING VALUES. THIS LOGICAL 
TRANSIENT PUTS THE ADDRESS OF A SVC 4 INTO THE INSTRUCTION ADDRESS 
FIELD. WHEN A SVC 11 IS ISSUED THE LOGICAL TRANSIENT RELEASES ALL 
CONTROL. THE FOREGROUND PIB IS ATTACHED, INDICATING AVAILABILITY 
FOR TASK SELECTION. WHEN A FOREGROUND TASK IS SELECTED, THE PSW 
IN THE FOREGROUND SAVE AREA BECOMES THE CURRENT PSW. THE SEQUENCE 
OF EVENTS THAT FOLLOWS IS 

1. EXECUTE THE SVC 4 TO LOAD THE FOREGROUND PROGRAM, NftMED IN 
REGISTER 1, INTO THE FOREGROUND AREA, STARTING AT THE ADDRESS 
SPECIFIED IN REGISTER 0. 

2. EXECUTE A BRANCH TO THE FOREGROUND ENTRY ADDRESS AS SUPPLIED 
IN REGISTER ONE BY THE SVC 4. 

3. EXECUTE THE FOREGROUND PROGRAM. 



*G5 
P0INT1 CONTAINS THE MOVE 
FROM ADDRESS. P0INT2 
CONTAINS THE MOVE TO 
ADDRESS. 
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Chart QC. $$BATTNM - UCS Statement Processor 
Refer to Chart 14. 



****Ai********* 

* ♦ 

* UCS * 

*************** 



.♦ IS ♦ . Y 
*. ASSIGNMENT .♦. 
*. IGN .* 



♦A4 
L0DCCW2-SET TO NONFOLD OPCODE 

-HEX FB-. 
L0DCCW2+4-SET CHAIN FLAG TO 
CHAIN WRITE CCW 
-HEX 60-. 
L0DCCH3-SET ALLOW DATA 
CHAIN OPCODE 
-HEX 7B- 



*#***A5********** 

* MODIFY UCS * 

* LOAD CCWS * 

* *A4 * 

* * 
***************** 



♦RELOCATE CCW'S * 

* AND SET -NOPSW-* 

* TO NOP * 

* * 
***************** 



B2 ♦ . 

* * 
VALID 

DEVICE 
TYPE 

♦ . *D3 .♦ 

*. .♦ 
♦YES 



****&3********* 

* ERRRTN * 

* CHART NC * 

* *C3 * 
*************** 



■ UCSDN 

******Q^*********** 

SVC4 

* LOAD THE UCS * 

PHASE FROM X. 

* CI LIB * 

*F3 

************* 



DID BLANK 
END LAST 

. SCAN 



*****£\********** 

♦SCANR2 ND* 
*_*_♦_*_*_*-*-*-* 

* POINT TO 1ST * 

* OPERAND * 

* -SYSXXX- * 
***************** 



*****Q2********** 

* MOVE CLASS * 

* AND ORDER * 

* TO CCB * 

* -WRKCCB- * 

* * 
***************** 



♦C3 
•1A20D INVALID 
DEVICE TYPE'. 



******Q^*********** 

EXCPRG NC 

**-*-*_*-*_*-*_** 

EXECUTE I/O 

♦AS SPECIFIED ♦ 

IN WRKCCB 

************* 



*****£$********** 

♦SCANR3 ND^ 
*-*-*-*^*-*-*-*-* 

♦ POINT TO ♦ 

♦ NEXT OPERAND ♦ 

♦ *E3 ♦ 
***************** 



COMMA 
♦. END THE 
♦.SCAN .♦ 
♦ . .♦ 
♦YES 



*****02********** 
♦SCANR3 ND+ 

♦ POINT TO 2ND ♦ 

♦ OPERAND ♦ 

♦ -PHASE NAME- ♦ 
***************** 



♦D3 
DEVICE MUST BE A 1403 
WITH UCS FEATURES. 
-DEVICE TYPE CODE HEX 42- 



****Q4********* 

♦ CONTROL ♦ 

♦ CHART NB ♦ 

♦ * 
*************** 



D5 ♦. 

.♦ DID ♦ 

BLANK 

OR COMMA 

END 
♦.SCAN .* 
♦ . .♦ 
♦YES 



*****£l********** 

♦CNUNCO QD^ 

♦GET UNIT CLASS ♦ 

♦ AND ORDER ♦ 

* *K3 ♦ 
***************** 



.♦. 

E2 ♦. 

.♦ DID ♦ 

A BLANK 

OR COMMA 

END 
♦.SCAN .♦ 



♦ . 



♦ YES 



♦ E3 
THIS OPERAND MAY BE 
FOLD, BLOCK, NULMSG. 



****£*+********* 

♦ NVSERR ♦ 

♦ CHART NC ♦ 

♦ * 
*************** 



.♦ LENGTH ♦. 

EQUALS 

♦.4 CHARS. .♦ 

♦ . .♦ 



*****?l********** 

♦ LOAD FICL ♦ 

♦ TABLE ADDRESS ♦ 

♦ AND KEY ♦ 

♦ IN REGISTERS ♦ 

♦ * 
***************** 



♦ OPERAND ♦ 

1-9 CHAR IN 
♦. LENGTH .♦ 



♦F3 
THE PHASE IS LOADED INTO 
THE BUFFER LABELED LODBUF. 



LENGTH 

EQUALS 

.5 CHARS. 



SYSTEM 

CLASS 

♦K3 



***** 
*QD ♦ 
♦ H4^ 



*****Q2********** 

♦SET PHASE NAME ♦ 

♦ SAVE AREA AND ♦ 

♦ BUFFER TO ♦ 
♦BLANKS SAVE PHS^ 
♦NAME IN LODNAM ♦ 
***************** 



LENGTH 

EQUALS 

.6 CHARS. 



*****£$******* 

♦ MODIFY ♦ 

♦ L0DCCW2 TO 

♦ FOLD -OPCODE 

♦ EQUAL 

♦ HEX F3- * 
************** 



*****H1 ********** 

* LOAD LUB ♦ 
♦POINTER FOR 1ST^ 

♦ BG PROG UNIT ♦ 

♦ IN WRKRG1 ♦ 

* * 
***************** 



*****H2********** 

♦ SET 3RD BYTE ♦ 

♦ OF BUFFER, ♦ 

♦ LODNAM+10, TO ♦ 

♦ HEX FF. ♦ 

♦ * 
***************** 



**** 

* * 

* 4 * 



*****Hti******* 

♦ MODIFY ♦ 

♦ L0DCCW3 TO 

♦ INHIBIT DATA 

♦ CHECKS. 

♦ -HEX 73- ♦ 
************** 



UCS1 X 

*****J\********** 

♦ COMPUTE LUB ♦ 

♦ TABLE ♦ 

♦ DISPLACEMENT ♦ 
♦TO DESIRED UNIT+ 

♦ WITHIN CLASS. ♦ 
***************** 



*****J2********** 

♦ SVC 23 - LOAD ♦ 

♦ THE UCS PHASE ♦ 

♦ HEADER INTO ♦ 

♦ BUFFER. ♦ 

♦ -LODNAM+8- ♦ 
***************** 



*****J3******* 
♦REMOVE CHAIN ♦ 

♦ BIT FROM 

♦ L0DCCW2 TO 

♦ PROHIBIT 

♦ WRITE ♦ 
************** 



*****Kl********** 

♦CHKASG QD^ 
»-*-*_♦-*-*_*_*_# 

♦GET LUB AND PUB* 

♦ ADDRESSES AND ♦ 

♦ CHK ASSGN ♦ 
***************** 



1. THE SUBROUTINE CNUNCO RETURNS 
THE UNIT CLASS IN THE LOCATION 
UNCLOR, BYTE 0. . 

EQUALS SYSTEM 

1 EQUALS BG 
NO 2 EQUALS FG1 
. ... 3 EQUALS FG2 

. 2. UNCLOR, BYTE 1, CONTAINS 

THE UNIT ORDER -PUB POINTER-. 

X 
***** 
*PY * 
* B4*PNPERR 
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Chart QD. $$BATTNM - UCS Subroutines 
Refer to Chart 14. 



****A1 ********* 

* * 

* CNUNCO * 

* * 
*************** 



.* FIRST *. 
* THREE *. NO 

CHARACTERS .*... 
*. SYS .* 



PRGUNT 

*****E }********** 

*SET UP POINTER * 
*AND LENGTH FOR * 

* CONVERSION * 

* TO BINARY * 

* * 
***************** 



*****Fi ********** 
*NUMCON PN* 
*_*-.*_*_*_*_*_*_* 

* CONVERT * 

* XXX TO * 

* BINARY * 
***************** 



*****Gi********** 

* * 

* INSERT * 

* UNIT ORDER * 

* IN »UNCLOR' * 

* * 
***************** 



*****Hi********** 

* * 

* CALCULATE * 

* CLASS * 

* FROM KEY * 

* *J2 * 
***************** 



*****jl********** 

* GET * 

* CORRESPONDING * 

* NICL ENTRY * 

* IN WRKRG1 * 

* * 
***************** 



D2 *. 
* * 

SYSLST 

*. .* 
*. .* 
*YES 



*****E2 ********** 

* INSERT * 

* UNIT ORDER * 

* X'03» IN * 

* 'UNCLOR' + 1 * 

* * 
***************** 



*****F2********** 

* SET UNIT * 

* CLASS TO '0« * 

* FOR SYSTEM * 

* CLASS * 

* * 
***************** 



****D3********* 

* NVSERR * 

* CHART NC * 

* * 
*************** 



****A4********* 

* * 

* CHKASG * 

* * 
*************** 



*****B4********** 

* CALCULATE * 

* LUB ADDRESS * 

* FOR THIS UNIT * 

* IN WRKRG3 * 

* *B5 * 
***************** 



C4 *. 
.* IS *. 
NO .* LOGICAL *. 
,..*.UNIT ASSIGNED.* 
*. *C5 .* 



*****D4********** 

* CALCULATE * 

* PUB ADDRESS * 

* FOR THIS UNIT * 

* IN WRKRG4 * 

* *D5 * 
***************** 



*B5 
LUB TABLE 
ADDRESS PLUS 
DISPLACEMENT 
FOR THIS UNIT. 



*C5 
IN BYTE OF THE 
LUB, X'FE«=IGNORE 
AND X'FF«=UNASSIGNED. 
IN EITHER CASE, THE 
CONDITION CODE IS 
SET TO 1. 



*D5 
PUB POINTER X 8 
EQUALS DISPLACEMENT. 
PUB TABLE ADDRESS 
PLUS DISPLACEMENT 
EQUALS PUB ADDRESS 
FOR THIS UNIT. 



****E4********* 

* RETURN TO * 

* ADDRESS IN * 

* LINK REGISTER * 
*************** 



*****G3********** 

* SET UNIT * 

* CLASS TO »1« * 
*FOR PROGRAMMER * 

* CLASS * 

* * 
***************** 



***** 

*QC * 

* Gl* 

* * 



****H3 ********* 

* RETURN TO * 

* ADDRESS IN * 

* LINK REGISTER * 
*************** 



****H4********* 

* ERRRTN * 

* CHART NC * 

* *J4 * 
*************** 



*J2 . 
CLASS EQUALS 
4 MINUS KEY 
DIVIDED BY 16. 



*J4 
•1A40D INVALID 
LOGICAL UNIT 
SPECIFICATION'. 
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Chart QE. $$BATTNN - TIMER Statement Processor 
Refer to Chart 12. 



****A1*#******# 

* * 

* $$BATTNN * 

* * 
*************** 



****A2********* 

* * 

* TIMER * 

* * 
*************** 



*****B1 ********** 

* PUT THE ADDR * 
*0F THE INTERVAL* 

* TIMER OPTION * 

* TABLE INTO * 

* WRKRG4 * 
***************** 



* INTERVAL 

TIMER 
*. SUPPORTED. 



* 1 * 






* 3 * 


* * 




* * 


**** 




**** 


* 






xl 


X 








.*. 








B3 *. 






X 








****B4***** 


.* OPERAND * 


NO 




* NVSERR 


*. IS F2 


*. .. 




* CHART NC 


*. .* 




* 


*. .* 




*********** 


*. .* 






*YES 






**** 






* * 






* 2 *... 






* * 






**** X 






CHKOWN .*. 






C3 *. 












.** PROGRAM ** 


YES 




*. ALREADY HAS 


*. . . . 




*. TIMER .* 






*. .* 






*. .* 
*N0 


X 

**** 





* SET OPERAND * 

* OF TIMER * 

* STATEMENTS * 
***************** 



****Q2 ********* 

* ERRRTN * 

* CHART NC * 

* *E2 * 
*************** 



*****Fi ********** 

* PUT BG * 

* KEY INTO * 

* P0INT4 * 

* * 
***************** 



*****H1 ********** 

* * 

* PUT Fl * 

* KEY INTO * 

* P0INT4 * 

* * 
***************** 



*****£ 3********** 

* * 

* PUT CURRENT * 

* KEY VALUE * 

* IN P0INT1 * 

* * 
***************** 



.* ATTENTION 

*. ROUTINE IN 

*. CONTROL . 



*****G 3*** ******* 

* PUT THE * 

* DISPLACEMENT * 

* VALUE FOR THE * 

* ATTENTION PIB * 

* IN POINT1 * 
***************** 



*****H3 ********** 


*****H4* ****** 


*TIMLNK QE* 


* PUT KEY OF 


*_*_*_*_*_*-*_*_* 


* PROGRAM 


* GET CONTROL * 


* SPECIFIED BY 


* OF TIMER * 


* THE OPERAND 


* * 


* INTO P0INT1 



*****j 3 ********** 

* ZERO REGISTER * 

* AND SET * 

* THE MAXIMUM * 

* TIME INTERVAL * 

* IN REGISTER 1 * 
***************** 



******** 



*****j4********** 

*TIMLNK QE* 
*_*_*_*_*_*_*_*_* 

* GIVE TIMER * 

* CONTROL TO * 
♦SPECIFIED PROG * 
***************** 



*/\5********* 

TIMLNK * 
************ 



*****B5********** 

* SET REGISTER * 
*ZERO TO DISABLE* 

* INTERRUPTS ON * 

* SEIZE * 

* OPERATION * 
***************** 



*****C5******* 

* SVC 22 

* SEIZE THE 

* SYSTEM 

* * 
************** 



*****05********** 

* PUT THE KEY * 
*OF THE PROGRAM * 

* THAT NOW HAS * 

* IT SUPPORT * 

* INTO ITKEY * 
***************** 



*****E5******** 
•* CALCULATE 

* ADDRESS OF 

* NEW ENTRY 

* IN THE IT 

* OPTION TABLE 
*************** 



*****F5**#****** 

* STORE IT IN 

* THE 
COMMUNICATIONS 

* REGION 

**************** 



*****G5********* 

* SET REGISTER 
*ZERO TO ENABLE 

* INTERRUPTS 

* ON RELEASE 



*H5****** 
SVC 22 
RELEASE 

THE 
SYSTEM 



****J5** ******* 
RET TO ADDR * 
IM LNK REG * 

*************** 



**** 
* 
2 * 
* 

**** 



*****K1 ********** 

* * 

* PUT F2 * 

* KEY INTO * 

* P0INT4 * 

* * 
***************** 



*****K3 ********** 

* * 

* SVC 10 * 

* SET TIMER * 

* INTERVAL * 

* * 
***************** 



****K4******** 

* CONTROL 

* CHART NB 
* 

************** 
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Chart QF. $$BATTNO - EXTENT Statement Processor 
Refer to Chart 14. 



(Part 1 of 3) 



****A1********* 






* * 






* EXTNT * 






* * 






*************** 




**** 

* * 

* 1 * 

* * 
**** 


X 




X 


*** 4c *B ].***** ***** 




*****B2********** 


* LOAD ADDRESS * 




* SET DEFAULT * 


* OF FILE * 




* VALUES IN * 


* INFORMATION * 




* EXTENT * 


* WITHIN LABEL * 




* STORAGE AREA * 


* AREA * 




* *B5 ♦ 


***************** 




***************** 


X 
.*. 




X 


CI *. 




*****C2********** 


.♦EXTENT *. 




*FSCAN1 QJ+ 


.* STATEMENT *. NO 


*-*_*-.*_*-*_*_*_* 


*. IN SEQUENCE .*. 




♦ GET SYSXXX ♦ 


*. .* 




* OPERAND * 


*. .* 




* * 


*. .* 


X 


***************** 


♦YES 


***** 
*QG * 
* K3 + 

* * 
* 






OTSERR 


X 


X 




.*. 


*****qi********** 




D2 *. 


* LOAD ADDRESS * 




.* *. 


* OF LABEL * 




.* OMITTED *. 


* AREA * 




*. . OPERAND .* 



**** 

* * 

* 2 * 

* * 
**** 



FEVSER X 

*****B3********** 
*FSCAN QJ* 
*_*_*_*_*_*_*_*-.* 

* GET VOL * 

* SERIAL * 

* OPERAND * 
***************** 



FETYPE X 

*****B4********** 

* SET DEFAULT * 

* VALUE FOR * 

* EXTENT TYPE * 

* TO «1» ♦ 

* * 
***************** 



*****C4********** 

♦FSCAN QJ* 
*_*_*_*_*_*_*_*_* 

* GET EXTENT * 

* TYPE * 

* OPERAND * 
***************** 



*B5 
SERIAL NO. = 6 
TYPE = I 
SEQUENCE = 1 
LOWER LIMIT = 
UPPER LIMIT = 
SYMBOLIC UNIT 
OLD CELL = 
NEW CELL = 



***************** 



*****Ei ********** 

* LOAD ADDRESS ♦ 

♦ OF CORRECT ♦ 

♦ PIB ENTRY ♦ 
♦(PIBADD + KEY) ♦ 

* * 
***************** 



*****PL********** 

♦ CALCULATE * 

♦ AMOUNT OF ♦ 

♦ MAIN STORAGE ♦ 

♦ ALLOCATED ♦ 

♦ *K2 ♦ 
***************** 



*****G1********** 

* CALCULATE * 
*THE FOREGROUND * 

* UPPER LIMIT * 

* ADDRESS * 

* *K3 * 
***************** 



HI *. 

.* SPACE *. 

.* AVAILABLE * 

*. WITHIN FG 

*. AREA .* 

♦ . .* 

*. .* 

*NO 



****J1********* 

* ERRRTN * 

* CHART NC ♦ 

* *K1 * 
*************** 



FEVSER2 X 

*****Q3********** 

♦FETINSR1 PM* 
*_*-.*_*-*_*-.*_*_* 

* PROCESS * 

* SERIAL NUMBER * 

* OPERAND * 
***************** 



OPERAND 
LENGTH IN 
. G.T. 



FESYSX2 

*****E2********** 
♦CNUNCO PN* 
*_*_*-*_*_*-*_*_* 

* CONVERT * 

* XXX TO * 

* OPERAND * 
***************** 



.* IS *. YES 
. THIS FIRST .*.... 
*. EXTENT .* 
*. .* 



**** X 

FEVSER3 .*. 

F3 ♦. 

.♦ DID ♦. 

- YES .♦ FIRST *. 

.X....*EXTENT SPEC VOL* 

*. SERIAL .♦ 

♦. NO. .♦ 



G2 ♦. 
.♦ DID ♦. 
.♦ FIRST *. NO 
♦EXTENT SPECIFY.*. .X 
*. UNIT .* 



*****P4********** 

* MOVE VOL * 

* SERIAL NUMBER ♦ 

* TO OUTPUT ♦ 

* BLOCK ♦ 

* * 
***************** 



05 *. 

.* *. 

* OMITTED * 

OPERAND 



*****E5********** 

♦NUMCON PN* 
*_*-*_*_*_*-*_*_* 

* CONVERT TYPE * 

* TO BINARY * 

* * 
***************** 



*****P5********** 

* STORE * 

* TYPE * 

* IN OUTPUT * 

* BLOCK * 

* * 
***************** 



***** 
*QJ * 
* F5* 



FEVSER4 X 

*****G3********** 

* SET VOL * 
♦SERIAL DEFAULT ♦ 

* VALUE FOR * 

* NEXT EXTENT ♦ 

* * 
***************** 



X 

***** 
*QG * 
* Bl* 



FESYSX3 

*****H2********** 
♦MOVE UNIT CLASS* 

* AND ORDER TO * 

* OUTPUT BLOCK * 
♦AND NEXT EXTENTS 

* DEFAULT VALUE ♦ 
***************** 



♦ IS 

THIS FIRST 
♦. EXTENT . 



*****H4********** 

♦ MOVE VOL * 

♦ SERIAL NUMBER ♦ 
.X* TO OUTPUT * 

♦ BLOCK ♦ 
.* * 

***************** 



* 3 * 

* * 
**** 



*K1 
•1L10D LABEL 
AREA EXHAUSTED' 



*K2 
EXTRACT THE 
NUMBER OF 2K 
BLOCKS 

ALLOCATED FROM 
THE PIB AND 
MULTIPLY BY 
2048 TO GET 
NUMBER OF BYTES 
ALLOCATED. 



*K3 
EXTRACT THE 
ADDRESS OF 
THE PROGRAM 
ORIGIN FROM 
THE PIB. ADD 
NUMBER OF BYTES 
ALLOCATED TO 
THIS PROGRAM. 
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Chart QG. $$BATTNO - EXTENT Statement Processor (Part 2 of 3) 
Refer to Chart 14. 



***** 

*QF * 
*.F5* 



FILE *. NO 
TYPE IS .*... 
SD .* 



♦ B4 
INSTRUCTION 
•FESPLIT4', 
WHICH ALSO 
HAS LABEL 
■FESPLIT3S 
ON CHART QH. 



CI *. 

*. 


FETYPEO .*. 

C2 ♦ . 

.* 


TYPE *. 

EQUALS .* 

1 .* 


.* FILE 

*. TYPE IS 

*. DA 



*B5 
THIS CONDITION CODE 
WAS SET IN THE FETKTK 
SUBROUTINE JUST BEFORE 
RETURNING TO THIS 
POINT (LINK REG. + 4) 
WHICH IS THE RETURN 
POINT IF OPERAND IS 
NOT OMITTED. 



***** 
*QJ * 
* H5* 



**** 

* * 

* 3 * 



* PROCESS * 
♦EXTENT SEQUENCE* 

* OPERAND * 
***************** 



*****£: 1 ********** 

* MOVE 128 * 

* INTO OUTPUT * 

* BLOCK AT * 

* XTTYPE *K1 * 

* * 
***************** 



..X. 



**** 

* * 

* 2 * 

* * 
**** 



FETYPE1 X 

*****F1 ********** 
*FESEQ QJ* 
*_*_*_*_*_*_*_*_* 

* PROCESS * 
*EXTENT SEQUENCE* 

* OPERAND * 
***************** 



.* FILE * 

TYPE 

IS I.S. 

.EXPANDED 



*****F2********** 
*FESEQ QJ* 
*_*_*_*_*_*_*_*_* 

* GET EXTENT * 

* SEQUENCE * 

* NUMBER * 
***************** 



*****F 3 ******* 

♦FESEQ 

*_*_*_*_*_*_*_ 

* GET EXTENT 

* SEQUENCE . 

* NUMBER 
************** 



.*. 


FETK X 


E3 *. 


*****E4******* 


.* FILE *. 


* MODIFY 


TYPE *. 


* INSTRUCTION 


IS I.S. .* 


* FOR EXTENTS 


.EXPANDED .* 


* OMITTED 



************** 



*****F4* ********* 
*FETKTK QK* 
*_*_*-*_*-*-*-*_* 
*GET AND CONVERT* 
♦RELATIVE START * 
* TRACK OPERAND * 
***************** 



***E5**** 

MODIFY 

INSTRUCT 

FOR EXTE 

NOT OMIT 

*B4 

********* 



ION 
NTS 
TED 



FETKNO X 

*****F5********** 
♦FETKTK QK* 
*_*_*_*_*_*_*_*_* 

♦GET AND CONVERT^ 
♦ NUMBER OF ♦ 
♦TRACKS OPERAND * 



****** 



**** 



SEQUENCE 
NUMBER IS 
. OR 1 . 



NO .♦ SEQUENCE 
...♦. NUMBER IS 
♦. OR I . 



.♦ START ♦. 

♦ TRACK 
G.T. 19600 

♦ . *B5 



H5 ♦. 
.♦ HIGH *. 
* TRACK 
G.T. 19600 



**** 

* * 

* 1 * 



***** 
*QJ * 
* F5* 



***** 
*QF * 
* CI* 



*****J4********** 

♦ MOVE START ♦ 

♦ TRACK TO ♦ 

♦ OUTPUT BLOCK ♦ 

♦ AT XTLL ♦ 

♦ * 
***************** 



*****J5********** 

* MOVE HIGH * 

* TRACK TO * 

* OUTPUT BLOCK * 

* AT XTLL+2 * 

* * 
***************** 



* 1 * 

* * 
**** 



*K1 
LIOCS RECOGNIZES 
128 FOR TYPE 8. 



*K2 
'1S10D STATEMENT 
OUT OF SEQUENCE'. 



****«3 ********* 

♦ ERRRTN ♦ 

♦ CHART NC ♦ 

♦ *K2 * 
*************** 
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Chart QH. $$BATTNO - EXTENT Statement Processor (Part 3 of 3) 
Refer to Chart 14. 



***** 

*QG * 
* J5* 



FETKN01 X 

*****Bl********** 

* TEST FOR * 

* START TRACK * 

* AND TRACK * 

* NUMBER * 

* * 

***************** 



* BLANK *. NO 

ENDED LAST .*... 
*. SCAN .* 



*****B3********** 
*SCANR3 ND* 
*_*_*_*-*_*_*_*_* 

.X* GET B= * 

* PARAMETER * 

* * 
***************** 



*****B4******* 

* RESET * 

* MTAFLG BITS * 
*FOR LOOK-AHEAD * 

* AND NO-EXTENT* 

* DEQUEUE * 
************** 



OUTLBL X 

*****B5******* 

* SET FLAG * 

* MTRSVD 

* SAME AS 

* MTAFLG 

* * 
************** 



C3 *. 






*****C4********** 






*****C5********** 


.* *. 






* LOAD P0INT4 * 






*LBLOUT PR* 


.* EQUAL *. NO 




* WITH ADDRESS * 






*_*_*„*_*,.*_*_*_* 


*. SIGN ENDED .* 






* OF PREVIOUS * 






* OUTPUT * 


*. SCAN .* 






* EXTENT * 






* PREVIOUS * 


*. .* 






* * 






* EXTENT * 


*. .* 


X 




***************** 






***************** 


*YES 


*** 
* 


* 












* 4 


* 




**** 






* 


* 




* 


* 






**** 




* 6 * 










X 


* 


* 




X 






.*. 


**** 


X 


*****D3 ********** 






D4 *. 






*****05********** 


*FEBIN1 QJ* 






.* *. 






* RESET DATA * 


*-*_*_*_*_*_*..*-* 






.* FIRST *. NO 




* LENGTH * 


* PROCESS * 






*. EXTENT .*. 


.X 




* 'DTALGT' * 


* B= BINS * 






*. .* 






* TO 84 * 


* OPERAND * 






*. .* 






* * 


***************** 






*. .* 






***************** 



***** 

*QJ * 
* H5* 



FESPLIT 

*****£!********** 

*FSCAN QJ* 
*_*_*_*_*_ *_*^-*_* 

* GET SPLIT * 

* CYLINDER * 

* OPERAND * 
***************** 



*E2 
THIS INSTRUCTION WAS 
MODIFIED FOR EXTENTS 
OMITTED OR NOT OMITTED. 
SEE CHART QG. 



FESPLIT4 X 

*****E3******* 

* RESET * 

* MTAFLG * 
♦FLAG BYTE WITH * 

* MODIFIED * 
♦OPERAND *E2 * 
************** 



F3 *. 
.* FIRST *. 
NO .* EXTENT 
,..*. LIMITS 

• *. OMITTED . 



*****G3********** 

* * 

* CLEAR EXTENT * 

* LIMITS FOR * 

* THIS EXTENT * 

* * 
***************** 



NO .* SYMBOLIC 
...*. UNITS ARE 
*. EQUAL . 
*. *K5 .* 
X *. .* 

**** *YES 

* * 

* 5 * 

* * 
**** 



F4 *. 

.* BIN *. 

NUMBERS 

ARE EQUAL 

*K5 



*****£ 5********** 

* REPLACE * 

* PREVIOUS * 

* EXTENT WITH * 

* NEW EXTENT * 

* * 
***************** 



.* VOL *. 
.♦SERIAL NOS.*. 
. ARE EQUAL . 
*. *K5 .* 



*****Hi ********** 
*NUMCON QK* 
*_*-*_*_*_*_*_*_* 
* CONVERT * 



.X* 



*****J2********** 

* STORE SPLIT * 

* CYLINDER * 
START TRACK * 

* NUMBER IN * 

* OUTPUT BLOCK * 
***************** 



YES .* 

.. .*. 
* 


FILE * 
TYPE IS 
SD .* 
*. .* 


* 


X 

**** 
* 
2 * 

* 


*. .* 
*NO 










**** 








XTUNIT ) 
*****J3* 

* ADD 

* EXTENT 

* IN L 

* SAVE 


( 
********* 

L TO * 
COUNT * 

\BEL * 
AREA * 



NODCUX 

*****H4* ****** 

* TURN ON BIT* 

* IN MTAFLG * 

* FOR NO-EXTENT 

* DEQUEUE * 

* * 
************** 



* 5 *.. 



**** 
PACKCG X 

*****j4******* 

* TURN ON BIT* 

* IN MTAFLG * 

* FOR LIOCS 

* LOOK-AHEAD * 



********** 



********* 



*** 



**** 

* * 

* 4 * 

* * 
**** 



NEWXTN 

*****F5********** 

* INCREASE * 

* P0INT4 TO * 

* NEXT EXTENT * 

* AND STORE * 

* IN LBLPTR * 
***************** 



*****G5********** 

* ADD 20 TO * 

* THE DATA * 

* LENGTH IN * 

* 'DTALGT' * 

* * 
***************** 



*****H5******* 

* SET JBCSW5 * 

* FOR BLOCK 

* PRESENT AND 

* EXTENT 

* PROCESSED * 
************** 



****J5********* 

* CONTROL * 

* CHART NB * 

* * 
*************** 



***** 
*QJ * 
* F5* 
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Chart QJ. $$BATTNO - EXTENT Processor Subroutines 
Refer to Chart 14, 



****A1 ********* 

* * 

* FSCAN1 * 

* * 

*************** 



****A2********* 

* * 

* FSCAN * 

* * 
*************** 



****A3********* 

* * 

* FESEQ * 

* * 
*************** 



**** 

* * 

* 1 * 



* BLANK *. YES 

ENDED LAST .*.... 
*. SCAN .* 



*****B3********** 
*FSCAN QJ* 
*_*_*-*_*-*_*_*_* 

* GET EXTENT * 

* SEQUENCE * 

* OPERAND * 
***************** 



****C1********* 

* FEBIN1 * 

* * 
*************** 



FSCAN1 X 

*****C2********** 
*SCANR2 ND* 
*_*_*-.*_*_*_*_*_* 

* GET * 

* OPERAND * 

* * 
***************** 



.* 'EXTENT' *. 

BEING 

*. PROCESSED.* 



NO .* OPERAND *. 
X..*. FOR BINS 

♦.SPECIFIED.* 



.YES .* EQUAL 
....*. SIGN ENDED 
*. SCAN 



*****£ 2********** 

* SET CONDITION * 

* CODE TO * 

* INDICATE * 

* OPERAND IS * 

* PRESENT * 
***************** 



*****D3********** 

*FETKTK2 QK* 
*_*_*_*_*_*_*_*_* 

* TEST VALIDITY * 

* OF OPERAND * 

* OMISSION * 
***************** 



**** 

* * 

* 2 * 

* * 
**** 



OPERAND *. YES 
LENGTH .*.... 
G.T. 3 .* 



*QF-G2 
QG-H4 
QH-J1 
QK-H3 
QL-H3 



*****F1 ********** 
*SCANR3 ND* 
*_*,.*_*_*_*_*_*_* 

* GET BIN * 

* OPERAND * 

* * 
***************** 



****F2********* 

* RETURN TO * 

* ADDRESS IN * 

* LINK REGISTER * 
*************** 



*****F 3 ********** 

* INCREASE * 

* PREVIOUS * 

* EXTENT * 

* SEQUENCE * 

* NUMBER BY 1 * 
***************** 



*****F4********** 
*NUMCON QK* 
*_*_*_*_*_*_*_*_* 

* CONVERT * 

* TO BINARY * 

* * 
***************** 



****F5********* 

* NVSERR * 

* CHART NC * 

* * 
*************** 



NO .* BLANK 
.X..*. ENDED 
*. SCAN 



.* SEQUENCE 

*. NUMBER 

*.G.T. 255 



*QG-C4 
QH-D1 
QK-F3 
***** 



*****H2 ********** 
*CHKRNG1 PL* 
*_*-*-*_*_*_*_*_* 
X* CHECK * 

* DECIMAL * 

* DIGITS * 
***************** 



*****H4********** 

* MOVE EXTENT * 

* SEQUENCE * 

* NUMBER TO * 

* OUTPUT BLOCK * 

* * 
***************** 



****H5******** 

* ERRRTN 

* CHART NC 

* *J5 
************** 



.* OPERAND *. NO 
*. LENGTH .*... 
*. G.T. 2 .* 



*****J2********** 

* MOVE BIN * 

* NUMBERS * 

* TO OUTPUT * 

* BLOCK * 

* * 
***************** 



****j4* ******** 

* RETURN TO * 

* ADDRESS IN * 

* LINK REGISTER * 
*************** 



....X. 
X 
**** 

* * 

* 2 * 

* * 
**** 
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Chart QK. $$BATTNO - Process Track Operands 
Refer to Chart 14. 



****B2********* 

* * 

* FETKTK * 

* * 
************** * 



*****C2 ********** 
*FSCAN QJ* 
*_*_*_*_*_*_*..*_* 

* GET * 

* OPERAND * 

* * 

***************** 



OPERAND *. YES 
LENGTH .*.... 
G.T.5 .* 



*****F2 ********** 
*NUMCON QK* 
*-.*_*..*_*_*_*_*_* 

* CONVERT * 

* TO BINARY * 

* * 
***************** 



OPERAND 
POSITIVE 
. VALUE 



*****H2********** 

* * 

* ADD START * 

* TRACK VALUE * 

* TO OPERAND * 

* * 
***************** 



****J2********* 

* RETURN TO * 

* LINK REG. + 4 * 

* * 
*************** 



****B4********* 

* * 

* NUMCON * 

* * 
*************** 



*****C4** ******** 

*CHKRNGl PL* 
*-*_*_*_*_*_*_*_* 

* CHECK ALL * 
♦CHARACTERS FOR * 

* VALID LIMITS * 
***************** 



*****04********** 

* PACK TO * 
*PACKED DECIMAL * 

* FORMAT AND * 

* CONVERT TO * 

* BINARY * 
***************** 



****E4********* 

* RETURN TO * 

* ADDRESS IN * 

* LINK REGISTER * 
*************** 



* OPERAND 

OMITTED ON 

*. FIRST . 

*EXTENT.* 



*****G3********** 

* LOAD RETURN * 

* ADDRESS FROM * 

* LINKR3 TO * 

* LINKR1 * 

* * 
***************** 



****G4********* 

* FETKTK2 * 

* * 
*************** 



YES .* FILE 
...*.TYPE IS S 
*. LOAD 



***** 
*QJ * 
* F5* 



****J3********* 

* RETURN TO * 

* ADDRESS IN * 
*LINK REG. *J4 * 

*************** 



*J4 

.IF RETURN WAS KEACHED 
VIA FETKTK1, RETURN 
IS TO THE ROUTINE THAT 
CALLED FETKTK. 
IF ENTRY WAS MADE AT 
FETKTK2, RETURN IS 
TO THE FESEQ ROUTINE. 
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Chart QL. $$BATTNO - LBLTYP Statement Processor 
Refer to Chart 14. 



****B2********* 

* * 

* LBLTYP * 

*************** 



LBLTYP X 

*****C2********** 
♦SCANR2 ND* 
*-.*-*_*..*_*_*-*_* 

* POINT TO * 

* OPERAND * 

* *C3 * 
***************** 



*C3 
TAPE (NN) 
NSD (NN) 



BLANK 
ENDED 
SCAN 



*****E2********** 

* SET LENGTH * 

* OF PARTITION * 

* LABEL AREA * 

* TO 80 . * 

* (ASSUME TAPE) * 
***************** 



*.*_*_*_*_#_*_*_* 



***************** 



*****P4********** 

* CALCULATE * 

* LENGTH OF * 

* PARTITION * 

* LABEL AREA * 

* *F5 * 
***************** 



*****G2********** 

* SET EXTENT * 

* AREA BYTE * 

* COUNT TO 20 * 

* (ASSUME NSD) * 

* * 
***************** 



*****G3********** 

* SET POINTER * 

* AND LENGTH * 
.X*FOR CONVERSION * 

* TO BINARY * 

* *G5 * 
***************** 



.* LAST 


*. 


YES 


♦.CHARACTER 


IS . 


*.... 


*. PAREN. 


.* 




*. 


* 




*. .* 




X 


*N0 




**** 
* 


X. 




* 1 


X 


* 


***** 




**** 



* STORE LENGTH * 

* OF PROGRAM * 

* LABEL AREA * 

* * 
***************** 



****H4********* 

* CONTROL * 

* CHART NB * 

* * 
*************** 
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Chart QM. $$BATTNP - READ Statement Processor 
Refer to Chart 14. 



* * 

* READ * 

* * 
*************** 



*****B2********** 
♦SYSRFG NX* 
*_*_*->.*_*-*-*_*_* 

* GET LUB * 

* AND PUB * 

* POINTERS * 
***************** 



*****C2********** 
*SCANR2 ND* 
*-*_*_*-*_*_*_*_* 

* GET FIRST * 

* OPERAND * 

* * 
***************** 



BLANK 
ENDED 
SCAN 



****03********* 

* NVSERR * 

* CHART NC * 

* * 
*************** 



*****E 2 ********** 
♦TXCUU NY* 
*_*_*_*_*_*_*..*_* 

♦VALIDITY CHECK * 

* AND CONVERT * 

* CHAN AND UNIT * 
***************** 



* VALID * 

DEVICE TYPE 
*. *F5 .* 



CHKOWN .*. 

F3 *. 

.♦DEVICE *.. 

.* WAS *. NO 

...X*. ASSIGNED TO .*... 

*. ANOTHER .* 

♦.AREA .* 

*. .* 

♦YES 



.X^ 



*****F4********** 
♦UNPA NZ^ 

■_*^*_*_*_*_*_* 

UNASSIGN ♦ 
PREVIOUS ♦ 
♦ ASSIGNMENT * 
***************** 



*F5 
VALID TYPES ARE CARD 
READER, READER/PUNCH, 
AND 1052 KEYBOARD 
PRINTER WITH 1056 
CARD READER. 



****G2^^*+^* 

♦ ERRRTN 

♦ CHART NC 

♦ *H2 
*************** 



****G3********* 

* ERRRTN * 

* CHART NC * 

* *H3 * 
*************** 



*****G4********** 

* * 

* CALCULATE . * 

* PUB ENTRY ♦ 

* *G5 ♦ 

* * 
***************** 



♦G5 
SYSTEM LUB INDEX (FICL) 
FROM 2ND PART OF 
COMMUNICATIONS REGION, 
MULTIPLIED BY 2, 
ADDED TO START OF 
LUB TABLE (LUBADD). 



*H2 
•1A20D INVALID 
DEVICE TYPE". 



♦H3 
1A10D CONFLICTING 
I/O ASSIGNMENT.' 



*****H4** ******** 

♦ * 

♦ TURN ON ♦ 

♦ OWNERSHIP ♦ 

♦ FLAG IN PUB ♦ 

♦ * 
***************** 



*****J4******* 

* SET BITS IN* 

* FLGBYO FOR * 

* SYSRDR INPUT 

* AND FOR READ * 

* ISSUED ^J5* 
************** 



*J5 
THE SWITCHES SET AT 
THIS TIME ARE TESTED 
BY THE ROOT PHASE 
$$BATTNA TO ESTABLISH 
INPUT DEVICE TYPE. 



****K4********* 
CONTROL ♦ 
CHART NB ♦ 
* 
*************** 



P T" ^> T» C "1 OT"»4- C 



Chart QN„ $$BATTNP - HOLD or RELSE Statement Processor 
Refer to' Chart 14, 



****A1********* 

* * 

* HOLD * 

* * 
*************** 



*#**A2********* 

* * 

* RELSE * 

* ♦ 

*************** 



**** 

* * 

* * 
**** 



ASGCHG X 

*****Bi********** 
♦GETKEY PD» 
*_*-*_*.,#-*_*_*..* 

* GET KEY OF * 

* FIRST * 

* OPERAND * 
***************** 



STATEMENT 

TYPE 

*H3 



*****B4******* 

* TURN ON * 

* HOLD/RELEASE 
X# SW IN PIB 

* ASSIGN 

* FLAG * 
************** 



*****Cl********** 

* GET THE * 

* APPROPRIATE * 

* PIB ADDRESS * 

* USING THE * 

* KEY * 
***************** 



*****C3******* 

* TURN OFF * 

* HOLD/RELEASE ■ 

* SW IN PIB 

* ASSIGN 

* FLAG * 
************** 



Dl *. 

.* *. 

SCAN * 

DELIMITED 

. BY A .* 

♦.BLANK.* 

*. .* 

*NO 



*****D3********** 

* RESET POINT2 * 

* WITH PIB ADDR * 

* OF THE FIRST * 
*AREA SPECIFIED * 

* BY FIRST OPND * 
***************** 



*****E1 ********** 

* * 

* SAVE ADDRESS * 

* OF THE PIB * 

* IN POINT4 * 

***************** 



STATEMENT 
. TYPE 
*. *H3 .* 



*****E4******* 

* TURN ON * 

* HOLD/RELEASE 
X* SW IN PIB 

* ASSIGN 

* FLAG * 
************** 



*****PX********** 
♦GETKEY PD* 
*_*-*_*_*-.*.*_*_* 

* GET KEY OF * 

* SECOND * 

* OPERAND * 
***************** 



*****P3******* 

* TURN OFF ♦ 

* HOLD/RELEASE 

* SW IN PIB 

* ASSIGN 

* FLAG * 
************** 



*****Gl********** 

* GET THE * 

* APPROPRIATE * 

* PIB ADDRESS * 

* USING THE * 

* KEY * 
***************** 



****G3 ********* 

* CONTROL * 

* CHART NB * 

* * 
*************** 



HI *. 
.* *. 
NO .* SCAN *. 
...♦. DELIMITED .* 
*. BY A .♦ 
♦.BLANK.* 
♦ . .♦ 
♦YES 



♦H3 
THIS IS A LOGICAL DECI- 
SION RATHER THAN A CODED 
DECISION. THIS ROUTINE 
USES A BAL INSTRUCTION TO 
ACCESS THE CODING START- 
ING AT LABEL ASGCHG. WHEN 
THE HOLD/RELEASE SWITCH 
SETTING IS CHANGED, IT IS 
ACCOMPLISHED BY EXECUTING 
THE INSTRUCTION WHOSE 
ADDRESS IS IN THE LINK 
REGISTER. THEREFORE, THE 
ENTRY POINT TO THE HOLD 
PROCESSOR (BAL TO ASGCHG) 
IS FOLLOWED BY AN IN- 
STRUCTION TO TURN ON THE 
HOLD/RELEASE SWITCH. THE 
SWITCH SETTING INSTRUCTION 
ADDRESS IS NOW IN THE LINK 
REGISTER. THE SAME TECH- 
NIQUE IS USED BY THE 
RELEASE PROCESSOR. 



* 1 * 

* * 
**** 



****K1 ********* 

* NVSERR * 

* CHART NB * 

*************** 
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Chart RA. $$BEOJ - Terminated Program I/O Handling 
Refer to Chart 15. 









A2 *. 


A3 


*. 




*****A4********** 


****A1 ********* 




.* TIMER *. 


. * * . 




♦LOGLIST RC* 


* * 




NO .* SUPPORTED *. 


YES .* BG *. 




*_*_*-*_*_*_*-.*_* 


* $$BEOJ * 




..*. BY INTRPTED .* 


...*. EOJ STEP .* 




* WRITE * 


* * 






*. PROG .* 


*. .* 




* MESSAGE * 


*************** 






*. .* 
*. .* 
♦YES 


*. .* 
X *. .* 
***** *nq 
*RB * . **** 




* * 
***************** 










* E3* 


* * 














* * 


X.* RB * 














* 


* B4* 














EOJSTEP 


**** 






IJ8EJ22 X 






X 








X 


*****BL********** 






, *****Q2********** 








*****B4********** 


* LOAD * 






, * * 








* * 


* AODRESS * 






. * DIVIDE * 








* SET UP ERROR * 


* OF COMM * 






. * LTK BY 2 * 








* MESSAGE * 


* RGN INTO * 






. * * 








* 0S081I * 


* REG 11 * 






, * * 








* * 


***************** 






, ***************** 


**'** 

* * 

* 8 *.X 

* * 






***************** 

* **** 

* * 
...* RC * 

* H3* 


X 








**** 






X **** 


.*. 






X 


ARCANCEL X 




.*. 


CI *. 






*****C2********** 


*****C3********** 




C4 *. 


.* DTF»S *. 






. *ENT2 RB* 


* LOAD REG 1 * 




.♦CANCEL *. 


.* FOR MICR *. YES 




, *_*-*-*_*_*_*_*_* 


* WITH THE * 


YES .* CODE BE- *. 


*. SUPPORT .*. 






. * ZERO INTERVAL * 


* ADDR OF PHASE * 




.*. TWEEN X«20« .* 


*. EXIST .* 






* TIMER ENTRY * 


* NAME $$BTERM * 




♦.AND X'22«.* 


*. .* 






. * * 


* * 




♦. *H4 .♦ 


*. .* 


X 




, ***************** 


***************** 


X 


*. .♦ 


*NO 


**** 






***** *nq 




* 


* 


'. x! 






*RB 


* 




* 3 


* 






* Bl* 




* 


* 






* * 






**** 






* 














CNCLTEST 


X 




POTEST X 








X 


*****D1 ********** 




*****D2********** 


X 




*****Q4********** 


* LOAD ADDRESS * 




* * 


****D3********* 




* * 


* OF PIB * 




* LOAD ADDR * 


* SVC 2 * 




♦ SET UP TO * 


* TABLE INTO * 




* OF PC TBL * 


* $$BTERM * 




* FETCH * 


* REG 10 * 




* INTO R13 * 


* CHART RE * 




* $$BEOJl * 


* * 






* * 


*************** 




* * 



MICRDEV X 

*****A5********** 

* GET ADDRESS * 

* OF MICR ♦ 

* DTF TABLE * 

* INTO REG 10 * 

* * 
***************** 



*****B5********** 

♦ SET UP 6 IN * 

♦ LOOP COUNTER * 

♦ REG 7 FOR NO. * 

♦ OF ENTRIES IN * 
♦MICR DTF TABLE ♦ 
***************** 



***************** 



*****£! ********** 

♦ ADD LTK VALUE ♦ 
♦TO PIB TBL ADDR* 
♦TO POINT TO PIB* 
♦OF INTERRUPTED ♦ 

* PROGRAM * 
***************** 



*****FL ********** 
♦RESET WRITE ON ♦ 
♦SYSRES BIT AND ♦ 
♦CHAN APPENDAGE ♦ 

♦ BIT IN ASSIGN ♦ 

♦ FLAG OF PIB ♦ 
***************** 



Gl ♦. 

.♦ IS ♦. 

NO .♦ QTAM ♦. 

,..♦. MSG CTRL .* 

*. TERM .* 

*. .* 



*YES 



*****Hl******* 



***************** 



*****E2********** 
*ENT1 RB* 

*_*_*_*_*_*_*,.*_* 

♦ZERO THE OPTION* 

♦ TABLE ENTRY ♦ 

* * 
***************** 



♦LOAD ADDRESS OF* 
♦OC OPTION TABLED 

♦ INTO R13 ♦ 

* * 
***************** 



*****G2********** 
*ENT1 RB* 

*_*_*_*_*_*_*_*_* 

* ZERO THE * 

* OPTION TABLE * 

* ENTRY * 
***************** 



***************** 



****E4********* 

* SVC 2 FETCH * 

* $$BE0J1 ♦ 

* CHART RJ ♦ 
*************** 



UNNORM .♦. 

F3 ♦. 

.♦ IS ♦. 

.♦TERMINATION*. 

♦BEING CANCELED. 

♦ . .♦ 

♦ . .* 



*****G3******* 

♦ SET PIB ♦ 

♦ ASSIGN FLG ♦ 

♦ TO INDICATE 

♦ CANCEL PROG ♦ 

♦ TO PROGRESS* 
************** 



MICR 
DEVICE IN 

USE 
♦ . .♦ 



*****05********** 

♦ ZERO THE * 

♦ ADDRESS IN ♦ 

♦ THE DTF * 

♦ TABLE ENTRY * 

♦ * 
***************** 



MICR1 X 

*****£ 5********** 

♦ INCREMENT * 

♦ TO NEXT ♦ 

♦ ENTRY IN * 

♦ THE DTF * 

♦ TABLE ♦ 
***************** 



ALL 
DTF'S 
ZEROED 



***** 

♦RB ♦SUPPRIO 

* B3* 



*G4 
REFER TO IBM SYSTEM/360 
DOS AUTOTEST PLM 
Y24-5027. 



♦ SET QTAM 


* 


YES .* AUTOTEST 


♦ FIELD TO ZERO 


* 


...*. PROGRAM IN 


* 


* 


♦.PROGRESS 


* - * 




♦ . .* 


************** 




X ♦. .♦ 
**** *N0 

* * 

* 7 ♦ 

* * 


X*. 




**** 


MARK X 


X 

INTERR .*. 


*****jl********** 


J2 *. 


* 


* 


.* * 


* LOAD ADDRESS 


* 


NO .* NORMAL 


* OF IT TABLE 


* 


...*. EOJ 


♦ INTO R13 


* 


*. 



.*. 






♦HA 


H3 *. 






DETERMINES THE CAUSE 


* WAS ♦, 






OF THE CANCEL. IF 


LOGICAL 


* 


NO 


THE CODE IS OUTSIDE 


TRANSIENT 




*... . 


THE RANGE SPECIFIED, 


EXECUTING, 


* 




CANCEL CODE ANALYSIS 


♦ . .* 






CONTINUES IN $$BE0J1 


*. .* 




X 




♦YES 




***** 

♦ RB ♦ 

♦ Bl* 
* * 

* 
CNCLTEST 





***************** 



*****J3******* 

♦ RESET BIT ♦ 

♦ IN CNCL CODE ♦ 
♦THAT INDICATED 

♦ LOGICAL TRAN ♦ 

♦ EXECUTING ♦ 
************** 







.* ♦. 


****K4********* 


YES . 


* 


ATTENTION ♦. 


* SVC 2 


...♦. 




ROUTINE .♦ 


♦ $$BATST3 




* 


.CANCELED .♦ 


* *G4 






*. .♦ 


*************** 


X 




♦ . .♦ 




**** 




*Nr 




* * 








* 8 * 








* * 




X 




**** 




**** 

* * 

* 5 * 

* * 
**** 
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Chart RB. $$BEOJ - EOJ Processing Routine and $$BEOJ Subroutines 
Refer to Chart 15. 



*RA-B4 
RA-F3 
***** 



***** 
*RA * 
* F3* 



*A4 
TESTED BY 
SSBTERM 
PHASE. 



****A5********* 

* * 

* ENT1 * 

* * 

********** ***** 



* CANCEL * 

DUE TO PROG 
*. CHECK .* 



.* CANCEL *. 

*OUE TO ILLEGAL. 

*. SVC .* 



.* CANCEL *. N 
.DUE TO PHASE .*. 
*. NOT .* 
*. FOUND.* 



*****E i ********** 

* * 

* SET REG * 

* EQUAL TO * 

* ZERO * 

* # 
***************** 

**** l 

* * 

* 1 *... 

* * 
**** 



****Fl********* 

* SVC 2 * 

* $$BILSVC * 

* CHART RN * 
*************** 



****B2********* 

* SVC 2 * 

* $$BPCHK * 

* CHART RT * 
*************** 



* SET REG * 
.X* EQUAL TO * 

* ONE * 

* * 
***************** 

1 **** 

* * 
..X* 1 * 

* * 

**** 



****D2********* 

* SVC 2 * 

* $$BEOJ2 * 

* CHART RL * 
********** 



*. 



B3 *. 
.* PROG *. 

BEING *. NO 
TERMINATED .*... 
IS .* 
BG .* 

**YES 



*****C3******* 

* RESET * 

* CATAL AND 

* SUPERVISOR 

* UPDATE JOB 

* CONTROL SW * 
************** 



*****D3******* 

* SET * 

* CANCEL CODE * 

* BIT IN JOB * 

* CONTROL SW * 

* JCSWO * 
************** 

**** I 

* * . 
*RA *... 

* A3* 
**** 

EOJSTEP X 

*****(: 3********** 

* ZERO CANCEL * 

* CODE BYTE OF * 

* PIB AND RESET * 
*OPEN INDICATOR * 

* IN JCSWO * 
***************** 



*****B4* ****** 

* SET X'lO' * 

* IN PIB 
X* TO SHOW FG 

* CANCEL 

* *A4 * 



***** 
*RA * 
* C3* 



*****B 5 ********** 

* LOAD AND * 

* TEST REG 13 * 

* FOR ANY PC * 

* OR OC TABLE * 

* ENTRY * 
***************** 



****Q4********* 

* * 

* ENT2 * 

* * 
*************** 



*****F 4** ******** 

* SET REG 1 * 

* WITH ADDR OF * 

* BG SAVE AREA * 
*AND MOVE JCTPSW* 

* TO THAT AREA * 
***************** 



D5 *. 
.* PC *. 
.* OR OC *. NO 
.TABLE ENTRIES.*... 



ENT2 X 

*****£ 5 ********** 

* GET ENTRY IN * 

* TbL FOR PROG * 
^INVOLVED USING * 
*R10 PIB POINTER* 
*PLUS R15 *H5 * 
***************** 



ENT3 X 

*****F5**** ****** 

* ZERO ENTRY * 

* IN PC OR * 

* OC OPTION * 

* TABLE * 

. ***************** 



*****G3 ********** 
*MOVE SAVE AREA * 

* PNTR AND LOAD * 

* Rl TO SKIP * 

* REGISTER SAVE * 

* AREA * 
***************** 



****#G4** ******** 

* RESET PIB * 

* ASSIGN FLAG * 

* BIT THAT IN- * 
*DICATED CANCEL * 

* IN PROGRESS * 
***************** 



****G 5** ******* 

* RETURN TO * 

* ADDR IN LNK * 

* REGISTER * 
*************** 



EOJS1 X 

*****H3********** 

* PUT LOAD PT * 

* INTO RO * 

* AND JOB CNTRL * 

* NAME ADDR * 

* INTO REG 1 * 
***************** 



****H4********* 

* SVC 11 * 

* TASK * 

* SELECTION * 

*************** 



*H5 
R15 CONTAINS 
LTK DIVIDED 
BY 2. 



****** j 3*********** 

* SVC 4 * 

LOAD PHASE 

* *JOBCTLA * 

************* 



****** 3*** ******* 

* SET UP ENTRY * 

* POINT TO * 

* SJOBCTLA IN * 

* JCTPSW * 



***** 



****** 



**** 

* * 

* 2 * 

* * 
**** 
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Cha,rt RC. $$BEOJ - Message Output Subroutine 
Refer to Chart 15. 



* i * 

* * 
**** 



****A1********* 

* LOGLIST * 

* * 

*************** 



LOGLIST 

*****81 ********** 

* CLEAR OUTPUT * 
♦AREA TO BLANKS * 

* USE EXEC INST * 

* TO MOVE MSG * 
♦TO OUTPUT AREA ♦ 
***************** 



*****CL********** 
♦LD LUBTAB ADDR ♦ 
♦IN R4.LD OUTPUT^ 
♦AREA ADDR IN R5^ 
♦ST OUTPUT AREA ♦ 
♦ADDR IN CCWLG. ♦ 
***************** 



ONLIST 

NO .♦* 
. ..♦. 

♦ • 

X 

**** 

* * 

* 3 ♦ 

* * 
*♦** 

NOFG 



.♦. 

A2 ♦. 

♦ I/O ♦ 

DEVICE 

A TAPE 

DRIVE 



*****B2 ********** 

♦ RELOCATE ♦ 

♦ ADDR IN CCW ♦ 

♦ AND CCW- ♦ 

♦ ADDR IN ♦ 

♦ CCB ♦ 
***************** 



*****C2*****++*** 
♦PUT RC+ 

*_*-*-*_*_*_*_*-* 

♦ SENSE TAPE ♦ 

♦ DR FOR FILE ♦ 
♦PROT CONDITION ♦ 
***************** 



D2 ♦. 
.♦ IS ♦. 
YES .♦ TAPE DR ♦. 
...♦FILE-PROTECTED.^ 



.♦ BATCH ♦. 
.♦ JOB ♦. NO 
. FOREGROUND .♦... 
♦. PARTITION. ♦ 



♦*** 

* * 

* l * 

* * 
**** 



El**'.. 

.♦ IS ♦ 

SYSLST 

ASSIGNED 



**** 
* 
* 2 



**** 

* * 

* 3 ♦ 



TPTYPE1 .*. 






E3 * 






♦ IS 




.♦ 


I/O 




♦ . 


DEVICE 


A 


* 


DISK 






♦ . 





♦ .. 



**** 

SETLOGUN X 

*****P1********** 

♦STORE UNIT ADDR+ 
♦ OF SYSLST OR ♦ 
♦SYSOOO IN CCB. ♦ 
♦PUT PUB PNTR IN^ 
♦R5 FROM LUBTAB ♦ 
***************** 



*****G1********** 
♦ MULT R5 BY 8 ♦ 
♦TO INDEX PUBTAB^ 
♦R6 POINTS AT IT* 
♦LD R6+R5 IN R4 ♦ 
♦FOR SYSLST PUB ♦ 
***************** 



*****H1********** 
♦GET SYSLST DEV ♦ 

♦ TYPE FROM PUB ♦ 

♦ MOVE TO FIELD ♦ 

♦ CALLED TYPE ♦ 

♦ * 
***************** 



*****H3********** 
♦PUT RC+ 

*-*..*-*_*_*_*_*_* 

♦ WRITE MSG ♦ 

♦ ON I/O DEVICE ♦ 

♦ * 
***************** 



**** 

* * 

* 5 * 

* * 
**** 



SYSLST OR ♦. NO 
SYSOOO A .♦... 
. PRINTER .♦ 



**** 

* * 

* 4 * 

* * 
**** 



****** 1 ********** 
♦ST OUTPUT AREA ♦ 

♦ ADDR IN CCWLS ♦ 

♦ LD CCWSKP ♦ 

♦ ADDR IN R5 ♦ 

♦ * 
***************** 



***** 
♦RA ♦ 
♦ C4^ 



*****H4********** 

♦ SET SEEK ADDR ♦ 

♦ IN CCW AND ♦ 

♦ SET COUNT FLO ♦ 

♦ (CCHHRKDD) IN ♦ 

♦ OUTPUT AREA ♦ 
***************** 



*****J4********** 
♦REDUCE RCD NO. ♦ 
♦BY 1, PUT ADDR ♦ 
♦IN SEARCH CCWS ♦ 
♦LD IN TIC CCWS ♦ 
♦ SRCH CCW ADDR ♦ 
***************** 



*****K4**** ****** 
♦ST ADDR OF DISK+ 
♦OUTPUT AREA IN ♦ 
♦WRITE CCW, LOAD+ 
♦ADDR OF 1ST CCW+ 
♦OF CHAIN IN R5 ♦ 
***************** 



****A5*+***^*+* 

* * 

* PUT * 

* * 
*************** 



*****B5********** 

♦ LOAD CCB * 

♦ ADDRESS ♦ 

♦ INTO ♦ 

♦ REG 1 * 

♦ * 
***************** 



SVCO X 

******C5*********** 

SVC 

* EXECUTE * 

CHANNEL 

♦ PROG ♦ 

************* 



.♦ I/O 
. OPERATION 
♦.COMPLETE . 



****E5********* 

♦ SVC 7 ♦ 

♦ WAIT ♦ 

♦ * 
*************** 



.♦. 


X 


DKTYPE X 




F2 ♦. 


*****F3 ********** 




*****P4********** 


X 


.♦ ♦. 


♦ RELOCATE TAPE ♦ 




♦LD ADDR OF DIB ♦ 


****P5********* 


NO .♦ IS ♦. 


♦ OUTPUT AREA ♦ 




♦IN R5. INDEX 72^ 


♦ RETURN TO 


...♦. SYSOOO .♦ 


♦ADDR INTO CCWTP* 




♦BYTES TO SYSLST* 


♦ ADDR IN LNK 


♦.ASSIGNED .♦ 


♦LD ADDR OF CCW ♦ 




♦DIB CMP CURRENT^ 


♦ REGISTER 


. ♦. .♦ 


♦ IN REG 5 ♦ 




♦ADDR TO END ADR+ 


******** ******* 


X ♦. .♦ 


***************** 




***************** 




*** *YES 










♦ 


**** * 




**** * 




5 ♦ 


* * 




* * 




♦ 
♦ ** 


♦ 6 ♦... 

* * 

*#** 




♦ 6 *... 

* * . 
**** X 




X 


RLCCB X 




.♦. 




*****G2********** 


*****G3********** 




G4 ♦. 




♦LOAD UNIT ADDR ♦ 


♦ STORE ADDR OF ♦ 




.♦ ♦. 




♦OF SYSOOO IN R5^ 


♦APPROPRIATE CCW^ 


YES .♦ SYSLST ♦. 




♦ADJUST REGS SO ♦ 


♦ IN RELATED. ♦ 




.♦.EXTENT FILLED. ♦ 




♦SYSOOO USED IN ♦ 


♦ CCB FROM ♦ 




♦ . .* 




♦ SETLOGUN RTN ♦ 


♦ REG 5 ♦ 




♦ . .♦ 




***************** 


***************** 


X 


♦ . .♦ 




. 




**** *no 




1 




♦ 5 


♦ '. 




X 




♦ 


* 




**** 
* * 




**** 





260 



DOS Supervisor and Physical and Logical Transients 



Chart RD. $$BE0J3 - Quiesce I/O Phase 
Refer to Chart 15, 



****A1********* 

* * 

* $$BE0J3 * 

* * 
*************** 



*****Bi******* 

* CALCULATE * 

* AND STORE 

* PROG KEY IN 

* LOCATION 

* CLI * 
************** 



*****B 2 ********** 

* SET UP CCB * 

* ADDR IN Rl * 

* ANO CCW * 

* ADDR IN THE * 

* CCB * 
***************** 



LASTPUB X 

*****B4********** 

* ADD 8 TO * 

* R4 SO THAT * 

* IT POINTS TO * 

* THE NEXT PUB * 

* ENTRY * 
***** 



* TELE 

PROCESSING 
♦.SUPPORTED. 



*****OL******* 

* STORE PUB * 

* ASSIGN FLG 

* OF PIB IN 

* LOCATION 

* TM * 
************** 



*****£ 1 ********** 

* SET UP REGS * 

* WITH LUB AND * 

* PUB TABLE * 

* ADDRESSES * 

* * 
***************** 



*****F1********** 

* SET R7 * 

* (NUMBERING * 

* REGISTER) * 

* TO MINUS 1 * 

* * 
***************** 



* 3 



**** 

ITERATE X 

*****G1 ********** 

* ADD 1 TO R7 * 

* -R7 IS USED * 

* TO NUMBER THE * 

* PUB ENTRIES * 

* SCANNED * 
***************** 



.* PUB *. 
.* BELONG TO *. NO 
. PROG BEING .*..> 
*. ENDED .* 



.* TELE- 
. PROCESSING 
*. DEVICE . 



.* TP *. 

DEVICE ON 

CHANNEL 

. QUEUE . 



* DEVICE 

IN DISABLE 
*. CLASS . 



******E2 *********** 

SVC 

* DISABLE * 

TP 

* DEVICE * 

************* 



HALTIO 

****** 03 ********* 
SVC 25 
* HALT I/O 
ON TP 
* DEVICE * 

************* 



* END * 

OF 
PUB TABLE 


* 
* 


NO 
.*.... 


*. .* 








*. .* 






X 


*YES 






**** 
* 
* 3 

* 
**** 


X 

*D4******** 


* 




UNASSIGN 
SYSRDR 




* 
* 





***************** 



****G2********* 

* SVC 7 * 

* WAIT * 

* * 
*************** 



*H3 
THESE BRANCHES 
FUNCTION AS WAIT 
LOOPS. THE WAIT 
CONTINUES UNTIL 
AN I/O DEVICE 
ASSOCIATED WITH 
THIS PROGRAM IS 
DEQUEUED. WHEN 
THE DEVICE HAS 
BEEN DEQUEUED, 
REQID FOR THAT 
DEVICE EQUALS 0. 



GARY 


X 






*****E4******** 






* 


CALC END 


* 




* 


PLUS 1 






* 


ADDR OF 


* 






REQID IN 


* 




* 


R12 


* 




***************** 




**** 








* 


* 








* 


4 *.. 








* 


* 








**** 






GO 




X 






*****P4**** ****** 




* 




* 




* 


DECREASE 


* 




* 


R12 BY 


* 




* 


ONE 


* 




* 








******** 


******* 


** 








X 








< 




CLI 


.*. 








G4 *. 








.* LTK *. 








* EQUAL * 


. YES* 




* 


REQID 

*. .* 

*. *H3 .* 

*. .* 

*N0 


.*.... 








X 






< 








.*. 








H4 *. 








.* *. 








* REQID * 


. yes! 




*1 


EQU 


\L 


.*.... 



.* ALL *. 

DEVICES *. NO 
DEQUEUED .*... 



*****J5********** 

* DECREASE * 

* COUNT CONTROL * 
X* REGISTER * 

* BY 1-R13 * 

* * 
***************** 



*****«! ********** 

* ASSIGN * 

* SYSRDR TO * 

* THIS DEVICE * 



***************** 



****K4****** : 

* SVC 2 

* $$BEOJ 

* CHART RA 

************: 
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Chart RE. $$BTERM - Reset Foreground PUB Ownership and Detach Attention Routine 
Refer to Chart 15. 



****A1********* 

* * 

* $$BTERM * 

* * 
*************** 



OUTAR X 

*****Bi ********** 

* LOCATE SAVE- * 

* AREA POINTER * 
♦FROM PIB-TABLE * 

* INTO R2 * 

* *A4 * 
***************** 



*****d********** 

* RELOCATE OUT * 

* AREA ADDRESS * 

* IN CCW * 

* ADDRESS * 

* AREA * 
***************** 



*****D1********** 

* LOAD R13 * 

* WITH ADDRESS * 

* OF UNASSIGN * 
♦RTN FOR BRANCH * 

* ON REGISTER * 
***************** 



*****Ei********** 

* LOAD LOGICAL * 

* TRANSIENT KEY * 

* INTO R8 AND * 

* MODIFY IT FOR * 
♦INDEXING ^F2^ 
***************** 



*****P1 ********** 

♦ LOAD ADDRESS ♦ 
♦OF LOG-ROUTINE ♦ 

♦ INTO R14 FOR ♦ 

♦ BRANCHING ON * 

♦ REGISTER ♦ 
***************** 



♦ A4 
RIO AND Rll ARE USED AS BASE REGISTERS 
FOR THE PIB-TABLE AND COMMUNICATICATION 
REGION RESPECTIVELY AND WERE SET BY 
A PREVIOUS PHASE AND SHOULD REMAIN 
UNCHANGED FOR THE NEXT PHASE. 



***** 
*RF * 
* A3^ 



DONE X 

*****B2********** 

* LOAD ADDRESS ♦ 

* OF PUB-TABLE ♦ 

♦ INTO R5 AND ♦ 
♦LENGTH OF PUB- ♦ 

♦ ENTRY INTO R6 ♦ 
***************** 



ENDPUB .♦. 

C2 ♦. 
.♦ ALL ♦. 
.♦ PUB'S *. YES 
♦. SCANNED .♦... 
♦ . .* 



*****D2********** 

* RESET PROPER * 
♦OWNERSHIP FLAGS+ 
♦IN ALL PUBS.GET^ 
♦NEXT ENTRY, AND ♦ 

♦ ADD R6 TO R5 ♦ 
***************** 



*****H1******* 

♦ MODIFY MASK* 

♦ TO RESET F2 ♦ 
♦OWNERSHIP FLAG 

♦ IN ALL PUB- ♦ 

♦ ENTRIES ^H2^ 
************** 



♦ F2 
THE LOGICAL TRANSIENT 
KEY IS SHIFTED RIGHT 
CAUSING A DIVISION BY 
16 TO OCCUR. 



♦ G2 
THE BINARY BIT 
CONFIGURATION IN 
LTK +1 IS COMPARED 
TO A BINARY 32. 



A 254 IS ANDED 
INTO THE IMMEDIATE 
DATA POSITION OF THE 
RESET OWNERSHIP 
INSTRUCTION MOD. 



**** 

* * 

* 1 * 

* * 

**** 



*****B3******* 

♦ OR INTO ♦ 

♦ PIBPUBAS ♦ 

♦ TERMINATOR 

♦ WORKING ♦ 

♦ INDICATORS ♦ 
************** 



C3 ♦. 
.♦NORMAL ♦. 
.♦ EOJ SET ♦. YES 
♦.CANCEL-CODE= ...... 

♦. X«00« .♦ 



♦ GET JOB-NAME * 
.X+FROM FOREGROUND^ 

♦ SAVE AREA ♦ 

♦ * 
***************** 



03 ♦. 


******04*********** 




.♦ IS ♦. 


LOG RH 




.♦ ATTENTION ♦. NO 


*-*_*-*_*^*_*_*_* 




♦. ROUTINE .♦... 


0S10I 




♦.CANCELED .♦ 


* PROGRAM ♦ 




♦ . .♦ 


COMPLETED 




♦ . .♦ 


************* 




♦YES 


x! 




X 


SETUP X 




*****E3******* 


*****E4********** 




* SET A X«07'+ 


♦ GET ADDRESS ♦ 




♦ IN DISPLACE- ♦ 


♦OF TAPE-ERROR- ♦ 




♦ MENT AREA OF ♦ 


♦ BLOCK TABLE, ♦ 




♦ PUB AS DETACH^ 


♦IF ANY, INTO R2* 




♦ MASK ♦ 


* * 




************** 


***************** 




* **** 






. * * 






...♦ 2 ♦ 






X. ♦ ♦ 






**** 


X 




PHYSEIZE X 


.♦. 




*****P3********** 


F4 *. 


*****P5********** 


♦ CLEAR RO ♦ 


.* ♦. 


♦TEB RG* 


♦ TO ZERO TO ♦ 


.* TEB *. YES 


*_*_*_*-*_*_*_*a.* 


♦ DISABLE I/O * 


*. OPTION .♦... 


X* LOG TEB- * 


* * 


♦ . .* 


♦ STATISTICS * 


* * 


*. .* 


* * 


***************** 


*. .* 
♦ NO 


***************** 

'. **** 
* * 




• 


...* RG * 
X. * El* 






X **** 


X 




UNASSGN .♦. 


******G3*********** 




G5 *. 
.♦SHOULD *. 


* SVC 22 * 




NO .♦ASSIGNMENTS^. 


SEIZE 




...♦. BE RESET .* 


* CONTROL * 




♦ . .* 
♦ . .* 


************* 




X *. .* 
**** *YES 

* * 

* 2 ♦ 

* ♦ X 
**** ***** 

*RF * 


MVI X 




* Bl* 


*****H3********** 




* * 


* MOVE * 




* 


♦ DETACH-MASK ♦ 






♦ INTO * 






♦ P IB-FLAG ♦ 






* *J2 * 






***************** 







Jl ♦. 

.♦ IS ♦. 
.♦FOREGROUND ♦. ON 
♦. CANCEL-SWITCH. ♦... 
♦. IN PIB .♦ 
♦. +K3 .♦ 
♦ . .* 
*OFF 



****** 1********** 

♦ .SUPPRESS I/O * 

♦ BY CHANGING ♦ 

♦ NOP INTO ♦ 

♦ BRANCH AT ♦ 

♦ LABEL LOG ♦ 
***************** 



♦ J2 
RELEASES THE 
CORE PARTITION 
USED BY THE 
TERMINATED 
PROGRAM. 



.X.. 
X 
**** 



*****J3******* 

♦ AND INTO ♦ 

♦ PIBPUBAS THE ♦ 

♦ BG AND FG END * 
*0F TERMINATION^ 

♦ SWITCHES ♦ 
************** 



♦K3 
THIS SWITCH IS IN THE 
PIBPUBAS-BYTE IN THE PIB 
ON INDICATES I/O CANCEL 
IN THE TERMINATOR. 
SUPPRESS ALL I/O FROM 
NOW ON TO AVOID A 
CANCEL-WITHIN-CANCEL 
LOOP IN THE SYSTEM. 
SET ON BY PHASE 
$$BEOJ. 



****** j4********* 

* SVC 22 
.X RELEASE 

♦ CONTROL ♦ 

************* 



****K4********* 
♦ SVC 11 ♦ 
♦RETURN TO TASK ♦ 
♦SELECT IN SUPVR+ 

*************** 
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Chart RF. $$BTERM - Reset JIBs for I/O Device of Terminated Program 
Refer to Chart 15, 



**** 

* •* 

* i * 

* * 
**** 



***** 

*RE * 
* G5* 



*****B1 ********** 
♦ZERO R5 AND R7 * 
*AND GET SYSTEM * 

* LUB INDEX FOR * 
*THIS PARTITION * 

* * 
***************** 



*****C1********** 

* CALCULATE LUB * 
♦TABLE ENTRY AND* 

* PUT SIZE OF * 

* TABLE TO BE * 
♦SCANNED INTO R7* 
***************** 



*****D1 ********** 
♦LOAD START ADDR* 
♦OF LUB TBL INTO* 
*R5 AND GET END * 
♦ADDR OF TBL BY ♦ 
♦ADDING R5 TO R7* 
***************** 



*****E1 ********** 

♦ SET TABLE ♦ 

♦ ENTRY LENGTH ♦ 

♦ IN R6 FOR ♦ 

♦ BRANCHING ♦ 

♦ ROUTINE ♦ 
***************** 





END 


* 


NO 




: SYSTEM 




♦ .. 






LUBS 


* 






* 


.♦ 
♦ . .♦ 
♦YES 




* 


X 

**** 




. 




* 


2 




X 




* 






***** 






«*** 




♦RE ♦ 










♦ B2^ 










* * 









**** 

* * 

* 4 * 

* * 
**** 



.*. ADDLST 

C4 *. *****C5********** 

.♦ *. ♦ LOAD POINTER ♦ 

.♦ LAST ♦. YES + TO FIRST ENTRY * 

.JIB ENTRY IN .♦ X*OF OLD FREELIST* 

♦. CHAIN .♦ ♦ INTO R8 FROM * 

♦. .* ♦ FAVP * 

*. .* ***************** 

♦ NO 



*D2 
AS THE LUB TABLE IS SCANNED 
BEGINNING WITH SYSRDR, A 
SERIES OF BRANCH INSTRUCTIONS 
AND CONDITION CODES ARE SET 
AND RESET TO PERMIT UNASSIGNING 
ALL LOGICAL UNITS EXCEPT SYSLOG 
AND SYSRES. 





) 


( 




***** 


* 


SET COUNTER 


* 


* 


IN R4 TO 


* 


* 


AVOID 


* 


* 


UNASSIGNING 


* 


* 


RES, LOG 


* 


** 


******j 


********* 






X 





**** 

* * 

* 3 * 

* * 
**** 



DEQUEUE X 

*****P3********** 

♦ ZERO R9, PICK * 
♦UP JIB POINTER ♦ 

♦ AND STORE *. 

♦ IT INTO ♦ 

♦ FRLSTBEG ♦ 
***************** 



*****D4********** 

♦ SAVE DATA ♦ 

♦ IN R9 BY ♦ 

♦ LOADING IT ♦ 

♦ INTO R2 ♦ 

♦ * 
***************** 



*****£ 4********** 

♦ ZERO R9, AND ♦ 

♦ SET UP NEW * 

♦ JIB POINTER ♦ 

♦ IN R9 ♦ 

♦ *F5 ♦ 
***************** 



X 

.*. 

GL ♦. 

.♦ *. 

SYSLOG 

LUB ENTRY 

*D2 



SYSRES 

LUB ENTRY 

*D2 



*****G2********** 

* * 

♦ ADD 2 TO ♦ 
X* BYPASS ♦. 

♦ SYSLOG ♦ 

* * 
***************** 



.X* 



*****H2*****^***^ 

* ADD 2 TO ♦ 
LUB TABLE ♦ 
ENTRY TO ♦ 

* BYPASS ♦ 

* SYSRES ♦ 
***************** 



CHAIN 

*****G4********** 

* ACCESS THE ♦ 

* JIB ENTRY AND * 

* ZERO OUT THE * 

* JIBS FIRST ♦ 

* THREE BYTES * 
***************** 



*****05********** 

♦ PUT DEQUEUED * 

♦ JIBS ON THE * 

♦ FREELIST * 

♦ *G5 * 

♦ * 
***************** 



**** 

* * 

* 5 * 

* * 
**** 



*F5 
THIS IS SET UP FROM 
PREVIOUS JIB ENTRIES 
4TH BYTE. 



*G5 
THIS IS THE JIB POINTER 
TO THE OLD FREELIST. 
STORE BYTE POINTED TO BY 
FAVP INTO 4TH BYTE OF 
LAST JIB ENTRY DEQUEUED 
AND REPLACE THE BYTE 
WITH CONTENTS OF 
FRLSTBEG. 



.♦ ANY ♦ 


. YES 


♦. JIBS 


.♦ 




♦ . .♦ 






♦ . .* 






♦ . .♦ 




X 


♦ NO 




**** 


**** 




* t 


♦ ♦ . 




♦ 3 


♦ 5 ♦... 




* 


* ♦ . 




**** 


**** 






DEQUEUED X 






*****K1********** 




* 


* 




♦ UNASSIGN 


* 




♦ THE LOGICAL 


* 




♦ UNIT 


* 





***************** 
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Chart RG. $$BTERM - Get TEB Statistics and Reset TEBs 
Refer to Chart 15. 



****A1********* 

* * 

* TEB * 

* * 
*************** 



TEB X 

*****B1********** 

* LOAD BASE * 

* ADDRESS OF * 

* PUB-TABLE * 

* IN R12 * 

* * 
***************** 



*****d ********** 

* SET LENGTH * 

* OF HEADER * 

* MESSAGE INTO * 

* BYTE COUNT * 

* FIELD OF CCW * 
***************** 



*****0 i ********** 

* LOAD LENGTH * 

* OF PUB-ENTRY * 

* INTO R9 FOR * 
♦INCREMENTATION * 

* * 
***************** 



**** 

* * 

* 4 * 

* * 
**** 



**** 

* * 

* 1 * 
.* * 

**** 



CONTSCAN .*. 




El *. 




.* END *. 




.* OF * 


YES 


*. PUB-TABLE 


*. . . . 


*. RL2=256 .* 




*. .* 




*. .* 


X 


*NO 


***** 




*RE * 






* G5* 






* * 






* 






UNASSGN 



G2 *. 
.* PUB *. 
.♦BELONGS TO 
.FOREGROUND 2 
*. JOB 
*. .* 
*. .* 



.* PUB *. 
.♦BELONGS TO * 
*. FOREGROUND 1 
*. JOB .* 



* GET * 

* DEVICE * 

* TYPE * 

* * 
***************** 



J2 * 
* 

TAPE 



*****G 3*** ******* 

* MULTIPLY TEB- * 

* ENTRY POINTER * 

* FROM PUB BY 6 * 

* ENTER PRODUCT * 

* INTO R7 * 
***************** 



*****H3********** 

* ADD R2 AND * 

* R7 TO ACCESS * 

* TEB-ENTRY * 

* ADDRESS * 

* *K3 * 
***************** 



*****C4******* 

* RESET * 

* HEADER SWITCH* 

* TO X'FO 1 FOR * 

* BRANCH AT * 

* LABEL NOP * 
************** 



****** 04* ********** 

LOG KH 

*_*_*_*_*_*_*_*-* 

PRINT 1ST 
* HEADER * 

************* 



*****£ 4* ********* 

* * 

* SET UP * 

* SECOND * 

* HEADER * 

* * 
***************** 



******P4*********** 

LOG RH 

*_*_*_*_*_*-*,*_* 

PRINT 2ND 
* HEADER .* 

************* 



SKIPHDR 

*****G4********** 

* CLEAR HEADER * 
*1 TO ALL BLANKS* 

* AND MAKE * 

* CHANNEL AND * 
*UNIT PRINTABLE * 
***************** 



*****H4* ********* 

* SET LOOP * 

* COUNT BY * 

* LOADING Rl * 

* WITH A 5 * 

* * 
***************** 



***** j 4* ********* 

* LOAD POINTER * 

* TO SECOND * 

* BYTE IN * 

* TEB-ENTRY * 

* INTO R3 * 
***************** 



*****B5********** 

* LOAD ADDRESS * 

* OF NEXT * 

* BYTE IN OUT * 

* AREA INTO R4. * 

* ZERO R5 * 
***************** 

**** * 

* * . 

* 7 *.X. 

* * 
**** 

GETbYTE X 

*****C5********** 

* INSERT * 

* BYTE IN THE * 

* TEB-ENTRY * 

* USING R3 * 

* INTO R5 * 
***************** 



****** 5** ******** 

* CONVERT * 

* DATA IN R5 * 

* TO PACKED * 

* DECIMAL * 

***************** 



*****E5********** 

* UNPACK AND * 

* MOVE THE * 

* CONVERTED * 

* BYTE TO OUT * 

* AREA USING R4 * 
***************** 



*****p 5 ********** 

* LOAD ADDRESS * 

* OF NEXT * 

* TEB-BYTE BY * 

* ADDING 1 TO * 

* R3 * 
***************** 



*****G5********** 

* INCREMENT R4 * 

* BY 4 TO POINT * 

* TO NEXT POS * 

* TO BE USED IN * 

* OUTPUT AREA * 
***************** 



**** 



GETNXT 

*****K2********** 
*' ADD R9 TO * 

* R12 TO GET * 

* NEXT * 

* PUB-ENTRY * 

* * 
***************** 



*K3 
R2 CONTAINS 
THE ADDRESS OF 
THE BEGINNING 
OF THE TEB-TABLE. 



H5 *.. 

* ALL * 

BYTES 

CHECKED 



*****j5********** 

* * 

* MOVE ZEROS * 

* TO * 

* TEB-ENTRY * 

* * 
***************** 



********* 
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Chart RH, $$BTERM - Print Message and TEB Statistics Subroutine 
Refer to Chart 15. 



****A4***<<***** 

* * 

* LOG * 

* * 
*************** 





LOG .*. 


***Q3********** 


B4 *. 


* 


.* *. 


LOAD ADDRESS * 


NO .* CANCEL *. 


OF LUB TABLE *X.. 


*. WITHIN 


INTO R4 * 


*. CANCEL .* 



***************** 



*****03********** 

* SET LOGICAL * 

* UNIT NUMBER * 

* AND CCW- * 

* ADDRESS IN * 

* CCB * 
***************** 



*****£3********** 

* * 

* CLEAR * 

* OUTAR * 

* TO BLANKS * 

* * 

***************** 



*****P3********** 

* MOVE APPRO- * 
♦PRIATE MESSAGE * 

* INTO OUT AREA * 

* PUT CCB ADDR * 

* INTO REG 1 * 
***************** 



**** 

* * 

* 1 * 

* * 
**** 



******G3*********** 

* SVC * 

PRINT 

* A LINE * 

************* 



,* 
"*YES 



****J3********* 

* RETURN * 

* TO ADORESS IN * 

* LINK REGISTER * 
*************** 
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Chart RJ. $$BE0J1 - Prepare Cancel Cause Message 
Refer to Chart 16. 



****A1********* 

* * 

* SSBEOJl * 

* * 
*************** 



CAUSE1 X 

*****Bi ********** 

* MOVE JOBNAME * 

* FROM COMREG * 

* TO OUTPUT * 

* AREA * 

* * 
***************** 



* *. YES 

BACKGROUND .*... 
*. JOB .* 
*. .* 



*****DL********** 

* GET ADDRESS * 

* OF FOREGROUND * 

* SAVE AREA * 

* AND PUT INTO * 

* R4 * 
***************** 



*****E1 ********** 

* MOVE * 

* FOREGROUND * 

* JOBNAME TO * 

* OUTPUT AREA * 

* * 
***************** 



*C2 

APPROPRIATF 
MESSAGE FOR 
ILLEGAL SVC SET 
UP AT ASSEMBLY 
TIME. 



*****C 3* ********* 

* RELOCATE * 

* CCW ADDRESS * 

* IN CCB * 

* * 
***************** 



F2 *. 

.* PHASE *. 

NOT FOUND 



SET MESSAGE 

» CODE FOR PRQG * 

*CHECK 0S11I IN * 

* SYSLOG/LST * 

* OUTPUT AREA * 
***************** 



*****Hi ********** 

* SET UP CCW * 

* MESSAGE COUNT * 

* IN BYTE COUNT * 

* AREA OF CCW * 

* * 
***************** 



*. 


INUILAIUK 
*. ON .* 


*• • • • 




*. *C2 .* 






*. .* 








:<YES 








< 




*****G2********** 


* 


SET UP 


* 


* 


PHASE NOT 


* 


* 


FOUND MESSAGE 


* 


* 


0S06I IN 


* 


* 


OUTPUT AREA 


* 


***************** 


**** 






* 


* 






* 


1 *.. 






* 


* 


!x 





**** 
LOGGER X 

*****H2********** 

* * 

* LOAD ADDRESS * 

* OF LUB-TABLE * 

* INTO R4 * 

* * 
***************** 



E3 *. 
* 
SYSLOG 

SYSLST 

*. . ; 

*. .* 

*NO 



*****P3********** 

* GET AND STORE * 

* ADDRESS OF * 

* LOGICAL UNIT * 

* ADDRESS OF * 

* SYSLOG IN CCB * 
***************** 



*****G3 ********** 
*PRINT RK* 
*_*-*_*-*_*-*_*-* 
* - WRITE * 

* CANCEL MSG * 

* ON SYSLOG * 
***************** 



ONLIST 

*****H3********** 

* SET UP A * 

* COUNT OF 120 * 

* IN BYTE COUNT * 

* AREA OF CCW * 

* * 
***************** 



FGJOB 

*****D4********** 

* SET SYSTEM' * 
> ' LUB INDEX * 

* FOR THIS * 

* PARTITION * 

* * 
***************** 



*****E4********** 



*****C5******* 

* RESET CATAL* 
*AND SUPERVISOR* 

* UPDATE INDEX * 

* SWITCHES IN * 

* COMREG * 
************** 



*****D5******* 

* SET CANCEL * 

* BIT-ON 

* FOR JOB 

* CONTROL 

* * 
************** 



CALCULATE 


* 


NO .* SYSLST *. 


LUB TABLE 


* 


...*. ASSIGNED .* 


ENTRY 


* 


*. .* 




* 


*. .* 


************* 


X *. .* 


* 




***** *YES 
*RK * 
* D2* 


X 




* * 


**** 




* 


* * 




TERM 


* 4 * 




X 


* * 




*****F5********** 


**** 




* LOAD R5 WITH * 

* ADDRESS OF * 

* LOGICAL UNIT * 

* ADDRESS OF * 

* SYSLST * 
***************** 

X 
***** 
*RK * 
* Bl* 
* * 
* 
SETLOGUN 



***** j i ********** 

* SET UP * 

* CAUSE OF * 

* TERMINATION * 
*IN OUTPUT AREA * 

* OF CCW * 
***************** 


*****j2********** 

* SET UP CCW * 

* WITH ADDRESS * 

* OF MSG * 

* , OS09I * 

* -ILLEGAL SVC- * 
***************** 


*****J3******* 
* 

* CLEAR REST 

* OF I/O AREA 

* 

************** 


X 

**** 

* * 

* 1 * 

* * 
**** 






X 

**** 

* * 

* 2 * 

* * 
**** 






X 
**** 

* * 

* 3 * 

* * 
**** 
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Chart RK. $$BE0J1 - Output Cancel Message on SYSLST 
Refer to Chart 16. 



***** 

*RJ * 
* F5* 



**** 

* * 

* 4 * 

* * 
**** 



SETLOGUN X 

*****Bi ********** 

* STORE LOGICAL * 

* UNIT NUMBER * 

* IN OUTPUT CCB * 

* FROM R5 * 
♦AND ZERO REG 5 * 
***************** 



B2 *. 
* IS *. 

DEVICE * 
A PRINTER 



.*. 

B4 *. 

* IS 

DEVICE 

A TAPE 





'. ♦ * 


* ♦ 




...* 5 * 


♦ 8 ♦... 




. * * 


* * 




**** 


**** X 


X 


BALR14 X 


TPTYPE1 .*. 


*****ci********** 


*****C2********** 


C3 *. 


*' INSERT IN R5 * 


♦PRINT RK* 


.* IS ♦. 


* PUB-POINTER * 


*_*.>.*-.*_ *_*_*_*_* 


.♦ DEVICE ♦. 


*FROM SYSLST LUB* 


* WRITE * 


♦. A TAPE .♦ 


* ENTRY TIMES * 


* MESSAGE * 


♦ . .* 


* 8 * 


* ON SYSLST * 


♦ . .* 


***************** 


***************** 

**** I **** 

* * . * * 

* 6 *...X.* RJ * 

* * . * F4* 
**** . **** 


*. .* 
♦YES 


X 


TERM 


X 


*****0l********** 


X 


*****D3********** 


* LOAD R6 * 


****Q2********* 


* LOAD ADDRESS ♦ 


* WITH ADDRESS * 


* SVC 2 * 


♦ OF FIRST BYTE * 


* OF * 


* $$BPSW * 


♦FOR TAPE OUTPUT^ 


* PUB-TABLE * 


* CHART RR * 


* MESSAGE INTO * 


* * 


*************** 


* R5 * 


***************** 




***************** 



DKTYPE 

*****Q4********** 

* LOCATE AND ♦ 
NOtDISK * STORE THE ♦ 

...X^ ADDRESS OF ♦ 

* SYSLST DIB * 

* ENTRY IN R5 * 
***************** 



SYSLST 
EXTENT 
FILLED 



X^ PROTECTION * 

♦ SENSE CCW * 

* IN R5 ♦ 
***************** 



*****C5********** 

* STORE SENSE ♦ 

* CCW ADDRESS * 

* IN MESSAGE * 

* CCB * 

* * 
***************** 



*****05********** 
♦PRINT RK* 
*_*_*_*_*_*_*_*_* 

* SENSE FOR * 

* FILE * 

* PROTECTION * 
***************** 



*****Ei********** 

* LOAD ADDRESS ♦ 

* OF SYSLST-PUB ♦ 

* INTO R4 * 

* (R5+R6) * 

* * 
***************** 



****££♦♦♦♦♦♦♦♦♦ 

* * 

* PRINT ♦ 

* * 
*************** 



*****E3********** 

♦ STORE ADDRESS ♦ 

♦ INTO TAPE * 

♦ OUTPUT CCW ♦ 

♦ DATA ADDRESS ♦ 

♦ FIELD ♦ 
***************** 

**** '. 



*****E4********** 

* * 

* STORE ♦ 

* SEEK-ADDRESS * 

* IN CCW * 

* * 
***************** 



*****Fi ********** 

♦ GET SYSLST ♦ 

♦ DEVICE TYPE ♦ 

♦ FROM ♦ 

♦ PUB-ENTRY ♦ 

♦ * 
***************** 



*****F 2********** 

♦ * 

♦ LOAD ADDRESS ♦ 

♦ OF OUTPUT ♦ 

♦ CCB INTO Rl ♦ 

♦ * 
***************** 



**** 
H X 
*****P3********** 

* PICK UP AND ♦ 

* STORE * 

* OUTPUT CCW ♦ 

* ADDRESS IN * 

* OUTPUT CCB * 
***************** 



*****P4********** 

* SET SEEK- * 

* ADDRESS AMD * 

* COUNT FIELD * 

* IN OUTPUT * 

* AREA * 
***************** 



******G2*********** 

SVC 

♦ EXCP ♦ 

PRINT A 

♦ LINE ♦ 

************* 



*****G4********** 

♦ SET SEARCH ♦ 

♦ ADDRESSES IN ♦ 

♦ SEARCH AND .♦ 

♦ SEARCH1 CCW'S * 

♦ * 
***************** 



*****H4^*+*+*+^* 

♦ SET TRANSFER ♦ 

♦ IN CHANNEL ♦ 

♦ ADDRESSES * 

♦ IN TIC AND ♦ 

♦ TIC1 CCW'S ♦ 
***************** 



****J2********* 

♦ SVC 7 ♦ 

♦ WAIT ♦ 

♦ * 
*************** 



*****j4********** 

* SET DATA * 

* ADDRESS IN * 

* OUTPUT CCW ♦ 



*************** 



****«2********* 

♦ RETURN TO ♦ 

♦ ADDRESS IN ♦ 

♦ LINK REGISTER ♦ 
*************** 



*****K4********** 

♦ PICK UP ♦ 

♦ ADDRESS OF ♦ 

♦ FIRST OUTPUT ♦ 

♦ CCW IN CHAIN ♦ 

♦ * 
***************** 
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Chart RL. $$BE0J2 - Select Cancel Message and Program Identification 
Refer to Chart 17. 



****A1 ********* 

* * 

* $$BE0J2 * 

* * 
*************** 



CAUSE1 X 

*****Bl********** 

* LOAD ADDRESS * 
*0F CANCEL CODE * 

* LOOKUP TABLE * 

* INTO REG 3 * 

* * 
***************** 



**** 

X 
*****d********** 
♦COMPARE CANCEL * 
* CODE FROM PIB * 
*FOR TERMINATED * 
*PROG WITH CODE * 
*IN LOOKUP TABLE* 
***************** 



**** 

* * 

* 3 * 

* * 
**** 



*****C3 ********** 

* MOVE JOB NAME * 
♦STORED FROM JOB* 
*STMNT IN COMREG* 
*TO OUTPUT AREA * 

* * 
***************** 



CODES *. YES 
EQUAL .*.... 
*K2 .* 



*****£!********** 

* INDEX 5 BYTES * 

* TO NEXT TABLE * 

* ENTRY CMP TO * 
*SEE IF THIS IS * 

* END OF TABLE * 
***************** 



FL *. 

.* LAST * 

ENTRY 

IN TABLE 



**** 

X 
*****Gi ********** 
*ZERO REG 4 AND * 
* INSERT CHAR * 
*FR0M LOOKUP TBL* 
*TO INDEX TO MSG* 
*IN MSCODE TABLE* 
***************** 



*****Hi ********** 

* LA OF MSCODE * 

* TABLE IN R5 * 

* ADD R5 TO R4 * 

* TO GIVE ADDR * 

* OF MSG NEEDED * 
***************** 



***** j i ********** 

* MOVE MSG CODE * 
*TO OUTPUT AREA * 

* LABELED * 

* LGLINE * 

* * 
***************** 



*****B5********** 

* CLEAR OUTPUT * 
*AREA BY MOVING * 

* IN BLANKS * 

* STARTING AT * 

* LABEL CAUSE * 
***************** 



*****C 5** ******** 
*MOVE ACTUAL MSG* 
*TO OUTPUT AREA * 
*USING MODIFIED * 

* INST AT * 

* LABEL MVC * 
***************** 



*****D5********** 
♦LOGGER RM* 
*_*_*_*_*_*_*_*_* 

* OUTPUTS * 

* MSG * 



********* 



****** 



*****E3********** 
*LA OF PIBTAB IN* 
*R4 INDEX TO AR * 

* PIB FOR FG * 
*SAVE AREA ADDR * 

* *G4 * 
***************** 



*****F3********** 

* MOVE NAME OF * 

* FG JOB INTO * 

* OUTPUT AREA * 
*FROM SAVE AREA * 

* * 
***************** 



*****G3******* 

* MOVE LENGTH* 

* VALUE OF MSG * 

* INTO INST 

* LABELED * 

* MVC * 
************** 



*****H3******* 

* MOVE ADDR * 

* OF MSG INTO * 

* INST LABELED * 

* MVC * 

* * 
************** 



*****J3********** 

* INSERT LENGTH * 
*OF MSG INTO R3 * 

* ADD 37 BYTES * 
*STORE RESULT IN* 
*CCWLG COUNT FLD* 
***************** 



*****E5********** 

* LOAD * 

* ADDRESS INTO * 

* Rl OF * 

* NAME $$BPSW * 

***************** 



****p 5 ********* 

* SVC 2 * 

* $$BPSW * 

* CHART RR * 
*************** 



*G4 
THIS PHASE, AND THE WHOLE TERMINATOR. IS 
ATTACHED TO THE PROGRAM BEING TERMINATED. 
IN THIS CASE, THE SUPVK HAS SWITCHED 
SAVE-AREA POINTERS SO THAT THE FG-SAVE 
AREA POINTER IS LOCATED IN THE AR-PIB. 
WHILE THE POINTER IN THE FG-PIB POINTS 
TO THE LOGICAL TRANSIENT SAVE AREA. 



*K2 
THE LAST ENTRY HAS 
A 'CATCH-ALL 1 FUNCTION 
AND GIVES A MSG 
SAYING 

•UNRECOGNIZED 
CANCEL-CODE'. 



**** 

* * 

* 4 * 

* * 
**** 
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Chart RM. $$BE0J2 - Select I/O Device and Output the Cancel Message 
Refer to Chart 17. 



**** 
* * 

* 4 * 

* * 

**** 



****A1********* 

* LOGGER * 

* * 

*************** 



LOGGER 

*****B1 ********** 
*LD LUBTAB ADDR * 
*IN R4 LD OUTPUT* 
*AREA ADDR IN R5* 

* THEN STORE IT * 

* IN CCWLG * 
***************** 



CI *. 

.* IS * 

SYSLOG 

ASSIGNED 



.* ARE *. 
.*SYSLOG AND *. YES 
. SYSLST SAME .*..X 
*. DEVICE .* 



*****{: 1 ********** 
*LOAD UNIT ADDR * 
*0F SYSLOG IN R5* 
*STORE IT IN CCB* 
*SET CCWLG ADDR * 
* IN CCB VIA R5 * 
***************** 



*****F1** ******** 
*PRINT RM* 

* WRITE MESSAGE * 

* ON SYSLOG * 

* * 
***************** 



**** 

* * 

* 1 * 



SETLOGUN X 

*****B2********** 

* ST LOGUNIT * 
*ADDR IN CCB SET* 

* POINTER FROM * 

* LUB TO PUBTAB * 

* IN REG 5 * 
***************** 



*****C 2 ********** 
*MULT R5 BY 8 TO* 
*INDEX INTO PUB * 

* TBL LA OF PUB * 

* TBL IN R6 ADO * 

* R5+R6 INTO R4 * 
***************** 



*****02 ********** 
*R4 NOW HAS ADDR* 

* OF SYSLST PUB * 
*GET PUB DEVICE * 

* TYPE FOR CMP * 

* TO IDENTIFY * 
***************** 



*****B3********* 

* SET RCV ADDR 
*FOR SENSE DATA 

* IN SENSE CCW 

* SET CCW ADDR 

* INTO CCB 
**************** 



* SENSE TAPE DR 

* FOR FILE PROT 

* CONDITION 
**************** 



D3 *. 
.* TAPE *. 
*DRIVE FILE 
PROTECTED 



BG 
JOB 

"*YES 

.x! 



**** 
4 * 



1ST 


X 




*****G1 ********** 


* 


MOVE 


COUNT 


* 


* 


OF 12 3 BYTES 


* 


* 


INTO 


CCWLG 


* 



***************** 



*****P2********** 
*USE A BLNK BYTE* 
*ADDR FOR CCWSKP* 
*DATA ADDR. LOAD* 
*ADDR OF CCWSKP * 
* INTO REG 5 * 
***************** 



* 2 * 

* * 
**** 



FGJOB 

*****H 2 ********** 

* GET SYSTEM * 

* LUB INDEX * 
...X* FOR THIS * 

* PARTITION * 



***E3***** 
PRINT 



PRINT 

*****F3******** 

* LOAD ADDR 

* OF CCB INTO 

* REG 1 



***************** 



****G3********* 
SVC 

EXECUTE 

CHANNEL 
* PROG * 

************* 



*****F 4* ********* 
*LA OF TAPE OUT-* 
*PUT AREA IN R5 * 
*ST IT IN CCWTP * 

* LOAD ADDR OF * 

* CCWTP IN R5 * 
***************** 

**** 



*****G4* ********* 

* STORE * 

* APPROPRIATE * 

* CCW ADDR IN * 

* CCB FROM * 

* R5 * 
***************** 



DKTYPE 

^****F5********** 
*LA OF DIB IN R5* 
*INDEX TO SYSLST* 

* DIb CMP CURR * 

* ADDR TO END * 
*ADDR OF EXTENT * 
***************** 



**** 



************ 



*****jl******* 

* RESET CATAL* 

* AND SUPVR UP-* 
*DATE JCSW1 BITS* 

* SET CNCL BIT * 

* IN JCSWO * 
************** 



*****j 2 ********** 

* * 

* CALCULATE * 

* LUB TABLE * 

* ENTRY * 



******** 



H3 *. 
.* I/O *. 
OPERATION 
COMPLETE 



****j 3** ******* 

* SVC 7 * 

* PROB PROG * 

* WAIT * 
*************** 



********** 



* IS *. 




SYSLST 


*. 


NO 


ASSIGNED 


* 


*.. .. 


*. .* 






*. .* 




X 


*YES 




***** 


* 




*RL * 
* E5* 


X 




* * 


**** 




* 


* * 






* 1 * 







****K3********* 

* RETURN * 
*TO ADDR IN LINK* 

* REG 14 * 
*************** 



y****H5********** 

* SET CURADR IN * 

* SEEK CCW MOVE * 

* CCHHRKDD TO * 
*DISK OUTPUT AS * 

* COUNT ID FLD * 



*****J5********* 

* REDUCE RCD NO 
*BY 1. SET THIS 
*ADDR IN SEARCH 

* CCWS 



****« 5*** ******* 
ST SEARCH CCW * 
ADDRS IN TIC * 
CCWS SET DATA * 
ADDR IN WRITE * 
CKD CCW * 
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Chart RN. $$BILSVC - Prepare Information about Cancel Cause 
Refer to Chart 17. 



* * 

* SSBILSVC * 

* *A5 * 
*************** 



*A5 
REG 10 AND REG 11 ARE 
INITIALIZED BY A 
PREVIOUS PHASE TO BE 
USED AS BASE REGISTERS 
FOR PIB-DSECT AND 
SUPVR COMREG DSECT 
RESPECTIVELY. 



♦GET BACKGROUND * 

* JOB NAME * 

* FROM THE * 

* COMMUNICATION * 

* REGION * 
***************** 

**** 



* 2 



**** 
PNFORSVC .*. 

C2 *. 
.* PHASE *. 
.* NOT FOUND *. YES 
*. (REG 0=0) .*.... 



*****B4********** 
*PRINT RQ* 
*-*_*_*_*_*_*_*_* 

* ERROR MESSAGE * 

* ON SYSLOG * 

* * 
***************** 



*****C3********** 

* GET PHASE * 
*NAME FOR WHICH * 

X* THE SVC WAS * 

* ISSUED * 

* * 
***************** 



ONLIST X 

*****C4********** 

* SET A BYTE * 

* COUNT OF 120 * 

* IN ERROR * 

* MESSAGE CCW'S * 

* * 
***************** 



*****0i********** 

* SET UP REG 2 * 

* WITH. ADDRESS * 

* OF THE PRINT * 
♦SUBROUTINE FOR * 

* BRANCH ON REG * 
***************** 



*****E1********** 

* SET UP REG 3 * 

* WITH ADDRESS * 

* OF THE DUMP * 

* SUBROUTINE * 

* * 
***************** 



*****F1********** 

* LOAD THE * 

* STARTING * 

* ADDRESS OF * 

* THE PIB-TABLE * 

* INTO REG 9 * 
***************** 



*****GL********** 

* LOAD THE * 

* ADDRESS OF * 
*THE PHASE NAME * 

* INTO REG * 

* 7 * 
***************** 



OVLAY 

*****H1********** 

* GET THE JOB * 

* NAME FROM * 

* THE LOGICAL * 

* TRANSIENT * 

* SAVE AREA * 
***************** 



*****D2********** 

* LOAD THE * 

* ADDRESS OF * 

* THE ILLEGAL * 
*SVC INSTRUCTION* 

* IN WORK AREA * 
***************** 



*****E2********** 

* UNPACK THE * 

* ADDRESS TO * 

* PREPARE FOR * 

* PRINT IN HEX * 

* AND TRANSLATE * 
***************** 



*****F2********** 

* UNPACK THE * 

* ILLEGAL SVC * 
♦CODE TO PREPARE* 

* FOR PRINTING * 

* AND TRANSLATE * 
***************** 



*****Q2********** 

* MOVE ILLEGAL * 

* SVC CALL * 

* MESSAGE TO * 
♦PRINT AREA AND * 

* SET LENGTH * 
***************** 



**** 

* * 

* 1 * 

* * 
**** 



**♦* 

* ♦ 

* 2 * 

* * 
**** 



RELOC X 






.*. 




*****Q3********** 






D4 *. 


*****D5******* 


* CLEAR MESSAGE * 






.* *. 


* RESET JOB * 


* AREA AND ♦ 






.* ♦. YES 


*CTRL SWITCH IN* 


♦RELOCATE DATA- ♦ 






♦. BACKGROUND .♦... 


. ....X* COMM REG FOR * 


♦ADDRESS IN CCW ♦ 


♦. JOB .* 


* SVC UPDATE * 


♦FOR SYSLOG/LST ♦ 






*. .* 


♦IND AND CATAL* 


***************** 






*. .* 
♦NO 


************** 


X 




FGJOB X 


X 


*****E3********** 






*****E4********** 


*****E5******* 


♦ LOAD BASE ♦ 






* GET SYSTEM * 


♦ SET LINK ♦ 


♦ ADDRESS OF ♦ 






♦ LUB INDEX ♦ 


♦ SWITCH IN ♦ 


♦ LUB-TABLE ♦ 






♦ FOR THIS ♦ 


♦ COMMREG AS ♦ 


♦ INTO REG 4 ♦ 






♦ PARTITION ♦ 


♦ CANCEL BIT ♦ 


* * 






* * 


♦ FOR JOB CTRL* 


***************** 






***************** 


************** 

'. **** 

* * 
. ..* 5 * 

♦ ♦ 


X 








X ♦♦♦♦ 


.*. 






X 


TSTLST .♦. 


F3 *. 






*****P4********** 


F5 ♦. 


.* *. 






* * 


.♦ IS ♦. 


.* SYSLOG ♦. NO 




* CALCULATE * 


NO .♦ SYSLST ♦. 


♦. UNIT .♦. 






* LUB TABLE * 


...♦. ASSIGNED .♦ 


♦.ASSIGNED .♦ 






* ENTRY * 


♦ . .♦ 


♦ . .* 






* * 


♦ . .♦ 


*. .* 






***************** 


X ♦. .♦ 


♦YES 








***** +YES 








X 
**** 


♦RP ♦TERM 
♦ HI* 
* * 
* 


X 






* * 




.♦. 






* 5 * 


SETLOGUN X 


G3 ♦. 






* ♦ 


*****G5********** 


.♦ ♦. 






**** 


* STORE LOGICAL * 


.♦ SYSLOG ♦. YES 






* UNIT NUMBER * 


♦ . = .* 


.X 






♦ OF SYSLST IN ♦ 


*. SYSLST .* 








♦ CCB AND ♦ 


*. .♦ 








♦ ZERO REG 5 ♦ 


♦ . .* 


) 


< 




***************** 


♦ NO 


* 

* 
* 


*** 
* 

b * 
* 







*****H3********** 

♦ STORE THE ♦ 
♦SYSLOG LOGICAL ♦ 

♦ UNIT NUMBER ♦ 

♦ IN OUTPUT CCB ♦ 

♦ * 
***************** 



*****j3********** 

♦ STORE ADDRESS ♦ 

♦ OF THE SYSLOG ♦ 

♦ ERROR MESSAGE ♦ 

♦ CCW IN CCB ♦ 

♦ * 
***************** 



*****H5********** 

♦ GET SYSLST ♦ 

♦ PUB-TABLE * 

♦ DISPLACEMENT * 

♦ IN REG 5 FROM ♦ 
♦SYSLST PUB-PNTR+ 
***************** 



*****J5********** 

♦ LOAD REG 6 ♦ 

♦ WITH ♦ 

♦ PUB-TABLE ♦ 

♦ ADDRESS ♦ 

♦ * 
***************** 



***** 

♦ RP ♦ 

♦ Al* 
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Chart RP. $$BILSVC - Select I/O Device and Prepare to Output a Message 
Refer to Chart 17. 



***** 






*RN * 






* J 5* 






* * 






* 




*B2 
REG 5 + REG 6 
EQUALS REG 4. 


****B1********** 




LOAD ADDRESS 


* 




OF SYSLST 


* 




PUB ENTRY 


* 




INTO REG 4 


* 




*B2 


* 





**** 

* * 

* 3 * 



*****B5********** 

* * 

* LOAD TRANSFER * 

* ADDRESSES IN * 

* TIC CCW'S * 

* * 
***************** 



*****d********** 

* GET SYSLST * 

* DEVICE TYPE * 

* FROM * 

* PUB TABLE * 

* * 
***************** 



*****Q5********** 

* * 

* SET DATA * 

* ADDRESS IN * 

* OUTPUT CCW * 

* * 
***************** 



Dl ♦ . 

.* IS *. 

DEVICE *. 

A 

. PRINTER .* 

♦ . .* 

*. .* 

*YES 



TPTYPE 

.♦* 
...X*. B 



D3 ♦ . 
* 
SYSLST 

DISK 

**. .** 
♦NO 



DKTYPE X 

*****Q4********** 

* LOCATE AND * 

* STORE SYSLST * 
...X* DIB-ENTRY * 

* ADDRESS IN * 

* REG 5 * 
***************** 



*****Q5********** 

* * 

* LOAD OUTPUT * 

* CCW ADDRESS * 

* INTO REG 1 * 

* * 
***************** 



*****£! ********** 

* LOAD CARRIAGE * 

* CONTROL CCW * 

* ADDRESS * 

* INTO REG 1 * 

* * 
***************** 



**** 
RLCCB X 

*****F !********«* 

* STORE MESSAGE * 

* CCW ADDRESS * 

* IN CCB * 

* FROM REG 1 * 

* * 
***************** 



E2 * 
* 

TAPE 



*****P2********** 

* LOAD ADDRESS * 

* OF FILE * 

* PROTECTION * 

* SENSE CCW * 

* INTO REG 5 * 
***************** 



* 2 ♦ ... 

* * 
**** 

FGTAPE X 

*****E3********** 

* LOAD CCW'S * 

* CONTAINING * 

* TAPE ERROR * 

* MESSAGE * 

* INTO REG 1 * 
***************** 



*****F3 ********** 

* LOAD ADDRESS * 

* OF THE * 

* CCW'S IN * 

* REG 1 * 

* * 
***************** 



SYSLST 
EXTENT 
FILLED 



*****F4********** 

* * 

* STORE * 

* SEEK ADDRESS * 

* IN CCW * 

* * 
***************** 



NOP 

YES 

.. .* 

X 

**** 

* * 

* 5 * 

* * 
**** 



*****P5******* 

* SET NOP * 

* SWITCH FOR 

* BRANCHING 

* SECOND TIKE 

* THROUGH * 
************** 



*****Gl********** 
*PRINT RQ* 
*_*_*_*_*_*_*_*_* 

* ERROR MESSAGE * 

* ON SYSLST * 

* * 
***************** 



*****G2********** 

* STORE SENSE * 

* CCW ADDRESS * 

* IN MESSAGE * 

* CCB * 

* * 
***************** 



*****G4********** 

* SET SEEK- * 

* ADDRESS AND * 

* COUNT FIELD * 

* IN OUTPUT * 

* AREA * 
***************** 



*****G5********** 

* STORE OUTPUT * 

* CCW ADDRESS * 

* INTO OUTPUT * 
*CCB FROM REG 1 * 

* * 
***************** 



♦ RN 



.* 4 



GA* 

**** . **** 
TERM X 

*****H1 ********** 

* LOAD ADDRESS * 

* OF $SBDUMP * 

* TRANSIENT * 

* IN REG 1 * 

* * 
***************** 



*****H2********** 
♦PRINT RQ+ 
*_*-.*_*_*_*_*_*_* 

* * 

* SENSE DATA ♦ 

* * 
***************** 



*****H4* ********* 

♦ SET SEARCH- ♦ 

♦ FIELD ♦ 

♦ BY REDUCING * 

♦ THE RECORD ♦ 

♦ NUMBER BY 1 ♦ 
***************** 



***************** 



****jl********* 

♦ SVC 2 ♦ 

♦ $$BDUMP ♦ 

♦ CHART RV ♦ 
*************** 



J2 ♦. 
,♦ IS ♦. 

TAPE 

FILE 
.PROTECTED. 



***** j 4* ********* 

♦ SET SEARCH ♦ 

♦ ADDRESSES IN ♦ 

♦ SEARCH, AND * 

♦ SEARCH! CCW'S ♦ 

♦ * 
***************** 



***** j 5* ******** 

* MODIFY OUTPUT 

* AREA POINTER 

♦ AT LABELS LA 

♦ AND MVC FUR 
♦2ND LINE PRINT 
**************** 



**** 

* * 

* 6 ♦ 
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Chart RQ. $$BILSVC - Output Message on Selected I/O Device 
Refer to Chart 17. 



****B3********* 



*************** 



* LOAD ADDRESS * 

* OF CCB * 

* INTO REG 1 * 

* * 
***************** 



******03*********** 

* WRITE * 

A 

* LINE * 

************* 



.X 



.*. 



****P3********* 

* EXIT TO * 

* ADDRESS IN * 

* LINK REGISTER * 
*************** 
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Chart RR. $$BPStf - Prepare Canceled Program's PSW for Output Message and PIOCS 
Subroutine 

Refer to Chart 16. 



****A1********* 

* * 

* $$BPSW * 

* * 
*************** 



**#**Bl********** 

* LOAD ADDRESS * 

* OF PIB TABLE * 

* INTO REG 7 * 



***************** 



*****d ********** 
♦INCREMENT REG 7* 
*T0 GET PNTR TO * 
*SAVE AREA FROM * 

* LOGICAL TRANS * 

* BUCKET * 
***************** 



*****Dl********** 

* UNPACK * 

* USERS PSW * 

* INTO MSG * 

* AREA * 

* # 
***************** 



**£!******* 

* TRANSLATE * 

* USERS PSW 
INTO HEX 

* DATA FOR 

* PRINTING * 
*********** 



*****Fl ********** 

* * 

* MOVE MESSAGE * 

* TO OUTPUT * 

* AREA * 

* * 
***************** 



*****C3******* 

* RESET JOB * 
*CTRL SWITCH IN* 

* COMMREG FOR * 

* SVC UPDATE * 

* AND CATAL * 
************** 



*****D3******* 

* SET * 

* SWITCH IN * 

* COMREG AS 

* CANCEL BIT * 

* FOR JOB CTRL* 
************** 



NO . 


* IS * 




. ..*. 


SYSLST 

♦.ASSIGNED .* 

*. .* 


!* 


X 


*. .* 




***** 


*YES 




*RS *TERM 




* El* 








* * 








* 








SETLOGUN X 






***P3********** 


* 


STORE LOGICAL 


* 


* 


UNIT NO. OF 


* 


* 


SYSLST INTO 


* 


* 


OUTPUT CCB 


* 


* 


ZERO REG 5 


* 


********:< 


********* 



***B4********** 

GET SYSTEM * 

LUB INDEX * 

FOR THIS * 

PARTITION * 



CALCULATE * 

LUB TABLE * 

ENTRY * 

# 

************** 



****F5****** 
* 

* PRINT 
* 

************ 



LOGGER X 

*****G1********** 

* LOAD ADDRESS * 

* OF LUB TABLE * 

* INTO REG 4 * 



***************** 



*****Q3 ********** 

* GET SYSLST * 

* PUB TABLE * 
*DISPL INTO REG5* 
*AS 8X(PUB-PNTR * 
*IN SYSLST LUB) * 



LOAD ADDRESS 

OF CCB 

INTO REG 1 



*****HL ********** 

* STORE ADDRESS * 

* OF MESSAGE * 

* INTO DATA * 

* ADDRESS OF * 

* OUTPUT CCW * 
***************** 



*H4 
REG5 + REG6 
EQUALS REG4. 



*****H3 ********** 

* * 

* LOAD REG 6 * 

* WITH ADDRESS * 

* OF PUB TABLE * 

* * 
***************** 



******H 5 *********** 

* WRITE * 

A LINE 

* SVC * 

************* 



*****j 1********** 

* STORE CCW * 

* ADDRESS INTO * 

* CCB FOR * 

* PRINTING A * 

* LINE * 
***************** 



*****J3********** 

* LOAD ADDRESS * 
*OF SYSLST PUB- * 
*ENTRY UNIT INTO* 

* REG 4 * 

* *H4 * 
***************** 



ONLIST X 

*****IQ********** 

* MOVE 120 * 

* INTO BYTE * 

* COUNT AREA * 

* OF MESSAGE * 

* CCW * 
***************** 



***** 
*RS * 
* Bl* 



****«5********* 

* EXIT TO * 

* ADDRESS IN * 

* LINK REGISTER * 
*************** 
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Chart RS. $$BPSW - Select I/O Device and Prepare to Output a Message 
Refer to Chart 16. 



***** 

*RR * 
* J3* 



*****B1********** 

* GET SYSLST * 

* DEVICE TYPE * 

* FROM * 

* PUB TABLE * 

* * 
***************** 



*. PRINTER 


.* 


*. 


.* 


*. .* 




*. .* 




*YES 




**** 




* * 






* 2 *. . 






* * 






**** 






BALR14 X 




*****D1 ********** 


♦PRINT 


RR* 


*_*_*_*..*_*_* 


-*-* 


* MESSAGE 


* 


* ON 


* 


* SYSLST 


* 


************* 


**** 


**** 




**** 


* * 


* 


* 


* 3 *.. 


. .* 


RR * 


* * 


* 


E3* 


**** 




**** 


TERM X 




*****£ 1 ********** 


* 


* 


* LOAD ADDRESS * 


* OF $$BDUMP 


* 


* INTO F 


*EG 1 


* 



TPTYPE1 .*. 

C3 *. 
. .* *. 

*. YES .* SYSLST *. YES 



***************** 



****Fl********* 

* FETCH * 

* $$BDUMP * 

* CHART RV * 
*************** 



D2 * 

* 

TAPE 



*****(= 2********** 

* LOAD ADDRESS * 

* OF FILE * 

* PROTECTION * 

* SENSE CCW * 

* INTO REG 5 * 
***************** 



*****F2********** 

* STORE SENSE * 

* CCW ADDRESS * 

* IN OUTPUT * 

* CCB * 

* * 
***************** 



*****03********** 

* LOAD FIRST * 

* BYTE FOR * 

* TAPE OUTPUT * 

* INTO DATA * 
*ADDRESS IN CCW * 
***************** 



* C 

* 

* I 



*E3********** 
PICK UP * 
CW ADORESS * 
AND LOAD * 
NTO REG 5 * 



***************** 



*****p 3 ********** 

* * 

* STORE CCW * 

* ADDRESS INTO * 

* OUTPUT CCB * 

* * 
***************** 



***************** 



.* IS 


* 






* TAPE 




*. 


YES 


FILE 






*. . . . 


♦.PROTECTED 


*" 




*. 


* 






*. .* 






X 


*NO 






**** 








* 
* 3 


X 






* 


**** 






**** 



DKTYPE 

*****C4********** 

* LOCATE AND * 

* STORE THE * 
...X* DIB TABLE * 

* ADDRESS INTO * 

* REG 5 * 
***************** 



*****D4********** 

* LOCATE * 

* SYSLST * 

* DIB-ENTRY * 

* INTO REG 5 * 

* * 
***************** 



*****£ 5********** 

* * 

* SET DATA * 

* ADDRESS IN * 

* OUTPUT CCW * 

* * 
***************** 



***** 05* ********* 

* PUT ADDRESS * 

* GF FIRST * 

* CCW IN CHAIN * 

* INTO REG 5 * 

* * 
***************** 



.* SYSLST 

EXTENT 

*. FILLED 



*****F4********** 

* SET SEEK * 

* ADDRESS IN * 

* CCW AND SET * 
♦COUNT FIELD IN * 

* OUTPUT AREA * 
***************** 



*****G 4* ********* 

* SET SEARCH * 

* FIELD IN CCW * 

* BY REDUCING * 

* THE RECORD * 

* NUMBER BY 1 * 
***************** 



*****H4********** 

* SET SEARCH * 

* ADDRESSES IN * 

* SEARCH AND * 

* SEARCH1 CCWS * 

* * 
***************** 



*****j 4**** ****** 

* LOAD * 

* TRANSFER * 

* ADDRESSES * 

* IN TIC CCWS * 

* * 
***************** 



* 5 * 

* * 
**** 
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Chart RT. $$BPCHK 
Device 

Refer to Chart 17. 



Prepare Information for Message about PC Cancel and Select I/O 



***** 

*RU * 
* Gl* 



****A1********* 

* * 

* $$BPCHK * 

* * 
*************** 



START X 

*****B l ********** 

* GET ADDR OF * 
♦LOGICAL TRANS- * 

* IENT BUCKET * 
*FROM PIB TABLE * 

* * 
***************** 



*****Cl********** 

* MOVE JOB NAME * 
♦FROM PROB PROG ♦ 

* SAVE AREA TO * 

* FIELD CALLED * 

* TXTNAM * 
***************** 



Dl *. 

.* BG *. 

.♦ PROGRAM *. Ni 

♦.CAUSE OF PROG.^. 

♦. CHECK .♦ 



*****EL ********** 

♦ OVERLAY NAME ♦ 
♦IN TXTNAM WITH ♦ 

♦ NAME FROM JOB ♦ 

♦ STATEMENT NOW ♦ 

♦ IN COMREG ♦ 
***************** 



NOTBG 

*****P1********** 

♦ GET LAST 4 ♦ 

♦ BYTES OF OLD ♦ 

♦ PSW FROM SAVE ♦ 

♦ AREA AND PUT ♦ 

♦ INTO REGS 7-8 ♦ 
***************** 



*****G1********** 
♦SHIFT REG 8 TO ♦ 

♦ ISOLATE ILC ♦ 

♦ DOUBLE INST ♦ 

♦ LNG TO CHANGE ♦ 
♦HALFWDS TO BYTE* 
***************** 



*****Hl********** 
♦SUB REG 8 FROM ♦ 

♦ REG 7 TO GET ♦ 

♦ ACTUAL INST ♦ 

♦ ADDR WHICH ♦ 

♦ CAUSED INTRPT * 
***************** 



*****jl********** 
♦UNPK INST ADDR ♦ 

♦ PUT RESULT IN ♦ 
♦AREA NAMED LCN.+ 

♦ WILL BECOME ♦ 

♦ PART OF MSG ♦ 
***************** 



*****Kl********** 
♦SHIFT REG 7 TO ♦ 

♦ ISOLATE COND ♦ 
♦CODE CHANGE TO ♦ 
♦PRINT DCML STOR* 

♦ IN MSG AREA ♦ 
***************** 



*****A2********** 
*ZERO REGS 8, 6.* 
*GET INTRPT C0DE + 
♦ FROM OLD PSW ♦ 
♦DOUBLE CODE TO ♦ 
♦INDEX MSG TABLED 
***************** 



*****B2********** 
♦GET MSG LENGTH * 
♦AND DISPLACEMNT* 
♦FROM TBL TO USE+ 
♦WITH TXTAB FOR ♦ 
♦APPROPRIATE MSG^ 
***************** 



*****C2********** 

♦ BLANK AREA OF ♦ 

♦ 91 BYTES FOR ♦ 

♦ OUTPUT MSG ♦ 
♦ASSEMBLY. WIPES+ 
♦OUT PREV INSTS ♦ 
***************** 



*****Q2********** 

* BLANK AREA OF * 

* PREV USED TBL * 
♦FOR USE AS 2ND ♦ 

♦ OUTPUT MSG ♦ 

♦ AREA ♦ 
***************** 



*****£ 2********** 

♦ USE EXEC INST ♦ 
♦TO MOVE MSG TO ♦ 

♦ OUTPUT AREA ♦ 
♦REGS8 AND 6 HAD+ 

♦ MSG ADDR, LNG ♦ 
***************** 



*****P2********** 
♦PT REG 8 TO OUT* 
♦PUT AREA, INDEX* 

♦ BY MSG LENGTH ♦ 

♦ MOVE NEXT ♦ 
♦PART OF MSG IN ♦ 
***************** 



*****H2*****^+^+ 
♦LOAD DATA ADDR ♦ 
♦LABELED LSLINE ♦ 
♦INTO CCWLG AND ♦ 

♦ CCWLS VIA ♦ 

* REG 1 * 
***************** 



*****J2********** 
*PUT APPROPRIATE^ 
♦DATA ADDRS INTO^ 
♦CCWLG1, CCWSKP ♦ 

♦ CCWLOG AND ♦ 

♦ CCWLST ♦ 
***************** 



♦.ASSIGNED .♦ 



.♦SYSLOG ♦. 
.♦AND SYSLST 
♦. THE SAME 
♦. DEVICE . 



**** 

♦ * 

♦ 3 ♦ X. 

♦ ♦ RLCCB X 

**** *****A4********** 

♦ LOAD ADDR OF ♦ 
NO ♦CCW APPROPRIATE^ 

♦TO DEV IN REG 1* 
♦STORE CCW ADDR ♦ 

♦ IN CCB ♦ 
***************** 



*****B4********** 
♦PRINT RU* 
*_*_*_*_*-*_*_*_* 

♦ WRITE MSG ♦ 

♦ ON I/O DEVICE ♦ 

♦ * 
***************** 



**** 

* * 

* 4 *.X 

* * 
**** 



*****C3********** 

* STORE SYSLOG * 

* SYM UNIT ADDR * 

* AND ADDR OF * 

* CCWLG IN CCB * 

* * 
***************** 



*_*_*_*_*_ 



***************** 



♦RU-F2 
RU-K2 
**** 



TPTYPE 


.*. 

A5 *. 

* *. 




NO .♦ 


BG * 




.. .♦. 


PROGRAM 


* 


♦ 


.* 
*. .* 




X 


♦ . .♦ 




***** 


♦YES 




*RU * 


**** 


♦ F2^ 


• ♦ 


* 


* * 


...♦ RU 


* 


* 


♦ K2* 




X **** 


TPTYPE1 .♦. 






B5 *. 






* *. 




YES .♦ 


IS * 




. • .♦. 


SYSLST 


* 


♦ . 


A DISK .* 






*. .* 




X 


*. .* 




**** 


♦ NO 




* * 






* 7 ♦ 








* * 








**** 










X 




*****C5********** 


♦STORE DATA ADDR^ 


♦OF 


TPLINE INTO 


* 


* 


CCWTP VIA 


* 


* 


REG1 


* 



* ♦.x 

* * * 
**** 

TERM X 

*****04********** 

* LOAD ADDR IN * 

* REG 1 OF * 

* NAME * 

* $$BDUMP ♦ 

* * 
***************** 



****E4********* 

♦ SVC 2 ♦ 

♦ $$BDUMP ♦ 

♦ CHART RV ♦ 
*************** 



***************** 



*****Q5********** 

♦STORE DATA ADDR^ 

♦ OF TPLN INTO * 
♦CCWTAP VIA REGL* 

♦ LOAD ADDR OF ♦ 

♦ CCWTP IN REG1 * 
***************** 



**** 

* * 

* 3 ♦ 



**** 

* * 

* 5 ♦ 

* * 
**** 



*****F3********** 
♦RESET CATAL AND+ 

♦ SUPVR UPDATE ♦ 

♦ BITS IN JCSW1 ♦ 
♦SET CANCEL BIT 



♦ IN JCSWO ♦ 


**** 




***** 


***************** 


* * 




*RU * 




* 5 ♦ 




* B2* 


**** * 


* * 




**** * * 


* * 


**** 




* * * 


* 8 ♦... 


. 




* 7 ♦.X. 


* * . 






* * . 


**** X 






**** 


LST .*. 


FGJOB X 




DKTYPE X 


G3 *. 


*****G4********** 


*****G5********** 


.* *. 


* GET SYSTEM 


* 


* LOAD ADDR OF ♦ 


.♦ SYSLST ♦. NO 


♦ LUB INDEX 


* 


*DIB INTO REG 5 ♦ 


♦. ASSIGNED ...... 


♦ FOR THIS 


* 


♦INDEX 72 BYTES ♦ 


♦ . .* 


♦ PARTITION 




♦ TO POINT TO ♦ 


*. .♦ 


* 


* 


♦ SYSLST DIB ♦ 


♦ . .♦ X 


***************** 


***************** 



SETLOGUN X 

*****H3********** 
♦STORE SYM UNIT ♦ 
♦ADDR FOR SYSLST* 
♦IN CCB ZERO REG+ 
♦ 5 AND LOAD IN ♦ 
♦PUB ENTRY PNTR ♦ 
***************** 



*****J3********** 
♦CALC PUB TABLE ♦ 
♦DSPLT IN REG 5 ♦ 
♦ADD PUBTAB ADDR+ 

♦ IN REG 6. GET ♦ 

♦ SYSLST ENTRY ♦ 
***************** 



*****H4********** 

♦ * 

♦ CALCULATE ♦ 

♦ LUB TABLE ♦ 

♦ ENTRY ♦ 

♦ * 
***************** 



*****K2********** 




K3 *. 


♦LOAD LUB TABLE 


* 




.* *. 


♦ ADDR IN REG 4 


* 


.* 


SYSLST *. NO 


♦LOC SYSLOG AND 


* 


*. 


DEVICE A .*.... 


♦TEST IF SYSLOG 


* 


* 


PRINTER .♦ 


♦ IS ASSIGNED 


* 




♦ . .* 


***************** 




♦ . .♦ X 








♦YES ♦♦♦♦ 
♦ 
* 6 


* 






X 






X ♦ 


**** 






**** **** 


* * 






* * 


* 2 ♦ 






* 3 * 


* * 






* * 


**** 






**** 



*****H5********** 
♦COMPARE CURRENT* 
* ADDR WITH END * 
♦ADDR IN SYSLST ♦ 
♦DIB FOR EXTENT ♦ 
♦FULL CONDITION * 
***************** 



SYSLST 
EXTENT 
FILLED 



*****K5********** 

* STORE CURRENT * 

* ADDR FROM * 

* SYSLST DIB * 

* INTO SEEK ♦ 

* CCWDK * 
***************** 



***** 
*RU ♦ 
* Bl* 
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Chart RU. $$BPCHK - Set Up for I/O and Output the Message 
Refer to Chart 17. 



***** 

*RT * 
* K5* 



*****3i********** 

* MOVE COUNT ID * 

* INFO FROM * 

* CURRENT ADDR * 
*T0 OUTPUT AREA * 

* AS CCHHRKDD * 
***************** 



*****C 1 ********** 
*MOVE CCHHR FROM* 
♦CURRENT ADDR TO* 
♦SRCHBCKT FIELD * 

* REDUCE RECORD * 

* NO. BY 1 * 
***************** 



*****D1 ********** 

* LOAD REDUCED * 

* SRCHBCKT ADDR * 
*INT0 SEARCH CCW* 
♦AND SEARCH1 CCW* 

* * 
***************** 



*****E1 ********** 

* STORE ADDR OF * 

* SEARCH CCW IN * 
*TIC CCW AND OF * 
*SEARCH1 CCW IN * 

* TIC1 CCW * 
***************** 



*****A2******* 

* MODIFY INST* 

* AT MVC TO USE* 

* DKLN AREA AS * 

* MSG 2ND LINE * 

* OUTPUT AREA* 
************** 



*****B2******* 

* MODIFY INST* 

* AT LA SO DKLN* 
*ADDR WILL LOAD * 

* IN CCW AS NEW* 

* DATA ADDR * 
************** 



***** 
*RT * 
* G5* 



***** 
*RT * 
* A5* 



****A4********* 

* * 

* PRINT * 

* * 
*************** 



* LOAD CCB * 

* ADDR INTO * 

* REG 1 * 

* * 
***************** 



******C4*********** 



************* 



.* I/O *. YES 
. OPERATION .*. 
♦.COMPLETE .* 



****E4********* 

* SVC 7 ♦ 

* PROB PROGRAM * 

* WAIT * 
*************** 



*****Fi ********** 




F2 ♦. 




♦STORE DATA ADDR* 




.♦ ♦. 




♦OF DKLINE OUTPT* 




.♦ IS I/O *. NO 


* AREA IN WCKD * 




♦.DEVICE A TAPE.*. 




*CCW.LD ADDR OF * 




♦. DRIVE .♦ 




*CCWDK IN REG 1 * 




♦ . .* 




***************** 




*. .* 


X 






♦ YES 


***** 
*RT * 
* D4* 


X 






* * 

* 


.*. 




X 




Gl *. 




*****G2 ********** 




. * - * . 




♦ STORE ADDR OF ♦ 




.* SWITCH *. BR 


♦ INST LBLD ON- ♦ 




♦.BRANCH ON 2ND.*. 




♦ LIST INTO CCW ♦ 




*.TIME THRU.* 




♦ TO RCV SENSE ♦ 




*. .* 




♦DATA FROM TAPE * 




*. .♦ 


X 


***************** 




♦ NOP 


***** 

*RT * 

* A4* 

* * 

* 






X 




X 




*****Hl******* 




*****H2 ********** 




* * 




* * 




♦ SET SWITCH ♦ 




* STORE ADDR * 




♦ AT NOP TO ♦ 




* OF CCW SENSE * 




♦ BRANCH * 




* IN CCB * 





****F4********* 

* RETURN * 

* VIA R14 * 

* * 
*************** 



************** 



*****jl*#******** 

* * 

♦ STORE ADDR ♦ 

♦ OF CCW FROM * 
♦REG 1 INTO CCB ♦ 

* * 
***************** 



*****Kl ********** 
♦PRINT RU* 

*_*_*_*-*_*_*-*_* 

♦ WRITE FIRST ♦ 
♦LINE OF MSG AS ♦ 

♦ REC ON DISK ♦ 
***************** 



***************** 



*****j2********** 
♦PRINT RU* 
*_*-**.*_*_*_*_*_* 

♦ SENSE FOR * 

♦ FILE PROTECT * 

♦ ON TAPE DRIVE * 
***************** 



* TAPE 

DRIVE FILE 
♦.PROTECTED. 



**** 

* * 

* 1 * 

* * 

**** 



***** 
*RT * 
* B5* 
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Chart RV. $$BDUMP - Monitor Background Program Dump 
Refer to Chart 16. 



***** 

*RW * 
* B3* 



****A1********* 

* *$BDUMP * 

* *A2 * 
*************** 



*****Bl********** 

* * 

* INITIALIZE * 

* REGISTERS * 

* *B2 * 

* * 
***************** 



*****d******* 

* TURN ON * 

* CANCEL FLAG * 

* IN PIB ASSIGN 

* FLAG BYTE * 

* * 
************** 



*A2 
ENTERED VIA SVC 2 
ISSUED BY 

$$BPCHK 

$$BILSVC 

$$BPSW 

AND DIRECTLY 
FROM PROBLEM 
PROGRAM WHEN 
ISSUING A 
DUMP MACRO. 



1. ADDR OF PIB FOR 

THIS PARTITION *. 

IN PIBREG. 

2. SAVE AREA ADDR 
IN REG 9. 

3. LUB TABLE ADDR 
IN R4. 

4. PIB TABLE ADDR R6. 

5. CLEAR TAPE INDICATOR REG. 



SYSLST 

A TAPE 

DRIVE 



*****C3********** 

* SET TAPE * 

* INDICATOR REG * 

* 12 FOR CALLED * 

* DUMP PROG TO * 
*IDENT TAPE JOB * 
***************** 



***** 
*RW * 
* Al* 



DUMP 

MACRO 

CALL 



Fl *. 
.* DUMP *. 

SWITCH *. NO 
IN COMREG .*... 



PRINTER 

*****03********** 

* LOAD REG 1 * 

* WITH ADDRESS * 

* OF NAME * 

* $$BDUMPB * 

* * 
***************** 



****E3********* 

* SVC 2 * 

* $$BDUMPB * 

* CHART SB * 
*************** 



**** 

* * 

* 3 * 



DSKRT X 

*****B5** ******** 

* LOAD REG 1 * 

* WITH ADDRESS * 

* OF NAME * 

* $$BDUMPD * 

* * 
***************** 



*****C 5 ********** 



***************** 



****D5 ********* 

* SVC 2 * 

* $$BDUMPD * 

* CHART SG * 
*************** 



CANCEL 
MACRO 
CALL 



X. 

X 
SYSTST .*. 

HI *. 

.*SYSLST *. 

.* ASSIGNED 

*. IN LUB 

*. TABLE . 

*. .* 

*. .* 



*****j 1********** 

* LOCATE PUB * 

* ENTRY * 

* ASSOCIATED * 

* WITH * 

* SYSLST * 
***************** 



**** 

* * 

* 2 * 

* * 
**** 



SETCODE X 

*****H3******* 

* MOVE X'LO" * 

* CANCEL CODE 

* INTO PIB 

* FOR NORMAL 

* EOJ * 
************** 



***** 
*RW * 
* D3* 



SYSLST 




* 


YES 


A DISK 






*.... 


DRIVE 


* 


.* 


• 


*. .* 






X 


*NO 






**** 

* 3 

* 3 ' 


X 






* = 


**** 






**** 



*****J3********** 

* LOAD REG 1 * 

* WITH ADDRESS * 

* OF NAME * 

* $$BEOJ * 

* * 
***************** 



****«3********* 

* SVC 2 * 

* $$BEOJ * 

* CHART RA * 
*************** 
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Chart RW. $$BDUMP - Monitor Foreground Program Dump 
Refer to Chart 16. 



***** 

*RV * 
* Dl* 



FGJOB X 

**«**Al********** 

* CALC UPPER * 

* STOR LIMIT OF * 

* CANCELED PROG * 

* SAVE IN REG 8 * 

* * 
***************** 



TPTYPE 
NO .♦* 



SYSLST 

A 
TAPE 



CANCEL 
MACRO 
CALL 



NO .* DUMP 
. ..♦. MACRO 
*. CALL 



*****D1******* 

* MOVE X«10« * 

* CANCEL CODE ■ 

* INTO PIB 

* SIMULATE 

* NORMAL EOJ * 
************** 



NOCHNG 

*****£ 1********** 

* GET SYSTEM INDX* 

* FOR THIS * 

* PARTITION AND * 

* LOCATE SYSLST * 

* IN LUB. * 
***************** 



.♦SYSLST *. 
.♦ ASSIGNED *. NO 
THIS .♦..X 
♦.PARTITION.* 



*****Gl********** 

* DETERMINE * 

* PUB ENTRY * 
♦ASSOCIATED WITH* 
♦SYSLST FOR THIS* 

* PARTITION ♦ 

********: 



X 
.♦. 
B3 ♦. 
.♦ 
YES .♦ SYSLST 
...♦. A 
*. DISK 



X * 
***** 

*RV *DISKRT 
* B5* 



♦ NO 



TERM 

*****C3********** 

♦ LOAD REG 1 ♦ 

♦ WITH ADDRESS ♦ 

♦ OF NAME ♦ 

♦ $$BTERM ♦ 

♦ * 
***************** 



TAPE1 

*****B4********** 

♦ MOVE OATA ♦ 

♦ ADDRESS INTO ♦ 

♦ CCW AND CCB * 

♦ TO PREPARE ♦ 

♦ FOR SENSE I/O * 
***************** 



*****C4********** 

* SET TAPE * 

* INDICATOR REG ♦ 

* 12 FOR CALLED ♦ 

* DUMP PROG TO * 

* IND TAPE JOB ♦ 
***************** 



D3 *. 






*****D4**** ****** 


.♦ BATCH ♦. 






* LOAD ADDRESS ♦ 


YES .♦ JOB 


♦. 




♦ OF CCB FOR ♦ 


...♦. FOREGROUND 




* 


♦ SYSLST INTO ♦ 


♦.ENVIRON- . 


*" 




♦ REG 1 ♦ 


♦.MENT .♦ 






* * 


X ♦. .♦ 






***************** 


***** *NO 








♦RV ♦ 








* J3* 








* * 
* 








SETCODE+4 






X 

******E4*********** 


X 






****E3********* 


SVC 


♦ SVC 2 




* 


* EXECUTE ♦ 


♦ $$BTERM 




* 


SENSE 


♦ CHART RE 




* 


♦ COMMAND ♦ 


*************** 





************* 



****F4********* 

♦ SVC 7 ♦ 

♦ WAIT ♦ 

♦ * 
*************** 



.♦ SYSl 


.ST ♦ 


. NO 




♦. A PRINTER 


.♦ 






♦ . .* 








*. .* 








*. .* 






X 


♦YES 




**** 


**** 




* 




* * 






* 


2 


♦ 3 ♦.. 






* 




* * 






**** 


**** 










FETCH X 








*****jl********** 






♦ LOAD REG 1 


* 






♦ WITH ADDRESS 


* 






♦ OF NAME 


* 






♦ $$BDl 


JMPF 


* 







***************** 



****Ki********* 

♦ SVC 2 ♦ 

♦ $$BDUMPF ♦ 

♦ CHART RX ♦ 
*************** 
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pervisor and Physical and Logical Transients 



Chart RX. $$BDUMPF - Foreground Program Dump 
Refer to Chart 18. 



**** 
* * 

* 3 * 

* * 
**** 



****Ai********* 

* * 

* $$BDUMPF * 

* * 
*************** 



**** 

* * 

* 2 * 



*SKIP TO CHAN L * 
* AND WRITE HDR * 
*LINE OR TP RCD * 
***************** 



.* FLOATING *. NO 
♦.POINT FEATURE.*... 
*. SWITCH .* 
*. .* 
*. .* 
*NOOP 
.YES 



*****A5** ******** 

*REGPNT RZ* 
*_*_*_*_*_*_*..*_* 

* WRITE LINE * 

* OR RECORD OF * 

* LABEL INFO * 
***************** 



START X 

*****Bl ********** 

* COMP Fl * 

* IDENTIFIER * 

* X'30« WITH * 

* LOGICAL * 

* TRANSIENT KEY * 
***************** 



TAPRTN X 

*****B 2 ********** 

* LOAD ADDR OF * 
*TPLINE IN REG L* 
*STORE THIS ADDR* 

* IN CCW4 * 

* * 
***************** 



*****B3 ********** 

* GET REG SAVE * 

* AREA ADDRESS * 
*FROM REG 9 DE- * 
♦LIMIT 32 BYTES * 
*BY REGS 3 AND 5* 
***************** 



*****B4********** 
*CLEAR I/O AREA * 

* STORE FLT PT * 

* REGS DELIMIT * 

* REG SAVE INFO * 
*BY REGS 3 AND 5* 
***************** 



CORE1 X 

*****B5********** 
*CLEAR I/O AREA * 

* MOVE PRPROG * 

* HDG--F1— * 

* OR— F2-- IN * 

* * 
***************** 



*****C2******* 

* SET * 

* SWITCHES AT 

* OUTL AND AT 

* TAPNOP TO 

* BRANCH * 
************** 



*****C3 ********** 

* SET HDG FOR * 

* FIRST LINE OF * 

* GEN REGS AND * 

* CONTROL BYTE * 

* FOR TAPE * 
***************** 



*****Q4* ********* 
*REGPNT5 RZ* 
*_*_*_*_*_*_*_*_* 
*EDIT AND WRITE * 
♦FLOATING POINT * 
* REGS LINE * 
***************** 



WRITE PROB 

PROG HEADING 

LINE OR RCD 



*****□!********** 

* MOVE F2 INTO * 

* HDG REPLACING * 

* Fl PROGRAM * 
♦IDENTIFICATION ♦ 

* * 
***************** 



*****02 ********** 

* LOAD ADDR OF * 
*CCW4 INTO REG 1* 

* THEN STORE IT * 

* IN CCBL * 

* * 
***************** 



***** 03 ********** 
*REGPNT RZ* 
*_*_*_*_*_*_*_*_* 

* EDIT AND * 

* WRITE GENL * 

* REGS 0-7 * 
***************** 



SUPV X 

***** [34* ********* 
*REGPNT RZ* 
*_*_*_*_*_*_*_*_* 
*EDIT AND WRITE * 
* COMftEG FOR * 
*THIS PARTITION * 
***************** 



CORE X 

*****D5 ********** 

*LOAD LOW LIMIT * 
*PROBPROG IN REG* 
*7 TEST IF ADDR * 

* ON A CORRECT * 

* BOUNDARY * 



*****E1******* 
♦LOCATE IN PIB* 

♦ FOR F2 ITS ♦ 

♦ STARTING ADDR 

♦ MODIFY INST ♦ 

♦ TO LOAD REG 8 
************** 



STARTL X 

*****P1 ********** 

♦ LOAD AND TEST ♦ 

♦ TAPE REG 12 * 
*(SET BY $$BDUMP* 
*T0 IDENTIFY IF * 
*SYSLST IS TAPE)* 
***************** 



* 1 *... 

* * 
**** 

RELOCF X 

*****£ 2********** 

* STORE ADDR OF * 
*CCW4 INTO CCB2 * 
*LD A 4 IN REG 4* 
*AS WORK LENGTH * 

* INCREMENT * 
***************** 



*****F2********** 

* ZERO REG 12 * 
*FOR USE AS PAGE* 
*CTR. ZERO REG 2* 
*T0 USE FOR PAGE* 

* LINE COUNTER * 
***************** 



*****£ 3 ********** 
*POINT TO REG 8 * 

* INFO IN SAVE * 

* AREA CHANGE * 

* PRINT LINE * 

* HDR INFO * 
***************** 



SET SWITCH 

AT LST TO 

BRANCH 



*****£ 4**** ****** 

*PRNTLN SA* 
*_*_*_*_*_*_*_*_* 
*EDIT AND WRITE * 

* SUPVR PORTION * 

* OF MAIN STG * 
***************** 

**** '. 

* * 
*SA *... 

* A4* 
**** . 

SUPV1 X 

*****P4******* 

* SET SWS EOJ* 

* AND LAST LINE* 

* TO NOP STOPS * 

* INDEX OF * 

* ENDLIN INSTS* 
************** 



* CORRECT 

ADDRESS 

*. BOUNDARY 



*****P5 ********** 

* CORRECT REG 7 * 

* TO PT TO NEXT * 
♦MULTIPLE OF 16 * 

* BOUNDARY LF * 
*PROB PROG START* 
***************** 



*****G2********** 
♦STORE REG 8 IN * 
*SAVARA. IT HAS * 
*PROG UPPER LIM * 
*CALC AND SAVED * 
* BY $$BDUMP * 
***************** 



* EDIT REG 8 ♦ 

* * 
***************** 



.♦ ANY * 
. SPACE LEFT 
*. ON PAGE .* 



*****Q5 ******* 

* * 

* SET ALTER 

* SWITCH TO 

* NOP 

* * 



*****H1 ********** 

♦ SYSLST IS PTR ♦ 

♦ LOAD ADDR OF ♦ 

♦ PTLINE INTO ♦ 

♦ REG 1 ♦ 

♦ * 
***************** 



.♦ FLOATING ♦. NO 
.POINT FEATURE.*... 
*.0N SYSTEM.* 



SET SWITCH 
AT LST TO 

NOP 



♦SKIP TO CH 1 ON* 
* PTR WRITE HDR ♦ 
♦LINE OR TP RCD ♦ 
***************** 



.X 

C0RE2 X 

*****H5********** 

♦ LOAD ADDR GF * 
♦PROB PROG UPPERS 

♦ LIMIT FROM * 

♦ SAVARA INTO * 

♦ REG 8 . * 



*****jl ********** 

* STORE ADDR OF * 

* PTLINE FROM * 
*REG 1 INTO CCW * 

* AND CCW2 * 

* * 
********** 



****** 



*****j2******* 

* SET FPSW TO* 

* NOOP MODIFY * 

* INST POINTING 

* TO LOW LIMIT * 

* OF PROG ♦ 
************** 



*****j3********** 

* SET LOWER ♦ 
♦AND UPPER SAVE ♦ 

* AREA LIMITS ♦ 

* FOR REGS 8-15 * 
♦IN REGS 3 AND 5* 
***************** 



C0RE3 X 

*****j 4**** ****** 

*MOVE LABEL HDG * 
*T0 OUTPUT AREA * 
*POINT TO LABEL * 

* LNG INFO WITH * 

* REGS 3 AND 5 * 



*WRITE PROB PROG* 
♦PORTION MAIN ST* 
#AND TM IF NEED * 
***************** 



*****Ki ********** 
*LOAD ADDR CCWO * 

* IN REG 1 THEN * 

* STORE IT IN * 
*CCB1 LOAD CCW2 * 
*ADDR INTO REG 1* 
***************** 



NOTEST X 

****** 2********** 
*CLEAR 115 BYTES* 
*0F STG UP TO X * 
*«86' THIS WIPES* 

* OUT PREVIOUS * 

* INSTS * 
***************** 



****** 3 ********** 
*UNPK RZ* 

*-*_*_*_*_*-*_*-* 
*EDIT AND WRITE * 

* GENL REGS * 

* 8-15 * 
***************** 



*****K4******* 

* * 

* SET 

* ALTER3 SW 

* TO NOP 

* * 
************** 



***** 
*SA * 
* D4* 



**** 

* * 

* 3 * 
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Chart RY. $$BDUMPF - Prepare Page Headings and PIOCS Subroutines 
Refer to Chart 18. 



****A1 ********* 

* * 

* PAGHED * 

* * 
*************** 



PAGHED 

*****B1 ********** 

* MOVE CHAR 1 * 
♦INTO TPLINE AS * 

* CONTROL BYTE * 

* FOR TAPE * 

* OUTPUT * 
***************** 



*****£ 1********** 

* EXEC INST * 

* USED TO CLEAR * 

* 120 BYTE * 

* PTLINE AREA * 

* * 
***************** 



*****D i ********** 

* INCREMENT * 

* REG 12 FOR * 

* PAGE COUNT * 

* CONV TO DCML * 
♦STORE SAVE AREA* 
***************** 



*****£!********** 

* UNPK PAGE NO * 

* PUT IN HDR * 

* ASSEMBLY AREA * 

* CLEAR SIGN * 

* * 
***************** 



.*. 

Fl *. 

.* HIGH *. 

.♦ORDER DIGIT*. 

. OF PAGE NO . 

*. ZERO .* 



*****Gl ********** 

♦ SUPPRESS * 

♦ LEADING ZEROS ♦ 
♦BY MOVING BLANKS 

♦ INTO HI ORDER ♦ 
♦DIGIT OF PG NO * 
***************** 



HI *. 
.* 2ND *. 
.* HI ORDER *. NO 
♦.DIGIT OF PAGE.*..X 
♦.NO. ZERO .♦ 



*****jl********** 
♦SUPPRESS LEAD- ♦ 
♦ING ZEROS -MOVE* 
♦BLANK INTO 2ND ♦ 
♦HI ORDER DIGIT * 
*0F PAGE NUMBER * 
***************** 



**** 

* * 

* 1 * 

* * 
**** 



*****B2********** 

* MOVE JOB DATE * 

* FROM COMREG * 

* AND PAGE NO. * 

* TO PRINT LINE * 

* ASSEMBLY AREA * 
***************** 



*****C2********** 

* * 

* LOAD ADDR OF * 

* CCB1 INTO * 

* REG 1 * 

* * 
***************** 



*****D2********** 

* INSERT LINE * 
♦COUNT PER PAGE ♦ 

* FROM COMREG * 

* INTO REG 2 * 

* * 
***************** 



*****£ 2********** 

* * 

* DECREMENT * 

* LINE COUNT 4 

* BY 1 * 

* * 
***************** 



LINE 

COUNT 

ZERO 



*****G2********** 



***************** 



*H2 
SINGLE LINE COUNT IS SET 
JUST PRIOR TO THIS 
POINT, IT WILL NEVER 
BE ZERO HERE AND NEXT 
SEQ INST WILL NOT BE 
REACHED FROM THIS 
POINT. IF NO LINE 
COUNT WAS SET BY 
PROGRAMMER AN ASSUMED 
VALUE WAS ASSIGNED AT 
SUPVR GENERATION TIME. 



***** 


**** 


*RZ ♦ 


* * 


♦ J5* 


* 3 * 


**** * * 


* * 


* * * 


**** 


♦ 2 *.X. 




* * . 




**** 




INT , X 


TAPSYS X 


******B3*********** 


*****B4********** 




* * 


* SVC * 


* TEST FOR * 


♦ F5 


♦ EOF ON ♦ 


* * 


♦ TAPE ♦ 



************* 



*****Q3 ********** 

* * 

* REDUCE LINE * 

* COUNT BY 1 * 

* IN REG 2 ♦ 

* * 
***************** 



.♦ I/O 
. OPERATION 
♦.COMPLETE . 



***************** 



C4 * 
* 

EOF 

ON 

TAPE 



*****04********** 

* LOAD X«0003« * 

* INTO REG TO * 
*GIVE CLASS AND * 
♦UNIT NO OF DEV * 
♦FOR EOV RETURN * 
***************** 



****D5********* 

* RETURN TO * 

* ADDR IN LINK * 

* REG 14 ♦ 
*************** 





X 






*****E4******* 






****E3********* 






* OR INTO * 






♦ SVC 7 * 






* COMREG+89 * 






* PROB PROG * 






*A X'02' TURNING* 






* WAIT * 






* ON EOV RETURN* 






*************** 






* SWITCH * 
************** 


♦ F5 




!x 








IF SYSLST IS 




X 






PRINTER IN PAGHED 


TAPNOP .♦. 




X 


SUBROUTINE SKIP 




F3 *. 




*****P4********** 


TO CHANNEL 1 ' 




.* SW *. 




* LOAD ADDRESS * 


PRINT PAGE HDR 




.* IF SYSLST *. BR 




* INTO REG 1 * 


AND DOUBLESPACE. 




*.IS TAPE DRIVE.*.... 




♦ OF NAME ♦ 


FROM REGPNT 




*. BRANCH .* 




♦ $$BCMT07 ♦ 


SUBROUTINE ONE 




*. .* 




* * 


LINE PRINTS AND 


X 


*. .* X 




***************** 


ONE SPACE IS 


**** 


*NOP **** 




TAKEN. IF SYSLST 


* 


* 


* 




IS A TAPE DRIVE 


2 ♦ 


♦ 3 


* 




A TAPE RECORD IS 


* 


♦ 


* 




WRITTEN. 


**** 


*j 


!<** 







****G3********* 

♦ RETURN ♦ 
♦TO ADDR IN LINK* 

* REG 14 * 
*************** 



****G4********* 
*SVC 2 $$BCMT07 * 

* LIOCS PLM * 

* Y24-5020 * 
*************** 



* MOVE JOBNAME * 

♦ TO PAGE HDG ♦ 

♦ ASSEMBLY AREA ♦ 

* * 
***************** 
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Chart RZ. $$BDUMPF - Prepare and Edit a Line Subroutine 
Refer to Chart 18. 



**** A 1 ********* 

* # 

* REGPNT * 

* * 
*************** 



REGPNT 

*****Bl ********** 

* MOVE X'EF 1 TO * 

* AREA CALLED * 

* LINE+8 FOR * 
*ASSEHBLY OF I/O* 

* OUTPUT DATA * 

***************** 



REGPNT5 X 

*****C ].********** 

* LOAD ADDR OF * 
*FSTWD IN REG 6 * 

* REG 6 WILL * 

* POINT TO LOCS * 

* ALONG LINE * 
***************** 



REGPNT1 

*****0l ********** 

* . LOAD A 4 * 

* INTO REG TO * 

* INITIALIZE * 

* COUNTER * 

* * 
***************** 



* 6 



**** 
UNPK X 

*****£!*#******** 

* MOVE 4 BYTES * 
*FR0M SAVE AREA * 

* POINTED TO BY * 
♦REG 3 INTO AREA* 

* NAMED WORK * 



*****H1********** 

* SEPARATE REGS * 

* WITH BLANK 

* PRINTABLE 

* CHARACTER 
* 
************** 



**** 

* * 

* 3 * 



****B2********* 

* * 

* REGPNT5 * 

* * 
*************** 



****02********* 

* * 

* UNPK * 

* * 
*************** 



***************** 



*C4 
ON FIRST TIME THRU 
LOOP FOR 2ND REG 
LINE BR WILL OCCUR 
IMMED SINCE NO NEW 
LIMIT YET SET 
IN REG 5. 



*****D 3 ********** 

* MOVE BLANK * 

* PRINTABLE * 

* CHARACTER TO * 

* LABEL FSTWD * 

************ 



:**** 



*****£ 3 ********** 

* BLANK OUT * 

* ADDITIONAL 17 * 

* BYTES (FIRST * 

* TWO WORDS) * 

* * 
***************** 



UNPKl X 


BLNK2 X 


X 


*****P1** ******** 


*****F2********** 


*****F3*****# 


* * 


* * 


* 


* DECREMENT * 


* MOVE BLANKS * 


* SET ALTER 


* COUNTER IN * 


* TO FSTWD+4 * 


* SWITCH TO 


* REG BY 1 * 


* * 


* BRANCH 


* * 


* * 


* 


***************** 


***************** 


************* 

**** '. 

* * 

* 4 *. . . 

* * .X... 
**** X 


X 


X 


ALTER1 .*. 


*****Gi ********** 


*****G2******* 


G3 *. a 


* UNPK 4 BYTES * 


* * 




* FROM REG SAVE * 


* SET ALTER3 * 


.** REG 


* AREA PUT INTO * 


* SWITCH TO * 


*. EQUAL 


* LINE AREA * 


* BRANCH * 


*. 


* * 


* * 


*. .* 


***************** 


************** 

**** * 

* * 

* 2 *... 

* * 
**** x 


*. .* 
*YES 


X 


ALTER .*. 


X 



ALTER2 X 

*****B5 ********** 

* INCREMENT * 

* REG 6 BY 9 * 
*FOR NEXT UNPKD * 

* WORD PRINTING * 

* LOCATION * 
***************** 



*****C5** ******* 
*ADD REG 3 TO 4. 

* CMP TO REG 5 

* TO SEE IF ALL 
*WORDS IN LIMIT 

* OF LINE UNPKD 
**************** 



.* NEXT *. YES 

*. WORD BEYOND .*.... 

*. LIMIT .* 

*. *C4 .* 



* 6 * 

* * 
**** 

LST 



X 


**G5******* 


****G4********* 


* TRANSLATE * 


* RETURN * 


* I/O OUTPUT 


*TO ADDR IN LINK* 


* AREA TO PRINT 


* REG * 


* CHARACTERS 


*************** 


* * 



*****H3********** 

* INCREMENT * 

* LINE LOCATION * 

* COUNTER REG 6 * 

* BY 2 * 



****H4***** 
* 
* PRNTL 

*********** 



*NQP **** 

* * 

* 2 * 
X * * 

**** **** 

* * 

* 1 * 

* * 
**** 



* 3 * 

* * 
**** 



*****J3********** 

* * 

* LOAD 4 INTO * 

* REG TO * 

* RESET COUNTER * 



*****j5********** 

* * 

* LOAD ADDR * 

* OF CCB2 * 

* INTO REG 1 * 

* * 
***************** 



* B3* 

* 
PRINT 
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Chart SA. $$BDUMPF - Line Test Subroutines 
Refer to Chart 18. 



****Al********* 

* * 

* PRNTLN * 

* * 
*************** 

**** 

* * 

* 8 * 

* * 
**** 

PRNTLN X 

*****B1********** 
♦TSTCOR SA* 
♦-♦-*-*-*-*-*-*-* • 
♦TEST IF ADDR IN* 
♦LIMIT OF PRESNT* 

* DUMP PORTION * 
***************** 

**** 

* * 

* 7 * 

* * 
**** 

LSTLN X 

*****C1********** 

* SET AND * 

* TRANSLATE * 

* LOCATION CTR * 

* REG 7 AS LINE * 
♦IDENTIFICATION * 
***************** 



ENDLIN 

*****Dl********** 

* IF LAST LINE * 

* COND REG 7 IS * 

* INDEXED 48 * 
♦BYTES TO PT TO ♦ 
♦LAST LINE ADDR ♦ 
***************** 



*****E1 ********** 

*REGPNT RZ* 
*-*_*_*_*_*_*_*_* 

♦EDIT AND WRITE ♦ 

♦ LINE NOW IN ♦ 

♦ OUTPUT AREA ♦ 
***************** 



**** 

* * 

* 1 * 

* * 
**** 



****A3********* 

* * 

* TSTCOR ♦ 

* * 
*************** 



TSTCOR 

*****B3********** 

♦PT REG 3 TO 48 * 

* BYTE STG AREA * 
*PT REG 5 TO END* 

* FOR ONE PRINT * 
♦LINE OR RECORD ♦ 
***************** 



A4 ♦. 

.♦ SW ♦. 

* NOP ♦ 

AFTER SUPVR 

♦. PART OF .♦ 

♦.DUMP .♦ 



*****C2******* 

* SET TSTPRT ♦ 

* AND TSTLST1 

* SWITCHES TO 

* NOP 

* * 
************** 



*****D3********** 
♦PAGHED RY* 
*_*_*_*_*_*_*_*-* 

* SKIP TO 1 ON * 
*PTR WRITE PAGE * 
♦HDR LINE OR RCD* 
***************** 



♦ 4 



**** 
BTSTCR X 

*****G1********** 
♦TSTCOR SA* 
*_*-*-*_*.*-*_*-.* 

♦TEST IF ADDR IN* 
♦LIMIT OF PRESNT* 
♦ DUMP PORTION ♦ 
***************** 



*****Hl ********** 

♦ COMPARE CHARS ♦ 

♦ TO SEE IF ♦ 

♦ NEXT LINE ♦ 
♦- SAME AS ONE ♦ 

♦ JUST WRITTEN ♦ 
***************** 



***** j i ********** 

♦ INCREMENT * 

♦ REG 7 BY 48 * 
♦BYTES, POINT TO* 

♦ START ADDR ♦ 

♦ OF NEXT LINE ♦ 
***************** 



****G2********* 

* RETURN * 
*TO ADDR IN LINK* 

* REG * 
*************** 



**** 
FDEOJ X 

*****H2********** 

* * 

* LOAD REG 1 * 

* WITH ADDR * 

* OF SSBEOJ * 

* * 
***************** 



****J2********* 

♦ SVC 2 ♦ 

♦ $$BEOJ ♦ 

♦ CHART RA ♦ 
*************** 



CMPCOR 

*****E3 ********** 

♦ COMPARE REG 5 ♦ 
♦END OF LINE PNTR 
♦TO REG 8 LIMIT ♦ 

* OF PRESENT * 
♦PORTION OF DUMP* 
***************** 



YES .♦ LINE ♦. 
...♦.TO BE PRINTED. 
♦.STILL IN .♦ 
♦ .LIMITS 



*****G3********** 
♦LD REG 8 LIMIT ♦ 

♦ INTO LINE END ♦ 

♦ REG 5 TO SET ♦ 
♦EXACT DUMP END ♦ 
♦CLEAR I/O AREA ♦ 
***************** 



*****H3******* 

* * 

* SET LAST 

* LINE SWITCH 

* TO BRANCH 

* * 
************** 



***** 

*RX *SUPV1 

* F4* 



♦NOP 



.♦. 

B4 ♦. 

♦ BR IF ♦ 

SYSLST 

IS TAPE 

DRIVE 



OUT2 X 

*****C4********** 

* LOAD * 

* ADDRESS * 

* IN REG 1 * 

* OF NAME * 

* $$BTERM * 
***************** 

**** 



*RX * 
* J5* 
**** 



TSTLST X 

*****B5********** 
*GET ENDING ADDR* 

* OF NEXT LINE * 

* TEST IF IT IS * 

* LAST LINE * 

* * 
***************** 



NEXT 
LINE LAST 
. LINE 

*. .* 



*****D5********** 

* PREPARE FOR * 

* LAST LINE BY * 

* INDEXING * 

* ENDLIN INSTS ♦ 

* BY X«30' ♦ 
***************** 



****E4********* 

♦ SVC 2 ♦ 

♦ $$BTERM * 

♦ CHART RE ♦ 
*************** 



TPMARK X 

*****G4********** 
♦LD ADDRESSES OF* 
♦CCW'S IN REG 1 * 

* STORE CCW5 * 
♦ADDR FROM REG 1* 

♦ INTO CCB2 ♦ 
***************** 



*****H4********** 
♦PRNTL RZ* 
*_*_*_*_*,.*_*_*_* 

♦ WRITE TAPE ♦ 

♦ MARK ♦ 



********* 



******* 



**** 

* * 

* 2 * 

* * 
**** 



*****j4******* 

* CHANGE CCW5* 
*TO BSR COMMAND* 

* SET TAPSYS1 * 

* SWITCH TO * 

* UNCOND BR * 
************** 



*****K4********** 

* * 

* LOAD ADDRESS ♦ 

* OF OUT2 ♦ 

* INTO REG 14 ♦ 

* * 
***************** 



TSTLST1 .♦. 






E5 *. 






* *. 


BR . 


*' 


SW *. 


...♦« 




NOP IF 2 


; 


*. 


LINES .* 

♦.SAME .♦ 


X 




*. .* 






*NOP 


* 




**** 


7 ♦ 




* 


* 




...* 3 


**** 




* 
X **** 


TSTPRT 


.*. 






F5 *. 






* *. 


BR 


* 


SW *. 


. . .♦ 




NOP IF 2 


* 


* 


LINES .* 
*.SAME .* 



**** 



CLRLIN X 

*****G5********** 

* CLEAR OUTPUT * 

* LINE AREA * 

* SET UP * 

* —SAME— * 

* * 
***************** 



♦WRITE LINE WITH* 

* STG LOC INDEX * 

* AND —SAME— * 
***************** 



*****j5******* 

* SET SWS * 

* AT TSTPRT 

* AND TSTLST1 

* TO BRANCH 

* * 
************** 



ENDLIN1 

*****K5********** 

* LOAD ADDR OF * 
♦LAST LINE FROM * 

* REG 7 PLUS * 

* 48 BYTES ON * 
♦LAST LINE COND.* 
***************** 



***** 
*RZ * 
* J5* 
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Chart SB. $$BDUMPB - Initialization for BG Storage Dump on Printer or Tape 
Refer to Chart 18. 



****Al********* 

* * 

* SSBDUMB * 

* * 
*************** 



**** 

* * 

* 3 * 

* * 
**** 



START X 

*****Q I ********** 

* LOAD ADDRESS * 

* OF PTLINE * 

* OUTPUT AREA * 

* FOR PRINTER * 

* INTO REG 4 * 
***************** 



*****B3********** 

* LOAD ADDRESS * 

* OF SKIP TO * 

* CHANNEL 1 * 

* CCW INTO * 

* REG 1 * 
***************** 



.♦ FLOATING ♦ . 
.POINT FEATURE. 
*. PRESENT .* 



*****d ********** 

* TAPE REG * 

* SET BY * 

* $$BDUMP * 

* IS TESTED * 

* * 
***************** 



RELOC X 

*****Q3 ********** 

* STORE ADDRESS * 

* OF OUTPUT * 

* AREA FROM * 

* REG 4 INTO * 

* WRITE-CCW * 
***************** 



*****C5******* 

* NOP BRANCH * 

* SWITCH FPSW 

* SO FLT POINT 

* REGS WILL 

* DUMP * 
************** 



SYSLST 

A 

TAPE 



*****D3 ********** 

* STORE ADDRESS * 

* OF EITHER * 

* CCWO OR CCW1 * 

* INTO CCB. * 

* * 
***************** 



NO .* MULTI ♦ . 
X..*. PROG SYSTEM .* 
♦ENVIRONMENT* 



TPRTN X 

*****E1 ********** 

* LOAD ADDRESS * 

* OF CCW1 FOR * 

* TAPE INTO * 

* REG 1 * 

* * 
***************** 



*****E3********** 

* * 

* LOAD ADDRESS * 

* OF CCB * 

* INTO REG 1 * 

* * 
***************** 



*****£ 5********** 

* MOVE X'78' * 

* INTO CORE+3. * 

* GET INDICATOR * 

* TO PROB PROG * 

* BEGIN POINT * 
***************** 



*****FL********** 

* DECREMENT * 

* REG 4 BY 1 TO * 
♦POINT TO ADDR. * 

* OF TPLINE * 

* * 
***************** 



*****F3********** 

* LOAD WORD * 
♦LENGTH CONSTANT* 

* WRDLTH INTO * 

* REG 4 * 



X. 

NOTEST X 

*****F5********** 

* BRANCH AROUND * 

* INSTRUCTIONS * 
*USED TO MODIFY * 

* PROGRAM FOR * 

* FP AND MPS * 
***************** 



*****Gl ********** 

* MODIFY MVI * 

* INSTRUCTIONS * 

* THAT SET UP * 

* CCW OP CODES * 
♦FOR TAPE OPER. * 
***************** 



*****G3********** 

* * 

* ZERO REG L2 * 

* TO USE FOR * 

* PAGE COUNT ♦ 

* # 
***************** 



***** 

♦ SD ♦ 

* Bl* 



*****Hi********** 

♦ SET CCW FOR * 

♦ COUNT OF 121 ♦ 
♦AND NOP PRTRET * 
♦FOR TAPE OPER. ♦ 

♦ * 
***************** 



*****H3 ********** 

♦ ZERO REG 2 ♦ 

♦ TO USE FOR ♦ 

♦ LINES PER ♦ 

♦ PAGE COUNT ♦ 

♦ * 
***************** 



*****J3********** 

* GET BEGIN ♦ 

* AND END OF * 

* FIRST LINE OF * 

* REGS INTO REG * 

* 3 + 5 * 
***************** 



**** 

* * 

* 3 * 

* * 
**** 
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Chart SC. $$BDUMPB - BG Dump on Printer or Tape 
Refer to Chart 18. 



**** 

* * 

* i * 

* * 

**** 



**** A 1 ********* 

* * 

* GPR * 

* * 
*************** 



*****Bl ********** 

* SET HDG FOR * 

* FIRST LINE * 

* GENLREGS AND * 

* CONTROL BYTE * 

* FOR TAPE * 
***************** 



*****Q1 ********** 

*REGPNT SE* 
*_*_*_*_*_*_*_*-* 

* EDIT AND * 

* WRITE GENL * 

* REGS 0-7 * 
***************** 



*****0i ********** 
*P0INT TO REG 8 * 
*SAVE AREA INFO.* 

* CHANGE PRINT * 
*LINE HDR INFO. * 

* * 
***************** 



*****(=!******* 

* CHANGE * 

* NOP INST 

* AT LABEL 

* LST TO 

* BRANCH * 
************** 



*****A2***** 



***************** 



********** 



*****Gl******* 

* RESET * 

* BRANCH 

* AT LABEL 

* LST TO NOP 

* * 
************** 



*****Hl ********** 

* SET LOWER AND * 

* UPPER SAVE * 

* AREA LIMITS * 

* FOR REGS 8-15 * 
*IN REGS 3 AND 5* 
***************** 



*****jl ********** 

*UNPK SE* 

*_*_*_*_*_*_*_*_* 

* EDIT AND * 

* WRITE GENL * 

* REGS 8-15 * 
***************** 



* FLOATING *. 

PT FEATURE . 

*. PRESENT .* 



* ANY 

SPACE LEFT 
*. ON PAGE . 



*****B4* ********* 
*PAGHED SD* 
*_*_*_*_*_*_*_*_* 

* SKIP TO 1 * 

* WRITE HDR * 

* OR TAPE RCD * 
***************** 



*****q 2 ********** 

* * 

* STORE FP * 

* REGS INTO * 

* SAVE AREA * 

* * 
***************** 



*****C 3 ********** 

* STORE FP * 

* REGS FROM BG * 
*SAVE AREA + 88 * 

* INTO SAVE * 

***************** 



GETMPSST 

*****D2********** 
*GET PARAMETERS * 

* FOR LOC. SAVE * 

* INTO REGS * 

* 3 AND 5 * 

* * 
***************** 



*E3 
THIS IS WHERE PROBLEM 
PROGRAM BEGINS, THAT 
IS, THE LAST DIGIT IS 
A ZERO, (E.G. 1F0, 2F0, 
ETC). 



***************** 

**** 

* * 

* 2 *. . 



SJ* 



**** 
COMM X 

*****F2****** 
*REGPNT 

*EDIT AND PRINT 
* COMREG 
* 
*************** 



*****G2 ******* 

* CHANGE NOP * 

* AT BLNKST * 
*T0 UNCOND. BR. 

* TO TRANS * 

* (CHART SE) * 
************** 



* EDIT AND * 

* WRITE SUPERV, * 
♦PORTION OF STG.* 
***************** 



C0RE3 

*****£ 4********** 

* MOVE LABEL * 

* LENGTH HDG * 

* TO OUTPUT * 

* AREA * 

* * 
***************** 



*****04* ********* 

* LOAD REGS 3 * 

* AND 5 TO * 
*POINT AT LABEL * 

* LENGTH INFO * 

* * 
***************** 



*****£ 4******* 

* MODIFY 

* ALTER3 SW 

* FROM UNC 

* BR TO NOP 



*****P4* ******* 
*REGPNT S 
*-*_*_*_*-*_*_*. 

* WRITE LINE 

* OR RECORD OF 

* LABEL INFO 
*************** 



C0RE1 

*****Q4* ********* 

*CLEAR I/O LINE * 

* AREA MOVE * 

* PROB PROG * 

* HEADING IN * 

* * 
***************** 



ADDRESS 

BOUNDARY 

. CORRECT 



*****B5********** 

* CORRECT REG 7 * 

* TO PT TO NEXT * 
♦MULTIPLE OF 16 * 

* WORD BOUNDARY * 

* *E3 * 
***************** 



****C5******* 

MODIFY 

ALTER SW 

OF REGPNT 

SUBROUTINE 

TO NOP 



****Q5********** 

LOAD ADDRESS * 

OF PROB PROG * 

UPPER LIMIT * 

INTO REG 6 * 

* 

**************** 



* MODIFY 

* EOJ SW 

* TO NOP 

* * 
************** 



*****K2******* 

* RESTORE * 

* LAST LINE SW * 

* TO NOP AND * 

* RESET ENDLIN * 

* INSTRUCTION* 
************** 



CORE 

***** j 4* ********* 
*PT REG 7 LOWER * 
*LIMIT PROB PROG* 

* TEST IF ADDR * 

* ON A CORRECT * 

* BOUNDARY * 
***************** 
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Chart SD. $$BDUMPB - Prepare Page Headings 
Refer to Chart 18. 



and PIOCS Subroutines 



* * 

* PAGHED * 










* * 






*************** 




**** 

* * 

* 1 * 










**** ■ 




* * 




* * 




**** 




..* SB * 








' * F5* 








**** 






PAGHED X 




X 


*****Bi********** 


*****B2 ********** 


* MOVE CHAR 1 * 


* 


MOVE JOB DATE * 


* INTO TPLINE * 


* 


FROM COMREG * 


* AS CONTROL * 


* 


AND PAGE NO. * 


* BYTE FOR TAPE * 


* 


TO PRINT LINE * 


* OUTPUT * 


* 


ASSEMBLY AREA * 


********* 


********* 




****** ********** 



*** 




**** 

* * 

* 2 * 

* * 
**** 




*SE* 




.X 




* H5*.. 






* * 


PRINT X 

****** A4* ********** 

* SVC * 

*B5 

* * 


****A5********* 
* 
...* PRINT 
* 

*************** 



************* 



I/O 
OPERATION 
.COMPLETE . 



*B5 
IF SYSLST IS PRINTER 
IN PAGHED SUBROUTINE 
SKIP TO CHANNEL 1 
PRINT PAGE HDR AND 
DOUBLE SPACE. 

FROM REGPNT 
SUBROUTINE ONE LINE 
PRINTS ONE SPACE 
TAKEN. IF SYSLST IS 
TAPE DRIVE A TAPE 
RECORD IS WRITTEN ON 
SVC 0. 



*****d********** 

* MODIFY OP * 
♦CODES IN CCW'S * 

* FOR SKIP AND * 
♦SPACE AND CLEAR* 

* PRINT LINE * 
***************** 



*****C2********** 

* INSERT LINE * 
*COUNT PER PAGE * 

* FROM COMREG * 

* INTO REG 2 * 

* * 
***************** 



****C4********* 

* SVC 7 * 

* PROB PROGRAM * 

* WAIT * 
*************** 



****** 1********** 

* INCREMENT * 

* REG 12 FOR * 
*PAGE COUNT CONV* 

* TO DECIMAL * 
♦STORE SAVE AREA* 
***************** 



*****D2********** 

* * 

* DECREMENT * 

* LINE COUNT * 

* BY 1 * 

* * 
***************** 



*****D4********** 

* NOP CCWO * 
*FOR BODY PRINT * 

* AND MODIFY * 

* CCW1 OP CODE * 
*FOR TAPE OR PTR* 
***************** 



*****E1 ********** 
♦UNPACK PAGE NO.* 

* PUT IN HEADER * 
♦ASSEMBLY AREA, * 

* CLEAR SIGN * 

* * 
***************** 



LINE 

COUNT 

ZERO 



* SYSLST *. YES 

ASSIGNED TO .*.... 
*. PRINTER .* 



Fl *. 

.* HIGH *. 

.♦ORDER DIGITS. 

. OF PAGE NO. . 

♦. ZERO .♦ 

♦ . .♦ 



*****P2********** 



***************** 



*****G1********** 

♦ SUPPRESS * 

♦ LEADING ZEROS * 
♦BY MOVING BLANKS 

♦ INTO HI ORDER ♦ 
♦DIGIT OF PG NO.* 
***************** 



♦G3 
SINCE LINE COUNT IS SET 
JUST PRIOR TO THIS POINT, 
IT WILL NEVER BE ZERO 
HERE AND NEXT SEQ IN- 
STRUCTION WILL NOT BE 
REACHED FROM THIS POINT, 
IF NO LINE COUNT WAS SET 
BY PROGRAMMER, AN ASSUMED 
VALUE WAS ASSIGNED AT 
SUPVR GEN TIME. 



*****G4**** ****** 

♦ * 

♦ LOAD ADDRESS ♦ 

♦ OF SYSLST ♦ 

♦ INTO REG ♦ 

♦ * 
***************** 



****Q5********* 

* RETURN * 

* TO ADDR IN * 

* LINK REG *H5 * 
*************** 



HI *. 
.* 2ND *. 
.* HI ORDER *. NO . 
.DIGIT OF PAGE.*..X. 
*.N0. ZERO .* 



*****H4******* 

* * 

* TURN EOV 

* SWITCH ON IN 

* COMREG + 89 

* * 
************** 



*H5 
IF ROUTINE IS 
ENTERED FROM 
INITIALIZATION 
RTN EXIT IS TO GRP. 



***** j 1 ********** 
♦SUPPRESS LEAD- ♦ 
♦ING ZEROS MOVE ♦ 
♦BLANK INTO 2ND ♦ 
♦HI ORDER DIGIT ♦ 
♦ OF PAGE NO. ♦ 
***************** 



*****J4********** 

♦ LOAD ADDRESS ♦ 

♦ INTO REG 1 ♦ 

♦ OF NAME ♦ 

♦ $$BCMT07 ♦ 

♦ * 
***************** 



.X 

NOTZERO X 

*****K1 ********** 
♦CLEAR SAVE AREA^ 

* AND MOVE ♦ 
♦JOBNAME TO PAGE+ 

* HEADING * 

* ASSEMBLY AREA * 
***************** 



****K4********* 
♦SVC 2 $$BCMT07 ♦ 

♦ LIOCS PLM ♦ 

♦ Y24-5020 ♦ 
*************** 
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Chart SE. $$BDUMPB - Prepare and Edit a Line Subroutine 
Refer to Chart 18. 



***#A1********* 

* * 

* REGPNT * 

* * 
*************** 



REGPNT X 

*****B1 ********** 

* BLANK AREA * 

* CALLED LINE * 

* FOR ASSEMBLY * 

* OF I/O OUTPUT * 

* INFO * 
***************** 



REGPNT5 

*****d ********** 

* LOAD ADDRESS * 

* OF FSTWD INTO * 

* REG 6. REG 6 * 

* WILL POINT TO * 
*L0CS ALONG LINE* 

***************** 



*****01********** 

* LOAr INTO * 

* REI TO * 

* INI1. ~IZE * 

* COUNTER * 

* * 
***************** 



* 6 



**** 
UNPK X 

*****El********** 

* MOVE 4 BYTES * 
*FROM SAVE AREA * 
♦(POINTED TO BY * 

* REG 3) INTO * 
♦AREA NAMED WORK* 
***************** 



><***F1 ********** 
* 

* DECREMENT * 

* COUNTER IN * 

* REG * 

* * 
***************** 



*****Gl ********** 

* UNPK 4 BYTES * 

* FROM REG SAVE * 

* AREA PUT INTO * 

* LINE AREA * 

* * 
***************** 



*****Hl ********** 

* SEPARATE REGS * 

* WITH BLANK * 

* PRINT * 

* CHARACTER * 

* * 
***************** 



****B2********* 

* * 

* REGPNT5 * 

* * 
*************** 



*****B3********** 



***************** 



****02********* 

* * 

* UNPK * 

* * 
*************** 



*****P2 ********** 

* * 

* MOVE BLANKS * 

* TO LABEL * 

* FSTWD+4 * 

* * 
***************** 



***#*G2******* 

* SET ALTER3 * 

* SW TO UNC. * 

* BR IF I T WERE 

* W * 

* * 
************** 

**** * 

* * 

* 2 *. .. 

* * 
**** X 

ALTER .*. 

H2 *. 



*****D3********** 

* MOVE BLANK * 
♦PRINT CHARACTER* 

* INTO AREA * 

* NAMED FSTWD * 

* * 
***************** 



*****E3********** 

* BLANK OUT * 

* ADDITIONAL 17 * 

* BYTES (FIRST ♦ 

* 2 WORDS) ♦ 

* * 
***************** 



*****P3******* 

* SET ALTER * 

* SWITCH TO 

* UNC BR 

* IF NOP 

* * 
************** 

**** 



*C4 
REG 3 IS INCREMENTED 
4 BYTES EACH TIME 
AND COMPARED TO REG 5 
TO SEE IF ALL REGS 
IN LIMITS OF THIS 
LINE UNPKD. ON FIRST 
TIME THRU LOOP FOR 
2ND REG LINE BR 
WILL OCCUR IMMEDIATELY 
SINCE NO NEW LIMIT 
YET SET FOR REG 5. 



ALTER2 X 

*****B5********* 

* INCREMENT 

* REG 6 BY 9 
♦FOR NEXT UNPKD 

♦ WORD PRINTING 

♦ LOCATION 
**************** 



C5 ♦. 

.* BR *. 

.* IF WORD * 

*. BEYOND LIMIT 

*. *C4 .* 



NO .* LAST *. 
...*. WORD 

*. UNPACKED .* 



**** 

* * 

* 6 * 

* * 
**** 

LST 



****F4********* 

* RETURN 

* TO ADDR IN 

* LINK REG 
*************** 



* 5 * 

* * 
**** 



**** 

* * 

* 3 * 



*. SWITCH 



*****H 3* ********* 
♦INCREMENT LINE * 

* LOCATION CTR ♦ 

* P 2 * 

* (R^G 6) ♦ 

* * 
***************** 



*****J3********** 

* LOAD 4 INTO * 

* REG TO * 

* RESET COUNTER * 



BLANKS X 

*****G5********** 

* MOVE BLANKS * 
*INTO FSTWD+107 * 

* IF NOT SUPVR * 

* OR PROB PROG * 

* PART OF DUMP * 
***************** 



**H5******* 
♦ TRANSLATE ♦ 

♦ I/O OUTPUT ♦ 
AREA TO PRINT 

* CHARACTERS ♦ 



*********** 



***** 
*SD * 
* A4* 



*NOP **** 

* * 

* 2 * 
X * * 

**** **** 

* * 

* 1 * 

* * 
**** 



***************** 
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Chart SF. $$BDUMPB - Line Test Subroutines 
Refer to Chart 18. 



****Ai********* 

* PRNTLN * 
*************** 



**** 


**** 


* * 


♦ * 


* 8 *. . 


..* SC * 


* * 


* D5* 


**** 


**** 


PRNTLN X 


*****Bl********** 


*TSTCOR SF* 


*_*_*_*_*_*_*_*_* 


♦TEST IF ADDR IN* 


♦LIMITS OF PRES-* 


* ENT DUMP AREA * 


********* 


********* 



* 7 



**** 
LSTLN X 

*****d********** 

* SET AND * 

* TRANSLATE * 

* LOCATION CTR * 

* REG 7 AS LINE * 
♦IDENTIFICATION * 
***************** 



ENDLIN X 

*****0l ********** 

* IF LAST LINE * 
♦COND, INDEX REG* 

♦ 7 BY 48 BYTES ♦ 

* TO PT TO LAST ♦ 

♦ LINE ADDRESS ♦ 
***************** 



*****E1********** 

♦REGPNT SE* 
*_*_*_*_*_*_*_*_* 

♦EDIT AND WRITE ♦ 
♦LINE OF STG NOW* 
♦IN OUTPUT AREA ♦ 
***************** 



*****F1********** 

♦ MOVE CONTROL * 

♦ CHARACTER ♦ 

♦ FOR TAPE ♦ 

♦ TO OUTPUT * 

♦ AREA * 
***************** 



****A3*+*****+* 

* * 

* TSTCOR * 

* * 
*************** 



TSTCOR X 

*****B3********** 
♦POINT REG 3 AT * 

* START OF 48 ♦ 

* BYTE STG AREA ♦ 

* AND REG 5 AT ♦ 
♦END FOR 1 LINE ♦ 
***************** 



*****C2******* 

♦ MODIFY ♦ 

♦ TSTLST1 AND 

♦ TSTPRT SWS 

♦ TO NOP 

♦ * 
************** 



*****03********** 
*PAGHED SD* 
*_*-*_*_*_*_*_*_* 

* SKIP TO 1 ON * 
♦PTR WRITE PAGE ♦ 
*HDR LINE OR RCD* 
***************** 



OUT 


.*. 




C4 ♦. 




.♦ ♦. 


BR 


♦ EOJ ♦ 


...* 


SWITCH 




♦ . .♦ 




♦ . .* 


X 


*. .♦ 


***** 


♦NOP 


*sc * 




♦ H2* 






* * 






* 






SUPV1 








X 


*****Q4********> 


* 




* 


MOVE X«10« TO 




CANCEL CODE 


* 


BYTE 


N PIB 



***************** 



TSTLST X 

*****Q5********** 

♦ GET END ADDR ♦ 

♦ OF NEXT LINE ♦ 

♦ TEST IF IT IS ♦ 

♦ LAST LINE ♦ 

♦ * 
***************** 



NEXT 
LINE LAST 
. LINE 



*****D5******* 

♦ PREPARE FOR* 

♦ LAST LINE BY ♦ 

♦ INDEXING 

♦ ENDLIN INSTS ♦ 

♦ BY X'30« ♦ 
************** 



COR X 




X 


TSTLST1 .♦. 


*****E3********** 




*****E4********** 


E5 ♦. 


♦ COMPARE REG 5 ♦ 




* LOAD ADDRESS * 


.♦ ♦. 


♦ END OF LINE ♦ 




* INTO REG 1 * 


BR .♦ SW ♦. 


* PNTR TO REG 8 * 




* OF NAME * 


...♦. NOP IF 2 


♦ PRESENT LIMIT ♦ 




* $$BEOJ * 


♦LINES SAME.* 


♦OF DUMP PORTION* 




* * 


*. .♦ 


***************** 




***************** 


X *. .* 
**** *NOP 










* * . **** 










* 7 * . * 










* * . . .* 3 










**** . * 


X 








X ♦♦♦♦ 


.♦. 








TSTPRT .♦. 


F3 ♦. 




X 


F5 ♦. 


.♦LINE TO*. 




****F4********* 


.♦ SW *. 


.♦BE PRINTED ♦. YES 


* SVC 2 * 


BR .* NOP IF *. 


♦. STILL IN .♦. 




* $$BEOJ * 


...*.2 LINES SAME . 


♦. LIMIT .♦ 




♦ CHART RA ♦ 


*. .♦ 


*. .* 




*************** 


♦ . .♦ 


*. .* 


X 




X ♦. .♦ 


♦NO 


**** 






**** *NOP 



****G2^^^+++ 

♦ RETURN ♦ 
♦TO ADDR IN LINK^ 

♦ REG ♦ 
*************** 



♦ 4. 



**** 
BTSTCR X 

*****Hl********** 
♦TSTCOR SF* 
*_*_*_*_*_*_*-*_* 

*TST IF ADDR IN * 
♦LIMITS OF PRES-+ 
♦ ENT DUMP AREA ♦ 
***************** 



*****jl********** 

♦ COMPARE ♦ 

♦ CHARS TO SEE ♦ 

♦ IF NEXT LINE ♦ 

♦ SAME AS ONE ♦ 

♦ JUST WRITTEN ♦ 
***************** 



*****K1********** 

♦ INCREMENT ♦ 

♦ REG 7 BY 48 ♦ 

♦ BYTES, POINT ♦ 

♦ TO NEXT LINE ♦ 

♦ * 
***************** 



*****Q3********** 

♦LD REG 8 LIMIT * 

* INTO LINE END * 

* REG 5 TO SET * 
♦EXACT DUMP END * 
*CLEAR I/O AREA * 
***************** 



*****H3******* 

* MODIFY " 

* LAST LINE 

* SW FROM NOP 

* TO BRANCH 

* * 
************** 



WRITE 


*« 


BR 




LAST LINE 




*.. 




SW 


.* 






*. .* 








♦ . .♦ 






X 


*N0P 




**** 






* 








* 


7 


X 




* 




#*** 






it*** 


* * 








* 2 * 








* * 








**** 









CLRLIN 

*****G5********** 

♦ CLEAR * 

♦ OUTPUT LINE * 

♦ AREA * 

♦ SET UP ♦ 

♦ --SAME— * 
***************** 



*****H5********** 
♦PRINT SD* 
*_*_*_*-*_*-*_*-.* 

* WRITE LINE * 
♦WITH LOC INDEX * 

* AND — SAME — * 
***************** 



*****J5******* 

* MODIFY SWS * 

* AT TSTPRT 

* AND TSTLST1 

* TO BRANCH 

* * 
************** 
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Chart SG. $$BDUMPD - Dump on Disk Device 
Refer to Chart 18, 



**** 
* * 

* 2 * 

* * 
**** 



****A1 ********* 

* * 

* $$BDUMPD * 

* * 
*************** 



*****B1********** 

* LOAD AND TEST * 
*REG 3 TO SEE IF* 
*THIS IS PDUMP. * 

* REG 3 WAS 1ST * 

* IN $$BDUMP * 

***************** 



F2 

SHOWN IN 

LTK 



*****B2********** 

* * 

* MOVE «F2« * 
*INTO PARTITION * 

* ID LABEL * 

* * 
***************** 



*****D1******* 

* SET SWS * 

* PDUMP2 TO BR,* 

* 0UT1 TO BR, * 

* OUT TO NOP * 

* * 
************** 



*****F1******* 

* MODIFY * 

* MVBLNK INST * 

* AND TURN * 

* ON BLANK IND * 

* SWITCH * 
************** 



* LOAD REG 4 * 

* WITH ADDR OF * 

* WRDLTH * 

* * 
***************** 



**** 

* * 

* 3 * 



* LOAD END * 

* ADDRESS FROM * 

* COMREG+32 * 

* INTO R8 * 



* 1 *.. 



**** 
INIT X 

*****E2********** 

* INITIALIZE * 

* PAGE AND LINE * 

* COUNT REGS * 

* (12 AND 2 * 

* RESPECTIVELY) * 
***************** 



.* FLOATING *. NO 
*. POINT FEATURE.*... 
*. PRESENT .♦ 



*****Q2******* 

* SET SWITCH * 

* TO INDICATE * 

* FLPT REGS * 

* TO BE DUMPED * 

* * 
************** 



HI *. 


H2 *. 


.* *. 


.* MULTI * 


.* Fl *. NO 


.* PROG 


*. SHOWN IN .*.... 


*. SYSTEM 


*. LTK .* 


♦.ENVIRON- 


*. .* 


*.MENT .* 


*. .* X 


*. .* 


*YES **** 


*YES 


* * 




* 2 * 




* * 




***.* 




X 


X 


***** j i ********** 


*****j2****** 


* MOVE •Fl' * 


* 


*INTO PARTITION * 


* SET UP 


* ID LABEL * 


* LIMIT FOR 



***************** 



***************** 



* BRANCH AROUND * 

* ORIGIN STMT * 

* TO BALI * 

* * 
***************** 



BALI X 

*****A3********** 
*MOVE BLANKS TO * 
*AREA NAMED LINE* 
*THIS WIPES OUT * 
♦PREVIOUS INSTS * 
* UP TO X'92' * 
***************** 



*****B3********** 

*PAGHED SH* 
*_*_*_*-*-*_*_*_* 

* WRITE HEADING * 

* RECORD * 

* * 
***************** 



*****C3********** 
*POINT REG 3 AT * 
♦BEGIN REG 5 AT * 
*END 32 BYTES IN* 
* REG SAVE AREA * 
*(ADDR IN REG 9)* 
***************** 



*****D3 ********** 

* MOVE HDG * 

* GRO-7 AND * 

* CONTROL BYTE * 
*FOR DISK TO I/O* 

* OUTPUT AREA * 
***************** 



*****E3********** 
*REGPNT SJ* 
*-*-*-*_*-*_*_*-* 
*EDIT AND WRITE * 

* GENL REGS 0-7 * 

* * 
***************** 



*****F3********** 
*PT REG 5 TO END* 

* OF REG 8 INFO * 
*IN REG SAVEAREA* 

* MOVE HDG AND * 
*DISK CTRL BYTE * 
***************** 



*****G3******* 

* SET * 

* SET SWITCH AT* 

* LABEL LST TO * 

* BRANCH * 

* * 
************** 



*****H3********** 
*REGPNT SJ* 
*_*_*-*_*_*_*_*_* 

* EDIT REG 8 * 

* * 

* * 
***************** 



*****J3******* 

* * 

* RESET SWITCH * 

* AT LST TO * 

* NOP * 

* * 
************** 



*****K3********** 

* POINT REGS 3 * 
*AND 5 AT BEGIN * 

* AND END BYTES * 

* OF REGS 9-15 * 

* IN SAVE AREA * 
***************** 



*****A4********** 

* UNPK SJ* 
*-*_*_*_*_*_*_*_* 

*EDIT AND WRITE * 

* REGS 8-15 * 

* * 
***************** 



*****C4********** 
*CLEAR I/O AREA * 
*SAVE FLT PT REG* 
*LD REGS 3 AND 5* 
* WITH FLT PT * 
♦LIMITS. SET HDG* 
***************** 



*****04********** 
*REGPNT5 SJ* 
*_*_*_*_*_*_*_*_* 

*EDIT AND WRITE * 
♦FLOATING POINT * 
* REGS * 
***************** 



*****A5********** 

*PRNTLN SK* 

*_*_*_*_*_*_*_*_* 

* WRITE SUPVR * 

* PORTIONS OF * 

* MAIN STORAGE ♦ 
***************** 

**** * 

* * 
*SK *... 

* C4+ 
**** 

SUPV1 X 

*****B5 ******* 

* SETOUT SW * 

* AND BTSTCR T0+ 

* NOP. STOPS THE ♦ 
♦INDX OF ENDLIN^ 

* AND ENDLINl^ 
************** 



♦ PAGE 

LINE COUNT 
*. ZERO 



*****05********** 
♦PAGHED SH^ 
*_*_*_*_*-*_*-*_* 

♦ WRITE NEW * 

♦ PAGE HEADING * 

♦ RECORD ♦ 
***************** 



C0RE3 X 

*****£ 5********** 

♦ MOVE LABEL * 

♦ LENGTH HDG TO ♦ 

♦ OUTPUT AREA * 
♦LOAD REGS 3 AND^ 

♦ 5 WITH LIMITS * 
***************** 



* 6 * 

* * 
**** 



COMM 

*****F4**** ****** 

*POINT TO COMREG* 
♦BEGINNING WITH * 

♦ REG 3, END ♦ 

♦ WITH REG 5 * 

♦ * 
***************** 



*****Q4******* 

* SET ♦ 

♦ BLNKST SW 



************** 



*****H4********** 
*REGPNT SJ* 
*^*_*_*_ *_*_*_*_* 

* WRITE COMREG * 

* INFO ♦ 

* * 
***************** 



*****j4******* 

♦ RESET 

♦ BLNKST SW 



SUPV X 

*****«4********** 

♦ LOAD SUPVR ♦ 

♦ LIMITS INTO ♦ 
♦REG 7 AND REG 8^ 

♦ (START REG 7 * 

♦ END REG 8) * 
***************** 



*****F5******* 

* * 

* SET 

* ALTER3 SW 

* TO BRANCH 

* * 
************** 



*****G 5** ******** 

♦REGPNT SJ* 
*_*-*-*-*-*_*-*-* 

♦ WRITE LABEL ♦ 

♦ LENGTH INFO * 

♦ RECORD ♦ 
***************** 



C0RE1 X 

*****H5********** 

♦ CLEAR OUTPUT ♦ 

♦ LINE AREA * 

♦ MOVE — BG— * 

♦ IN AS PROBLEM * 

♦ PROG HEADER ♦ 
***************** 



♦ WRITE PROBLEM ♦ 

♦ PROG HEADER * 

♦ RECORD ♦ 
***************** 



CORE X 

*****«5********** 
♦LOAD LOW LIMIT ♦ 

* PROB PROG IN ♦ 
♦REG VIA REG 7* 
♦ZERO REG 1. TST* 

♦ ADDR IN REG 7 ♦ 
***************** 
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Chart SH. $$BDUMPD - Prepare Page Headings and PIOCS Subroutines 
Refer to Chart 18. 



**** 
* * 

* 2 * 



* 5 * 

* * 
**** 



***** 
*SG * 
* K5* 



.* ADDRESS *. YES 
. ON CORRECT .♦... 
*. BOUNDARY .♦ 



*****Cl********** 

* ADJUST R7 TO * 

* POINT TO NEXT * 
♦MULTIPLE OF 16 * 

* FOR PROB PROG * 
*BEGIN BOUNDARY * 
***************** 



*****D1******* 

* SET ALTER * 

* SWITCH TO * 

* BRANCH. LOAD 

* PROB PROG * 

* END IN REG 8* 
************** 



****F1********* 

* PAGHED * 

* * 
*************** 



*****Gi ********** 

* MOVE CHAR * 
*INTO FIRST DISK* 

* OUTPUT BYTE * 

* AS CONTROL * 

* BYTE * 
***************** 



*****Hl********** 

* EXEC INST * 

* USED TO CLEAR * 

* 120-BYTE * 

* OUTPUT AREA * 

* * 
***************** 



***** j i ********** 

* INCREMENT * 

* REG 12 FOR * 

* PAGE COUNT, * 

* CONV TO DCML, * 
♦STORE SAVE AREA* 
***************** 



A2 *. 

.* HIGH *. 

.♦ORDER DIGIT*. 

♦. OF PAGE NO .♦ 

*. ZERO .* 

*. .* 

*. .* 



*****B2** ******** 

* SUPPRESS LDG * 

♦ ZEROS BY ♦ 

* MOVING BLANK * 

♦ INTO HI ORDER * 
♦DIGIT OF PG NO.* 
***************** 



.* 2ND ♦. 
.♦HIGH ORDER *. NO 
♦.DIGIT OF PAGE.^..X 
♦.NO. ZERO .♦ 



*****E2********* 

* SUPPRESS LDG 
♦ZERO BY MOVING 
♦BLANK INTO 2ND 
♦HI ORDER DIGIT 

♦ OF PAGE NO. 
**************** 



*****F2********** 

* * 

* MOVE JOB NAME * 

* TO PAGE HDG * 

* ASSEMBLY AREA ♦ 

* * 
***************** 



*****G 2 ********* 

* MOVE JOB DATE 

♦ FROM COMREG 

♦ AND PAGE NO. 
♦TO OUTPUT LINE 

* ASSEMBLY AREA 



*****H2***^^^^ 

* * 

* LOAD ADDRESS ♦ 

* OF CCB * 

* INTO REG 1 ♦ 

* * 
***************** 



***** j 2 ********** 

* INSERT LINE * 
♦COUNT PER PAGE ♦ 

♦ FROM COMREG ♦ 

♦ INTO REG 2 ♦ 

* * 
***************** 



LINE 

COUNT 

ZERO 



53********** 



***************** 



*C3 
SINCE LINE COUNT IS 
SET JUST PRIOR TO THIS 
POINT, IT WILL NEVER 
BE ZERO HERE AND NEXT 
SEQ INST WILL NOT BE 
REACHED FROM THIS 
POINT. IF NO LINE 
COUNT WAS SET BY 
PROGRAMMER AN ASSUMED 
VALUE WHICH WAS 
ASSIGNED AT SUPVR 
GENERATION TIME IS USED. 



*****E3********** 

* PUT ADDR FROM ♦ 

* COMREG+96 IN ♦ 

* REG 6 POINTS ♦ 

* TO DISK INFO ♦ 

* BLOCK AREA ♦ 
***************** 



*****p 3 ********* 

♦ INDEX REG 6 
♦72 BYTES POINT 

♦ TO DIB 

♦ ASSOCIATED 

♦ WITH SYSLST 
**************** 



*****G3********** 

♦ CMP CURRENT * 

♦ ADDR WITH END ♦ 

♦ ADDR IN DIB .* 

♦ TO SEE IF * 
♦EXTENT IS FULL ♦ 
***************** 



*****A4* ********* 

* MOVE CURRENT * 
*ADDR IN FORMAT * 

* CCHHR INTO ♦ 

* FIELD CALLED * 

* SRCHBK * 
***************** 



*****B4********** 

* INSERT RECORD * 
*NO. INTO REG 6 * 

* FROM SRCHBK+4 * 

* REDUCE REC ♦ 

* NO. BY 1 * 
***************** 



*****C 4* ********* 

♦ STORE REDUCED ♦ 

♦ ADDR BACK IN ♦ 

♦ SRCHBK RELOAD * 

♦ REVISED ADDR ♦ 

♦ INTO REG 6 ♦ 
***************** 



***** 04** ******** 
♦STORE ADDR FROM* 

* REG 6 INTO * 

* SEARCH AND * 

* SEARCH1 CCW'S * 

* * 
***************** 



*****£ 4********* 

* LOAD ADDR OF 

* SEARCH CCW IN 

* REG 6. STORE 
♦THIS IM TIC CCW 
♦AS THE TO ADDR 
**************** 



*****p 4**** ****** 

* LOAD ADDR OF * 
♦SEARCH1 CCW IN * 

* REG 6. STORE * 

* THIS IN TIC1 ♦ 

* CCW TO ADDR * 



LOAD 

*****G4* ********* 
*LOAD ADDR INTO * 
♦REG 6 OF DSKLIN* 

♦ (THE DATA ♦ 

* OUTPUT AREA) * 



H3 *. 
. * *. 
.♦ SYSLST ♦. YES 

♦. EXTENT .♦ 

♦. FILLED .♦ 
*. .♦ 

*. .* X 


*****H4********** 

* STORE DSKLIN ♦ 

* ADDR IN CCW * 

* USED TO WRITE ♦ 

* COUNT KEY * 

* AND DATA ♦ 
***************** 


*N0 


***** 

♦ SK * 

* C4^ 
* * 




X 

*****J3********** 

* * 

* STORE CURRENT * 
♦ADDR FROM REG 6^ 

* INTO SEEK CCW ♦ 




X 
*****J4********** 

♦ LOAD ADDR OF * 

♦ SEEK CCW INTO ♦ 

♦ REG 6. STORE ♦ 

♦ THIS ADDR IN ♦ 



♦ REDUCE LINE 

♦ COUNT IN 

♦ REG 2 BY 1 
* 
*************** 



*****B5 ********** 

* TEST UNDER ♦ 
♦MASK IF TRAFFIC* 

* BIT POSTED ♦ 

* IN CCB * 

* * 
***************** 



.* I/O *. 
OPERATION 
COMPLETE 



SVC 7 

PROB PROG 

WAIT 



****E5********* 
RETURN * 
TO ADDR IN * 
LINK REG * 
*************** 



************* 



*****K1 ********** 
♦UNPK PAGE NO., ♦ 

♦ PUT IN HDR ♦ 
♦ASSEMBLY AREA, ♦ 

♦ CLEAR SIGN ♦ 

♦ * 
***************** 



*****K2 ********** 



***************** 



MOVE X 

*****K3********** 

* MOVE CURRENT ♦ 
♦ADDR TO OUTPUT ♦ 

* AREA NAMED * 
♦DSKLIN FOR USE * 

* AS COUNT INFO * 
***************** 



PRINT1 X 

******«4********** 

SVC 

* SEEK SEARCH * 

ID EQ WRITE 

* CKD RCD. * 

VERIFY. 

************* 



2 * 
* 

**** 



* 5 ♦ 

* * 
**** 
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Chart SJ. $$BDUMPD - Prepare and Edit a Line Subroutine 
Refer to Chart 18. 



**** 

* * 

* i * 

* * 
**** 



****A1********* 



*************** 



REGPNT X 

*****B1********** 

* BLANK AREA * 

* CALLED LINE * 

* FOR ASSEMBLY * 

* OF I/O OUTPUT * 

* INFO * 
***************** 



****B2********* 

* * 

* REGPNT5 * 

* * 
*************** 



*****A3********** 
♦CMP REG 3 INDEX* 
♦BY REG 4 TO REG* 
♦5 LIMIT TO SEE ♦ 
♦IF ALL WRDS FOR+ 
♦1 RCD UNPACKED ♦ 
***************** 



B3 ♦. 

. .♦ NEXT *. 

.♦WORD STILL 

♦. IN PRESENT 

♦. LIMIT . 

♦. *B4 .♦ 



♦ B4 
ON FIRST TIME THRU LOOP 
FOR 2ND REG LINE WHEN 
REG 8 EDITED BR WILL 
OCCUR IMMEDIATELY SINCE 
NO NEW LIMIT YET SET 
FOR REG 5. 



**** 

* * 

* 5 * 

* * 
**** 



REGPNT5 X 

*****d********** 
♦LOAD ADDR FSTWD+ 
♦IN REG 6 - WILL+ 

♦ POINT TO LOCS ♦ 
♦ON LINE. PUT A* 

* 4 IN REG * 
***************** 

**** 



♦♦♦'(^♦♦♦♦♦♦♦♦^ 

* * 

* UNPK ♦ 

* * 
*************** 



*NO 



BR 
ON REG 8 
. EDIT SW 



**♦♦ 
UNPK X 

*****01********** 

* MOVE 4 BYTES * 
♦FROM SAVE AREA * 

* TO WORK AREA * 

* * 
***************** 



UNPK1 X 

*****E1********** 

♦ DECR REG BY * 

♦ 1 UNPK 1 WORD ♦ 

♦ PUT IN OUTPUT ♦ 

♦ AREA SEPARATE ♦ 
♦WDS WITH BLANK ♦ 
***************** 



**** 

* * 

* 4 * 

* * 
**** 



**E3******* 
* TRANSLATE * 

♦ ASSEMBLED ♦ 
OUTPUT TO 

♦ PRINTABLE ♦ 
♦CHARACTERS ♦ 

*********** 



**** 

* * 

* 3 * 

* * 
**** 



****D4********* 

♦ RETURN ♦ 

♦ TO ADDR IN ♦ 

♦ LINK REG ♦ 
*************** 



****E4********* 

♦ ♦ 

♦ PRNTL ♦ 

♦ * 
*************** 



*****C5********** 

♦ MOVE BLANK ♦ 

♦ PRINT CHARS ♦ 
♦TO LABEL FSTWD ♦ 
♦IN OUTPUT AREA ♦ 

♦ * 
***************** 



MVBLNK X 

*****D5********** 

* BLANK OUT * 

* FIRST 2 WORDS * 

* OF OUTPUT * 

* AREA * 

* * 
***************** 



*****E5******* 

* * 

* SET SWITCH 

* AT ALTER TO 

* NOP 

* * 
************** 



BR *. BR 
FOR LABEL .♦... 
. SWITCH .♦ 



**** X 


ALTER 


.♦. 




Gl ♦. 




* 


.* 


BR 


♦ . 


FOR 


* 


PDUMP SW 




*. 




♦ . .♦ 




♦ NOP 


**** 


* 


♦ 


* 6 


♦ ... 


* 


♦ . 


** ** X 


ALTER1 


-♦. 




HI ♦. 




* > 


.* 


REG 


♦ . 


EQUAL 



**** 

* * 

* 7 * 

* * 
**** 



**** 

* * 

* 5 * 

* * 
**** 



* LOAD ADDRESS * 

* OF CCB INTO * 

* REG 1 * 

* * 
***************** 



***** 
*SH * 
♦ E3+ 



**** 



**** 



.♦ 
'♦YES 



*****jl********** 

♦ INCREMENT ♦ 

♦ REG 6 BY 2. ♦ 

♦ RESET CTR IN ♦ 

♦ REG TO 4. ♦ 

♦ * 
***************** 



BLANKS X 

*****H4********** 

* BLANK OUT * 

* LAST WORD IN * 

* OUTPUT AREA * 

* DURING COMREG * 

* DUMP * 
***************** 



BLNK2 X 

*****G5********** 

* MOVE 4 BYTES * 

* PRINTABLE * 

* BLANK CHARS ♦ 

* TO FSTWD + 4 ♦ 

* * 
***************** 



*****H5******* 

* * 

* SET SWITCH 

* AT ALTER3 

* TO NOP 

* * 
************** 



ALTER2 X 

*****«1********** 
♦INCREMENT REG 6* 
♦BY 9 - POINT TO^ 
♦NEXT LOC ALONG ♦ 
♦LINE FOR UNPKD ♦ 
♦ OUTPUT WORD ♦ 
***************** 



* 5 * 

* * 
**** 
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Chart SK. $$BDUMPD - Line Test Subroutines 
Refer to Chart 18. 



****AL********* 

* * 

* PRNTLN * 



*************** 






**** 
* 
* L 










**** 


**** 


♦SG- 


-A5 


* 


* * 


* * 


SH- 


-DL 


**** 


* 8 *. . 


..* * 








* * 


* * * 




**** 


**** 






X 


PRNTLN X 








* * * * * B l * 4c * * * * * * * * 






bz' ** 


♦TSTCOR SK* 






.* 


*_*_*_*-*_*..*_*_* 






.* 


♦TEST IF ADDR IN* 






*. SAME 


♦LIMITS OF PRES-* 






*. 


* ENT DUMP AREA ♦ 






*. 


********* 


********* 






*. .* 



****A3********* 

* * 

* TSTCOR * 

* * 
*************** 



TSTCOR 

*****B3 ********** 
* PT REG 3 TO * 
♦START OF 48 BYT* 
*STG AREA.PT REG* 
*5 TO END . WILL* 
♦BE 1 PRINT LINE* 
***************** 



LSTLN 

*****d********** 

♦ SET AND ♦ 

♦ TRANSLATE ♦ 

♦ LOCATION CTR ♦ 

♦ REG 7 AS LINE ♦ 
♦IDENTIFICATION ♦ 
***************** 



ENDLIN X 

*****D1 ********** 

♦ IF LAST LINE * 
*COND, REG 7 IS * 
♦INDEXED 48 BYTS* 

* TO POINT TO * 
♦LAST LINE ADDR * 
***************** 



*****£ i********** 

♦REGPNT SJ* 
*_*_*_*_*_*_*_*-* 

*EDIT AND WRITE * 
*LINE OR RECORD * 
* OF MAIN STG * 
***************** 



*****C2******* 

* MODIFY * 

* TSTLST1 AND 

* TSTPRT SWS 

* TO NOP 

* * 
************** 



.X.* SH * 
* H3* 
**** 

.X. 



TSTLST X 

*#***B5** ******** 

* GET NEXT LINE * 

* ADDR END * 

* TEST IF IT IS * 

* LAST LINE * 

* * 
***************** 



NEXT 
LINE LAST 
. LINE 



***** 
*SG * 
* B5* 

* * 



*****D3 ********** 
*PAGHED SH* 
*_*_*_*_*_*_*_*_* 

♦SKIP TO 1 WRITER 
♦PAGE HEADER OR ♦ 
♦ RECORD ♦ 
***************** 



**** 
BTSTCR X 

*****G1 ********** 
♦TSTCOR SK* 
*_*_*_*_*_*_*_*-* 

♦TEST IF ADDR IN* 
♦LIMITS OF PRES-* 
♦ ENT DUMP AREA ♦ 
***************** 



*****H1********** 

* CMP CHARS * 

* TO SEE IF ♦ 

* NEXT LINE * 

* SAME AS ONE * 

* JUST WRITTEN * 
***************** 



*****jl ********* 

* INCREMENT 

* REG 7 BY 48 

* BYTES POINT 

* TO NEXT LINE 
* 

****************: 



****H2******** 

RETURN TO 

ADDR IN LINK 

REGISTER 

************** 



**** 

* * 

* 1 * 



CMPCOR 

*****E3 ********** 

* COMPARE REG 5 * 

* END OF LINE * 

* PNTR TO REG 8 * 

* LIMIT OF PRES * 
♦PORTION OF DUMP* 
***************** 



F3 *. 

.♦LINE TO#. 

.♦BE PRINTED ♦ 

♦. STILL IN 

♦. LIMIT .♦ 



*****G3********** 
♦LD REG 8 LIMIT ♦ 

* INTO LINE END ♦ 

* REG 5 SETS * 
♦EXACT DUMP END * 
*CLEAR LINE AREA* 
***************** 



*****H3******* 

* MODIFY * 

* LAST LINE 

* SW FROM 

* NOP TO 

* UNC BR * 
************** 





D4 *. 


*****D5******* 




.* *. 


* PREPARE FOR* 


BR .* *. 


* LAST LINE ♦ 




.*. PDUMP SW .* 


♦ BY INDEXING ♦ 




*. .* 


♦ ENDLIN INSTS * 




*. .* 


♦ BY X'30' ♦ 


X 


*. .* 


************** 


**** *NOP 




* 


* 




♦ 10 


* 




* 


* 




**** # 


X 
TSTLST1 .♦. 




X 




*****£ 4********** 


E5 *. 




* * 


.* *. 




* MOVE X'10' TO * 


BR .* SW *. 




* CANCEL CODE * 


...*. NOP IF 2 .* 




* BYTE IN PIB * 


*. LINES .♦ 




* * 


♦.SAME .* 




***************** 


X *. .* 
**** *NOP 

* * . **** 

* 7 * . * * 

* * . . .* 3 ♦ 
**** . * * 

X **** 




X 


TSTPRT .*. 




*****F4**** ****** 


F5 *. 




* LOAD ADDRESS * 


.* ♦. 


S 


* INTO REG L * 


BR .* SW *. 




* OF NAME * 


...*. NOP IF 2 .* 




* SSBEOJ * 


*. LINES .* 




# * 


♦.SAME .* 


X 


***************** 


X *. .* 


**** 




**** *NOP 


* 




* * 


5 * 




* 8 * 


* 




* * 


**** 




CLRLIN X 




X 


***** 35 ********** 




****G4#* ******* 


* * 




* SVC 2 * 


* CLEAR PRINT * 




* SSBEOJ * 


* AREA. SET UP * 




* CHART RA * 


* — SAME — * 




*************** 


. * * 



***************** 



♦WRITE LINE WITH* 

* STG LOCATION * 

* AND — SAME — * 
***************** 



J3 *. 






*****J5******* 


. * *. 






♦ MODIFY SWS ♦ 


♦ WRITE ♦. 


BR 




♦ AT TSTPRT ♦ 


LAST LINE 


*. . . . 




♦ AND TSTLST1 ♦ 


♦. SWITCH .♦ 






♦ TO UNC BR ♦ 


*. .* 






* * 


♦ . .♦ 


X 


* * 


************** 


♦ NOP 


**** 


* 10 * 






* * 


* # 






* 7 * 


**** 




X 


* * 






**** 


**** 






* * 








* 6 * 






ENDLIN1 X 


* * 




X 


*****K5 ********** 


**** 




****K4*# ******* 


♦LD ADDR OF LAST^ 






* SVC 11 * 


♦LINE FROM REG 7* 






♦RETURN CTRL TO ♦ 


* INDEXED BY 48 ♦ 






♦ PROB PROG ♦ 


* BYTES ON LAST ♦ 






*************** 


♦LINE CONDITION * 
***************** 
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Chart SL. $$BPDUMP -' Parameter Storage Dump Monitor 
Refer to Chart 19. 



**** 

* * 

* i * 

* * 
**** 



**** 
* * 

* 6 * 

* * 
**** 



****A1********* 

* $$BPDUMP * 

* * 
*************** 



START 

*****BL********** 

*ADD LTK TO REG * 
*10 TO DISPLACE * 
*INTO PIB TABLE * 

* TO PARTICULAR * 

* PROG INVOLVED * 
***************** 



*****d********** 
♦INCREMENT REG 9* 
*T0 POINT TO LGL* 
♦TRANS BUCKET - * 
*GET ADDR OF LGL* 
♦TRANS SAVE AREA* 
***************** 



*****0l ********** 
♦LOAD LUB TABLE * 
*ADDR INTO REG 4* 
♦LOAD REG WITH^ 
♦ADDR FROM REG 0+ 
♦ IN SAVE AREA ♦ 
***************** 



*****E1 ********** 
♦STORE LOW ORDERS 

♦ CHAR FROM RO ♦ 

♦ IN FLD CALLED ♦ 

♦ SAVE. TEST ♦ 
♦WITH X«03' MASK^ 
***************** 



Fl ♦. 

.♦ REG ♦. 
POINTING 
TO A WORD 

.BOUNDARY . 
♦ . .♦ 



*****Gl ********** 
♦ PUT STARTING ♦ 
♦DUMP ADDR FROM ♦ 
♦REG IN REG 5 * 
*ZERO REG 2. LD* 
*REG 5 INTO REG6* 
***************** 



*****Hl********** 
*AND INTO REG 6 * 

* A WD ALIGNING * 
♦FLD TO PUT REG * 
♦6 ON AT LEAST A^ 

* WORD BOUNDARY * 
***************** 



*****jl********** 

♦ COMPARE REG 6 ♦ 

* WITH HIGH STG * 
♦ADDR CONTAINED ♦ 

* IN COMREG FOR * 

♦ INVALID ADDR ♦ 
***************** 



.♦ VALID ♦. NO 
.DUMP STARTING.^... 
♦. ADDR .* 



MAIN1 X 

*****A2********** 

♦ ZERO REG 7 * 

♦ SHIFT REG 6 ♦ 

♦ 4 POSITIONS ♦ 

♦ TEST RESULT ♦ 

♦ IN REG 7 * 
***************** 



REG 7 *. YES 
ZERO .*... 
*K5 .* 



*****C2********** 

* SHIFT REG 7 * 

* 30 POSITIONS ♦ 

* MPY BY 9 * 
♦LOAD RESULT IN * 

* REG 2 * 
***************** 



*****02********** 
♦SUB 2 IN REG 2-* 
♦GETS NO. BLANKS* 
♦NEEDED TO STARTS 
♦ DUMP PRINT ♦ 
♦AT PROPER POINTS 
***************** 



ISKRT X 

*****A4********** 
♦LOAD ADDR INTO ♦ 

♦ REG 1 OF NAME * 

* $$BDUMPD LD * 
*A 1 INTO REG 3 * 
*T0 IDENT PDUMP * 
***************** 



* TEST SENSE * 

* DATA FOR FILE ♦ 

* PROTECTION ♦ 

* * 
***************** 



X. ... 



FIX7 

*****£ 2 ********** 
* PT REG 6 TO * 
♦NEXT LOWER ADDR* 
♦DIVISIBLE BY 16^ 
♦LD TO REG 7 FOR+ 
♦DUMP START ADDR^ 
***************** 



MAIN2 

*****F 2 ********** 

♦ LD REG 8 WITH ♦ 
♦ADDR IN REG 5+4^ 

♦ COMP REG 8 TO ♦ 

♦ HIGH STG ADDR ♦ 

♦ FROM COMREG * 
***************** 



.* ADDR 
*. WITHIN STG 
*. LIMITS . 



*****H2********** 

* LOAD LIMIT TO * 
*REG 8 TO FORCE * 

* VALID UPPER ♦ 
*LIMIT FOR DUMP * 

* * 
***************** 



.* IS 
SYSLST 
♦.ASSIGNED 



*****C3********** 

* REG 4 PNTR TO * 

* LUB TABLE IS ♦ 
♦INDEXED TO GET * 

* SYSLST ENTRY * 

* * 
***************** 



*****D3********** 

* SYSLST ENTRY * 
*ADDR IN PUBTAB * 
♦CALC BY 8 TIMES* 

* LUB PTR ADDED * 

* TO PUB ADDR * 
***************** 



*****E3********** 
♦DEVICE TYPE OF * 

* SYSLST FROM * 

* PUB TABLE PUT * 
*IN FIELD NAMED * 

* ZONE FOR CMP * 
***************** 



SYSLST A 
. DISK 
♦. DRIVE. ♦ 



X 






B5 *. 


****B4********* 






.* IS *. 


SVC 2 ♦ 


YES . 


* 


SYSLST ♦. 


$$BDUMPD ♦ 


.. .♦. 


FILE PROTECT .* 


CHART SB ♦ 




* 


ON .* 


*************** 






*. .* 




X 




*. .* 




**** 




*N0 


**** 


* * 






* 


* 7 * 






4 *.. , 


* * 




X 


* 


**** 




**** 



**** 

X 

*****C4********** 
*GET SYSTEM LUB * 
*INDEX FOR THIS * 

* PARTITION AND * 

* CALCULATE LUB * 

* TABLE ENTRY ♦ 
***************** 



♦ IS 
SYSLST 

♦.ASSIGNED 



* 5 * 

* * 
**** 



**** 

* * 

* 7 * 

* * 
**** 



**** 

* * 

* 3 * 

* * 
**** 



G3 ♦. 
.♦ IS ♦. 
.* SYSLST * 
*.A TAPE DRIVE 



*****H3********** 

♦ LOAD A 1 INTO * 
*TAPE INDICATOR ♦ 
♦REG 14 TO TELL * 

* $$BPDUM1 THAT * 
♦SYSLST IS TAPE ♦ 
***************** 

**** \ 



PROCED 

*****j2********** 

* SUBTRACT 1 ♦ 

* FROM DUMP * 

* END ADDR NOW * 

* IN REG 8 * 

* * 
***************** 



*****K2***^+**** 
♦LOAD PUB TABLE * 
♦ADDR INTO REG 6* 

* ZERO REGS * 

* 13 AND 14 * 

* * 
***************** 



*****J3********** 

*LOAD ADDR INTO * 

* REG 1 OF NAME * 

* $$BPDUM1 * 

* * 
***************** 



****«3********* 

* SVC 2 * 

* $$BPDUM1 * 

* CHART SM * 
*************** 



*****E4********** 
*GET DEVICE TYPE* 
*FOR SYSLST FROM* 

♦ PUB AND MOVE * 

♦ TO ZONE ♦ 

♦ FLD * 
***************** 



.♦ IS ♦. 

SYSLST 

*.A PRINTER.* 



.*. 

G4 ♦. 

♦ IS 

SYSLST 

A TAPE 

DRIVE 



*****H4********** 
♦LD 1 IN REG 14 * 
♦TO IND TAPE DR * 

* LOAD ADDR * 
*FOR SENSE BYTE * 

* DATA IN CCW * 
***************** 



*****J4********** 

* LOAD ADDR OF * 

* SENSE CCW IN * 

* REG 3. STORE * 

* THIS ADDR IN * 

* CCB ♦ 
***************** 



*****«4********** 
♦PRINT SL* 
*-.*_*_*_*_*_*_*_* 

* SYSLST IS * 

* SENSED ♦ 

* * 
***************** 



****D5********* 

* * 

* PRINT * 

* * 
*************** 



* LOAD ADDR * 

* OF CCB INTO * 

* REG 1 * 

* * 
***************** 



**** 

* * 

* 5 * 

* * 
**** 



************* 



.* I/O 
. OPERATION 
♦.COMPLETE . 



****H5********* 

♦ SVC 7 ♦ 

♦ PROB PROG ♦ 

♦ WAIT * 
*************** 



****J5********* 
♦SVC 11 RETURN ♦ 
♦TO TASK SELECT * 
♦ IN SUPVR * 

*************** 



*K5 
IF REG 7 IS AT 
THIS POINT, IT 
INDICATES REG 6 
ADDR IS A MULTIPLE 
OF 16. 
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Chart SM. $$BPDUM1 - Initialize Parameter Dump on Printer or Tape 
Refer to Chart 19. 



****Al********* 

* * 

* $$BPDUM1 * 

* * 
*************** 



START .*. 

Bl *. 

.* DOES *. 

.*LINE COUNT 

*. REGISTER 2 

*. CONTAIN . 

♦BLANKS.* 



*N0 



*****C1 ********** 
*STORE THE DATA * 
*INTO THE FIRST * 

* WORD OF THE * 

* BLANK OUT * 

* ROUTINE * 
***************** 



*****oi******* 

* SET BLANK * 

* SWITCH BY OR-* 
*ING AN UNCONDI-* 

* TIONAL BRANCH* 

* INTO ALTER * 
************** 



.* LTK=X«10' 
*. BACKGROUND 
*. PROGRAM . 



PDUMP1 X 

*****C 2 ********* 

* LOAD ADDRESS 

* OF FIRST BYTE 

* FOR PRINTER 

* OUTPUT AREA 

* INTO REG 1 
**************** 



*****D2********** 

* RELOCATE * 

* ADDRESS IN * 

* SPACING * 
*C0MMAND BLOCKS * 

* * 
***************** 



fc****B4* ******** 

* BLANK GUT 
^INITIALIZATION 

* ROUTINE AREA 



PRINT THE * 

HEADER * 

LINE * 

************** 



*****Q4* ********* 

* LOAD ENDING * 

* ADDRESS OF * 

* THE REGISTERS * 

* 0-7 INTO * 

* REG 5 * 
***************** 



* V ***B5********* 

* MOVE HEADINGS 

* FOR REGISTERS 

* 8-15 INTO 

* OUTPUT AREA 
* 
**************** 



*****C5********** 

* MOVE CONTROL * 

* BYTE TO SKIP * 

* ONE LINE AND * 
*PRINT INTO TAPE* 

* OUTPUT BYTE * 
***************** 



***** 05**** ****** 

* ACTIVATE * 

* BRANCH AT * 

* INSTRUCTION * 

* LST IN EDIT * 

* SUBROUTINE * 
***************** 



X 


TPRTN X 


X 


X 


*****£ 2********** 


*****£ 3 ********** 


***** £4* ********* 


*****E5******* 


* LOAD ADDRESS * 


* LOAD ADDRESS * 


* LOAD THE * 


*REGPNT 


* OF SKIPPING * 


* OF FIRST BYTE * 


* BEGINNING * 


*_*_*_*_*_*_*_ 


* TO CHANNEL 1 * 


* OF AREA FOR * 


* ADDRESS OF * 


* EDIT 


*CCW INTO REG 1 * 


* TAPE OUTPUT * 


* REGISTERS 0-7 * 


* REG 8 


* * 


* INTO REG 1 * 


* INTO REG 3 * 


* 


***************** 


***************** 


***************** 


************** 



*****F1******* 

* SET SWITCH * 

* IN FGNAME FOR* 

* MOVING FGNAME * 

* DATA TO HEAD * 
*LINE OUT AREA* 
************** 



*****F 2 ********** 

* STORE THE * 

* CCW ADDRESS * 

* IN THE OUTPUT * 

* COMMAND BLOCK * 

* * 
***************** 



*****p 3 ********** 

* RELOCATE THE * 

* ADDRESS IN * 

* THE CCW FOR * 

* WRITING ON * 

* TAPE * 
***************** 



*****P4********** 

* MOVE ADDRESS * 
*0F HEADING FOR * 

* REGISTERS 0-7 * 

* INTO LINE * 

* OUTPUT AREA * 
***************** 



*****F5********** 

* RESET THE * 

* LST NO-OP * 

* INSTRUCTION * 

* TO BRANCH * 

* * 
***************** 



PDUMP .*. 

Gl *. 

.* DOES *. 

.* LINK REG * 

*. CONTAIN TAPE 

*. SYSTEM .* 



*****G2******** 

* LOAD THE 

* ADDRESS OF 

* THE SECOND 

* CCW INTO 

* REG L 
*************** 



*****G3 ********** 

* STORE THE * 
*ADDRESS OF THE * 

* CCW INTO THE * 

* OUTPUT CCB TO * 
*PRINT A HEADER * 
***************** 



*****G4**** ****** 

* MOVE CONTROL * 

* FOR SKIPPING * 

* 2 LINES AND * 

* PRINTING INTO * 
*TAPE OUTPUT CCW* 
***************** 



*****G5 ********** 

* LOAD ADDR OF * 

* REG 9 DATA IN * 
*SAVE AREA INTO * 

* REG3 * 

* * 
***************** 



RELOC X 

*****H2 ********** 

* STORE ADDRESS * 

* OF THE SECOND * 

* CCW INTO THE * 

* OUTPUT CCB TO * 

* PRINT A LINE * 
***************** 



*****H4********** 
*REGPNT SQ* 
*-*_*_*_*-*_*_*_* 

* EDIT AND * 
*PRINT REGISTERS* 

* 0-7 * 
***************** 



*****H5** ******** 

* LOAD END * 

* ADDRESS OF * 

* REGISTER 15 * 

* INTO REG 5 * 

* * 
***************** 



*****J2********** 
♦INITIALIZE PAGE* 

* AND LINE * 

* COUNT IN REG * 

* 12 AND REG 2 * 

* RESPECTIVELY * 
***************** 



*****J4********** 
*POINT REG 5 TO * 

* END OF REG 8 * 

* INFO IN REG * 

* SAVE AREA * 

* * 
***************** 



*****J5********** 
*UNPK SP* 
*_*_*_*_*_*_*_*_* 

* EDIT AND * 

* WRITE REGS * 

* 8-15 * 
***************** 



**** 

* * 

* 4 * 



***** 
*SN * 
* Bl* 
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Chart SN. $$BPDUM1 - Parameter 
Refer to Chart 19. 



Storage Dump on Printer or Tape 



***** 

*SM * 
* J5* 



*****A2********** 
♦REGPNT5 SQ* 
*_*_*..*_*_*_*_*_* 

*EDIT AND PRINT * 
♦FLOATING POINT * 

* REGISTERS * 
***************** 

**** I 

* * 

* 1 *... 



X 

.*. 


**** 
PRNTLN X 


Bl *. 


*****B2********** 


.FLOATING*. 


* MOVE A X'70' * 


NO .* POINT *. 


♦INTO THE BRANCH* 


...♦FEATURE PRESENT* 


♦INSTRUCTION TO ♦ 


♦ . .* 


* THE PRINT * 


*. .* 


* SUPPRESS RTN ♦ 


X *. .♦ 


***************** 


**** *YES 


.. 



**** 

* * 

* 6 * 

* * 
**** 



*****B3********** 
♦REGPNT SQ^ 
*_*_*_*_*_*_*_*-* 

* EDIT AND * 

* PRINT A LINE * 

* OF CORE * 
***************** 



***** 
*SP ♦ 
♦ HI* 



TSTLST X 

*****B4********** 

* LOAD ADDRESS ♦ 

* OF NEXT LINE * 

* TO BE PRINTED ♦ 

* INTO TESTR ♦ 

* REGISTER ♦ 
***************** 



****B5********* 

* SVC 11 RETURN * 
*TO TASK SELECT * 

* IN SUPVR * 
*************** 



*****Cl********** 

* MOVE X'EF* * 
*INTO THE FIRST * 

* WORD ADDRESS * 

* OF THE LINE * 

* * 
***************** 



* 2ND 

WORD BEING 
♦. MOVED . 



*****C3********** 

* MOVE CARRIAGE * 

* CONTROL INTO * 

* FIRST BYTE OF * 

* TAPE OUTPUT ♦ 

* AREA * 
***************** 



IS 

THIS THE 
.LAST LINE. 



****C5********* 

* * 

* RETURN * 

* * 
*************** 



*****D1 ********** 

* USE EXECUTE * 

♦ INSTRUCTION * 
*TO EXTEND X'EF'* 
♦THROUGH THE 32 * 
♦BYTES OF FSTWO ♦ 
***************** 



*****D2********** 

* MOVE X«80« TO * 

* BRANCH INSTR * 

* TO THE PRINT * 

* SUPPRESS RTN * 

* * 
***************** 



LAST 

TIME 

THROUGH 



*****04********** 

* MOVE MASK ♦ 

* FOR GETTING ♦ 
♦LAST LINE INTO ♦ 
♦REG 7 AS ENDLIN^ 

* AND ENDLIN1 ♦ 
***************** 



*****E1********** 
*STORE FLOATING * 

* POINT REGS ♦ 
♦0, 2, 4, 6 INTO* 

* SAVE AREA * 

* * 
***************** 



♦ MULTI- ♦ 

PROGRAMMING 
♦. SUPPORT .♦ 



PRNTLN1 X 

*****E2+*^^^***** 
*TSTCOR SP* 
*_*_*_*_*_*_*_*_* 

♦ TEST CORE FOR * 

♦ ENOUGH SPACE * 

♦ TO OUTPUT * 
***************** 



**** 

* * 
SP * 

* C2* 
**** 



**** 

* * 

* 2 * 



**** 
LSTLN 

*****P2********** 

* STORE THE * 

* BEGINNING OF * 

* PROGRAM ADDR * 

* INTO THE LINE * 

* . OUTPUT AREA * 
***************** 



* 3 ♦... 

* * 
**** 

BTSTCR X 

*****E 3********** 

♦TSTCOR SP* 
*_*_*_*_*_*„*_*_* 

* TEST CORE FOR * 

* ENOUGH SPACE ♦ 

* TO OUTPUT * 
***************** 



IS 
NEXT 
LINE 
SAME 
. ♦HV 



E4 *. 

* IS * 

TSTLST1 

SWITCH 



.♦ IS 
.* TSTPRT 
.X*. SWITCH 
*. ON 



CLRLIN X 

*****E5 ********** 

* CLEAR LINE * 

* OUTPUT AREA * 

* AND MOVE THE * 

* WORD— SAME— ♦ 

* TO PRINT AREA * 
***************** 



**** 

* * 

* 1 * 



***************** 



*****Gl********** 

* * 
♦MOVE REGISTERS ♦ 

♦ FROM ♦ 

♦ SAVE AREA * 

* * 
***************** 



*****G2****^*+*** 

* UNPACK THE * 

* FIRST WORD * 

* OF THE ♦ 

* PROGRAM * 

* * 
***************** 



*****G3******* 

* SET TSTPRT * 

* SWITCH TO 

* SKIP AROUND 

* PRINTING A 

* LINE * 
************** 



*****G5 ******* 

* TURN OFF * 

* SKIP SWITCHES^ 

* IN TSTPRT * 

* AND TSTLST1 * 

* * 
************** 



*****H1 ********** 

* LOAD ADDRESS * 

* OF SAVE AREA * 
*INTO REG 3 FOR * 
♦FOREGROUND PROG* 

* REGISTER DUMP * 
***************** 



*****H2********** 

* MOVE BLANK * 

* CHARACTER * 

* INTO LINE ♦ 

* OUTPUT AREA * 

* * 
***************** 



*****H3******* 

* SET TSTLST1* 

* SWITCH TO * 

* SKIP AROUND 

* LAST LINE * 

* PRINTING ♦ 
************** 



*H4 
BEFORE THE 
CONDITION CODE 
IS CHECKED, THE 
ADDRESS OF THE 
NEXT LINE IS 
LOADED INTO REG 



ENDLIN1 X 

*****H5 ********** 

* LOAD ADDRESS * 

* OF BEGINNING * 

* OF PROGRAM * 

* INTO * 

* REG 7 * 
***************** 



***** j i ********** 

* LOAD ADDRESS * 

* OF END OF * 

* SAVE AREA * 

* REGISTER DUMP * 

* INTO REG 5 * 
***************** 



*****J2********** 

* TRANSLATE THE * 

* DATA IN LINE * 

* AREA TO * 
♦PRINTABLE DATA ♦ 

* * 
***************** 



**** 

* * 

* 3 * 

* * 
**** 



**** 

* * 

* 1 * 

* * 
**** 



*****K1 ********** 

* SET HEADING * 

* FOR FLOATING * 

* POINT ♦ 

* REGISTERS * 

* INTO LINE * 
***************** 



ENDLIN X 

*****«2********** 

* MOVE ADDRESS * 

* OF BEGINNING ♦ 

♦ OF PROGRAM * 
♦INTO REG 7 FOR * 

♦ PRINTING * 
***************** 



* 6 

* 
**** 



Chart SP. $$BPDUM1 - Line Test Subroutines 
Refer to Chart 19. 



*SN-D2,E3 



****A1********* 

* * 

* TSTCOR * 

* * * 
*************** 



TSTCOR X 

*****Q1********** 

* LOAD ADDRESS * 

* OF BEGINNING * 
*0F PROGRAM INTO* 

* BEGINNING OF * 

* FIRST LINE * 
***************** 



*****d********** 

* LOAD ADDRESS * 

* OF ENDING OF * 

* PROGRAM LINE * 

* INTO END OF * 
♦FIRST LINE REG * 
***************** 



*****D1 ********** 

* LOAD AND TEST * 

* LINE COUNT * 

* REGISTER * 

* FOR ANY PAGE * 

* SPACE LEFT * 
***************** 



ANY 
SPACE 
LEFT 



*****F1********** 

*PAGHED SP* 
*_*_*_*-*_*_*_*_* 

* PRINT * 

* PAGE * 

* HEADER * 
***************** 



*****Gl********** 

* MOVE CONTROL * 

* BYTE TO SKIP * 

* 2 LINES INTO * 

* TAPE OUTPUT * 

* AREA * 
***************** 



**** 

* * 

* 1 * 

* * 
**** 



*****B2********** 

* EXECUTE * 

* CLRLIN TO * 

* CLEAR PRINT * 

* AREA * 

* * 
***************** 



*****C2******* 

* SET SWITCH * 

* FOR UNCOND 

* BRANCHING TO 

* EXIT IN NOP 

* BTSTCR-3 * 
************** 



X 

***** 
*SN * 
* F2* 



COR .*. 




HI • *. 




.* IS *. 




.* NEXT *. YES 


*.LINE IN CORE .* 




*. .* 




*. .* 




*. .* 


X 


*NO 


***** 




*SN * 




* B4* 




* * 




* 


X 




*****jl ********** 




* LOAD END OF * 




* PROGRAM ADDR * 




*INTO REG 5 FOR * 




* ENDING * 




* LIMIT * 




***************** 





****A3********* 

* * 

* PAGHED * 

* * * 
*************** 



PAGHED 

*****B3********** 

* MOVE CONTROL * 

* BYTE TO SKIP * 

* AND PRINT * 

* INTO TAPE * 

* OUTPUT AREA * 
***************** 



*****C3********** 

* EXECUTE * 

* CLRLIN TO * 

* CLEAR PRINT * 

* AREA * 

* * 
***************** 



*****03********** 

* INCREMENT * 

* PAGE COUNT * 

* IN REGISTER * 

* 12 * 

* * 
***************** 



*****E3********** 

* CONVERT TO * 

* DECIMAL AND * 

* UNPACK THE * 

* 3 DIGIT PAGE * 

* NUMBER * 
***************** 



**** 

* * 

* 2 * 

* * 
**** 



*****D4********** 

* MOVE * 

* JOB NAME * 



***************** 



*****G3********** 

* SUPPRESS * 

* THE LEADING * 

* ZEROS IN THE * 

* PAGE * 

* NUMBER * 
***************** 



DATE X 

*****E4********** 

* MOVE * 

* JOB DATE AND * 

* PAGE NUMBER * 

* TO HEADLINE * 

* * 
***************** 



*****P4*********** 

* LOAD ADDRESS * 

* OF OUTPUT * 

* COMMAND BLOCK * 

* INTO * 

* REG 1 * 
***************** 



*****G4********** 

* INSERT LINE * 

* COUNT FROM * 

* SYSLST LINE * 

* COUNT REGION * 

* IN COMREG- * 
***************** 



*SQ-E1,F1,K3 
****E5********* 

* * 

* UNPK * 

* * 
*************** 



* * * 
**** 

UNPK X 

*****P5********** 

* MOVE 4 BYTE * 

* WORD FROM * 

* WORK AREA IN * 

* REG 3 TO AREA * 

* FOR EXPANDING * 
***************** 



UNPK1 X 

*****G5********** 

* DECREMENT * 

* REG CTR * 

* AND UNPACK * 
*ONE 4 BYTE WORD* 

* INTO LINE * 
***************** 



*K2 
THIS BRANCH WILL 
NEVER BE TAKEN 
BECAUSE THE LINE 
COUNT WAS JUST 
PICKED UP IN THE 
PREVIOUS INSTRUCTION. 



H3********** 


H4 *. 






*****H5******** 








* 


.* IS *. 






* MOVE 1 BYTE 


* 


CLEAR 




* 


YES .* COUNT 


* 


. NO * DELIMITING 


* 


SAVE 




* 


...*. ZERO 




.*. 


* CHARACTER 


* 


AREA 




* 


*. *K2 


* 




* TO WORK 


* 






* 


*. .* 






* AREA 


* 


********** 


4c* 


X *. .* 






x ***************** 








***** * 






***** 










** * 






*SQ * 










* K2* 






* D5* 










* * 






* * 










* 






* 




X 












X 




.*. 






FGHED 






ALTER .*. 




J3 *. 






*****J4********** 


J5 *. 




IS *. 






* MOVE 




* 


.* IS *. 




FGNAME 


* 


. YES 


* FOREGROUND 




* 


NO .* ALTER * 




WITCH ON 


* 


.*... 


.....X* NAME INTO 




* 
* 


...*. SWITCH ON 

*. .* 


.* 






* HEAD LINE 




.* 






* 




* 


*. .* 




*. .* 






***************** 


X *. .* 




*NO 












***** *YES 




• 






; 






*SQ * 
* J2* 




X 






X 






* * X 




**** 






**** 






* ***** 




* * 






* * 






ALTER1 *SQ * 




* 2 * 






* 3 * 






* C2* 




* * 






* * 






* * 




**** 






**** 






SPECIAL 
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Chart SQ. $$BPDUM1 - Prepare and Edit a Line Subroutine 
Refer to Chart 19, 



****A1********* 

* * 

* REGPNT * 

* * 

*************** 



REGPNT 

*****Bi********** 

* MOVE A X'EF* * 
*INTO THE FIRST * 

* WORD AREA OF * 

* LINE OUTPUT * 

* AREA (LINE+8) * 
***************** 



REGPNT6 X 

*****d ********** 

* REPEAT * 

* THE X«EF« * 

* DATA WORD * 
*T0 BYTE 119 OF * 

* LINE +8 AREA * 
***************** 



REGPNT5_ 

««**«D1»*»****«* 

* LOAD ADDRESS 

* OF FIRST WORD 

* AREA TO 

* REGISTER 



REGPNT1 X 

*****E1 ********** 

* LOAD A 4 * 

* INTO REGISTER * 
*0 TO INITIALIZE* 

* COUNTER * 

* * 
***************** 



***** 
*SP * 
* J5* 



SPECIAL X 

*****C2********** 

* COMPARE * 

* REGISTER * 

* WITH A * 

* CONSTANT 1 * 

* * 
***************** 



CONTROL 
*. SWITCH 
*. ON .* 



***** 
*SP * 
* F5* 



***** 
*SP * 
* J 5* 



* DOES *. YES 
REG EQUAL .*..X 
*. 1 .* 



*****F 2 ********** 

* MOVE A * 

* ONE BYTE * 

* DELIMITING * 

* CHARACTER TO * 

* THE WORK AREA * 
***************** 



* BLANK * 

* OUT * 

* WORK * 

* AREA * 
***************** 



*****H2******* 

* CLEAR SKIP * 
*. SWITCH BY 
♦ANDING A X'OF'* 

* INTO ALTER * 
************** 



*****B4********** 

* LOAD ADDRESS * 

* OF SYSLST * 

* INTO EOV * 

* ROUTINE * 

* REGISTER * 
***************** 



EOVMV X 

*****C4******* 

* SET PDUMP * 

* END OF VOLUME* 

* SWITCH IN * 

* PDUMP3 * 

* DESIGNATOR * 
************** 



*****D4********** 

* LOAD ADDRESS * 

* OF END-OF- * 
♦VOLUME ROUTINE * 

* $$BCMT07 * 

* * 
***************** 



****E4********* 
*SVC 2 $$BCMT07 * 

* LIOCS PLM * 

* Y24-5020 * 
*************** 



* 2 * 

* * 
**** 



LST1 X 

*****B5********** 

* TRANSLATE * 

* DATA INTO * 

* PRINTABLE * 

* CHARACTERS * 

* * 
***************** 



PRNTL 

*****C5********** 

* LOAD ADDRESS * 

* OF SECOND * 

* OUTPUT CCB * 
*INTO REG 1 FOR * 

* SVC CALL * 
***************** 

**** 

* * 
*SP * 

* H4* 
**** 

PRINT X 

****** 05 *********** 
SVC 

* EXECUTE * 
CHANNEL 

* PROGRAM * 

************* 



****** E5*********** 

. WAIT 

* AND COUNT * 

LINES 

* PRINTED * 

SVC 7 

************* 



IS *. NO 
COUNTER .*... 
ZERO .* 



**** 

* * 

* 1 * 

* * 
**** 



*****P3********** 

* MOVE X'EF' * 

* FROM CONSTANT * 

* AREA TO A * 

* 9 BYTE AREA * 

* IN LINE * 
***************** 



*****G3* ********* 

* * 

* INCREMENT * 

* LOCATION * 

* COUNTER * 

* * 
***************** 



*****H3********** 

* * 

* RESET * 

* LINE COUNTER * 

* TO 4 * 

* * 
***************** 



ALTER2 

*****j 3 ********** 

* LOAD ADDRESS * 

* OF THE NEXT * 
...X* WORD AREA * 

* INTO REG 6 * 



***************** 



K3 *. 

.* IS *„ 

* THE NEXT * 

WORD WITHIN 

*. DUMP .* 

*• LIMIT.* 

*. .* 

*YES 



**** 

* * 

* 3 * 

* * 
**** 



SYSLST 


*« 


YES 






*. .. . 


. PRINTER 


* 




*. .* 






*. .* 






*N0 






X 






.*. 






H5 *. 






.* * 






END 


* 




OF FILE ON 




* '. 


. TAPE 


* 




*. .* 






*. .* 






*N0 






Ix... 







.*NO-PRINTER *. YES 
.X*. SWITCH .*... 
*. ON .* 



****«5********* 

* RETURN TO * 

* CALLER * 

* * 
*************** 



X 

***** 
*SP * 
* F5* 
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Chart TA. 



$$BSYSWR 
COMREG 



Set up a Write on SYSRES Operation; Move Label Cylinder Address to 



**** 
* * 

* 2 * 

* * 
**** 



****A1********* 

* * 

* $$BSYSWR * 

* * 
*************** 



****A2********* 

* SVC 7 * 

* WAIT * 

* * 

*************** 



.* TEST 
. ZERO FOR 
*. SYSWRT 



******B4*********** 

LOAD ADDRESS 

* OF COMREG * 

INTO REG 3 



LABMV 

*****d ********** 

* LOAD DISK * 

* ADDR INTO * 

* RO AND STORE * 

* IN SEEK CCW * 

* * 
***************** 



*****D1 ********** 

* LOAD DISK * 

* ADDR +2 * 

* INTO RO * 

* AND STORE IN * 

* SEARCH CCW * 
***************** 



* 3 *. .. 

* * 
**** 

LABMV1 X 

*****G1 ********** 

* SET UP TO * 

* RETRY 10 * 

* TIMES AND * 

* LOAD CCB * 

* ADDR IN Rl * 
***************** 



* h 



**** 
LABMV3 X 

*****D2********** 

* LOAD ADDR * 

* OF COMREG * 

* INTO R2 * 

* AND ISSUE * 

* SVC 33 *D3 * 
***************** 



*D3 
BLOCKS BEGINNING AT 
LABMV3 REPRESENT 
AN EXPANSION OF 
THE SYSIR MACRO. 



*****£!********** 

* LOAD ADDR * 

* OF SEARCH CCW * 

* INTO RO * 

* AND STORE * 

* IN TIC CCW * 
***************** 


E2 *. 
.* MULTI *. 
.* PROG *. NO 

*. SYSTEM .* 

♦.ENVIRON- .* 
*.MENT .* 
*. .* 
*YES 


** 

* 

* 

...X* 

* 
* 
** 


***E3********** 
GET ADDR * 
OF BG COM * 

RGN AND MOVE * 

IN LABEL CYL * 
DISK ADDR * 

*************** 

X 

**** 
* * 


X 
*****Fi ********** 

* SET UP READ * 

* CCW WITH ADDR * 
*0F BUFFER AREA * 
*AND STORE SEEK * 
*CCW ADDR IN CCB* 
***************** 


X 
*****F2********** 

* GET ADDR * 

* OF BG COM * 

* RGN AND MOVE * 

* IN LABEL CYL * 

* DISK ADDR * 
***************** 




* 5 * 

* * 
**** 



*****G2********** 

* GET ADDR * 

* OF F2 COM * 

* RGN AND MOVE * 

* IN LABEL CYL * 

* DISK ADDR * 
***************** 



C4 *. 

.* IS *. 

CALL A 

BACKROUND 

. PROGRAM . 

*.CALL .* 

*. .* 

*YES 



*****P4**** ****** 

* LOAD STARTING * 

* ADDRESS OF * 

* PIB TABLE * 

* INTO * 

* WORK REGISTER * 
***************** 



*****£ 4********** 

* INCREMENT * 

* WORK REGISTER * 

* TO POINT TO * 

* ASSGN FLAG * 
*MASK IN BG PIB * 
***************** 



***P4******* 

SET X'80' * 

IN FLAGMASK 

POSITION OF 

BG PIB 



****G4********* 

* SVC 11 * 
*EXIT TO PROBLEM* 

* PROGRAM * 
*************** 



******H1 *********** 

* SVC * 

ISSUE 

* I/O * 

************* 



*****H2********** 

* GET ADDR * 

* OF Fi COM * 

* RGN AND MOVE * 

* IN LABEL CYL * 

* DISK ADDR * 
***************** 



**** 

* * 

* 5 * 



.* 



*N0 



**** 

* * 

* 2 * 
X * * 

**** **** 

* * 

* l * 

* * 
**** 
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APPENDIX A: LABEL LIST 



Phase 



Chart 



Label 

A $$BEOJ RL 

A01 $$ANERRG LM 

A02 $$ANERRG LM 

A03 $$ANERRJ LS 

A05 $$ANERRJ LS 

A051 $$ANERRJ LS 

A06 $$ANERRJ LS 

A2321 $$A$SUP1 CG 

(SGTCKS) 
AACT $$ANERRU MG 

AACTION $$ANERRP LZ 

ABTRANS $$A$SUP1 EA 

(SGDFCH) 
ACTIONA $$ANERRP LZ 

ADDLST $$BTERM RF 

The pointer from FAVP byte, which was 
pointing to the first available JIB 
before this terminating phase began, 
is put in the chain byte of the 
last-dequeued JIB (using register 8 as 
an intermediate storage) . The second 
byte of the LUB has a pointer to the 
first JIB associated with that LUB; 
this pointer is now put in the FAVP 
by t e . 



ADDRLP 


$ $BATTNH 


NT 


AFTTIO 


$$A$SUP1 
(SGUNCK) 


DF 


ALLBND 


$$A$SUP1 
(FOPT) 


BC 


ALLOC 


$ $BATTNE 


NM 


ALT 


$$BATTNI 


NW 


ALTB'JR 


$$BDUMPF 


RZ 




$$BDUMPB 


SE 




$ $BDUMPD 


SJ 




$$BPDUM1 


SP 



Switch to enter or bypass SPECIAL 
routine that blanks printing of the 
first two storage data words. To 
illustrate the use of this SPECIAL 
routine, consider the example where 
the beginning address of a problem 
program or parameter dump falls 
between 3F8 and 3FF. To begin print 
of the dump at the nearest lower 
double- word boundary, it is necessary 
to blank out data from 3F0 through 
3F7. 

In the case of a parameter dump, an 
additional calculation is made to 
determine the number of additional 



blanks needed, if the desired starting 
address is 3FC. This number is put in 
register 2 by the $$BPDUMP monitor 
phase and passed to the phase actually 
* performing the dump. This switch is, 
therefore, a NOP only once (if needed) 
at the outset of the problem program 
portion of a dump or a parameter dump, 
and Is normally set to a branch. 

ALTER1 $$BDUMPF RZ 

$$BDUMPB SE 

$$BDUMPD SJ 

$$BPDUM1 SQ 

Routine that puts an extra 2 spaces 
between groups of 4 words, making a 
total of 3 spaces. This makes the 
dump easier to read, because storage 
locations such as 1B0, ICO, 1D0, etc. 
stand out clearly. The word counter, 
register 0, used for this grouping 
function, is reset to 4. 

ALTER2 $$BDUMPF RZ 

$$BDUMPB SE 

$$BDUMPD SJ 

$$BPDUM1 SQ 

This routine increments register 6, 
which points to locations along the 
print line where data information is 
being assembled. It is incremented by 
9 for each new word to be 
printed: one for the space between 
words and 8 for the print positions of 
each unpacked word. 

ALTER3 $$BDUMPF RZ 

$$BDUMPB SE 

$$BDUMPD SJ 

Switch to enter or bypass instructions 
that create 2 blank spaces between the 
location counter and first word of 
storage data. Switch is set to 
branch, except when preparing the 
first word of each new print line. 



ANAERR 


$$BATTNC 


NG 


ANNUL 


$$ANERR9 


MY 


ANYERRS 


$$ANERR9 


MY 


ARCANCEL 


$$BEOJ 


RA 


ASGCHG 


$$BATTNP 


QN 


ASGLST 


$$BATTNJ 


PG 


ASGPUB 


$$BATTNI 


NW 


ASSGN 


$$BATTNI 


NV 


ASSGNLOG 


$$BATTNG 


NS 
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Label 



Phase 



Chart 



ATABLE $ $BATTNE * 

Defines a set of internal allocation 
tables built by the ALLOC processor. 
Because of this label's physical 
placement, it also defines the 
internal allocation table for 
background programs. To establish the 
table, the ALLOC processor uses 
existing limit information, found in 
the PIB, and allocation information 
acquired from the ALLOC statement. 
After the allocation data has been 
validity checked and posted to the 
allocation table, it is used to update 
the appropriate PIB entry. The table 
expansion is : 

1. A half word of padding for proper 
alignment. (This field can 
contain a constant.) 

2. A half word containing the current 
number of 2K blocks. 

3. A fullword containing the save 
area address. 

4. A fullword containing the lower 
limit address. 

5. A fullword containing the upper 
limit address. 



BALR14 


$$BE0J1 


RK 




$$BPSW 


RS 


BATCH 


$$BATTNG 


NR 


BGCALC 


$$BATTNG 


NS 


BGJOB 


$$BDUMPD 


SG 


BJFTST 


$$ANERR1 


MW 


BLANKS 


$$BDUMPB 


SE 




$$BDUMPD 


SJ 



Blanks are used to blank out the 
unneeded high-order positions of the 
Printline area when the registers and 
user's part of the communications 
region are printed. 



BLNK2 $$BDUMPF RZ 

$$BDUMPD SJ 

BLNKLD $$BATTND NL 

BLNKST $$BDUMPB SE 

$$BDUMPD SJ 

Switch that determines if BLANKS 
instruction will be used. Switch set 
to branch except under conditions 
given in the BLANKS label. 

BSOT $$ANERRE LF 

BSOUT $$ANERRW ML 

BSTTST $$A$SUP1 DA 

(SGUNCK) 
BTLOOP $$BATTNA NB 

Beginning of a table lookup, in the 
branch vector table, that finds the 
appropriate B- transient required for 
further processing. 



ATHRTN $ $A$SUP1 

( SGTCON) 

ATNCNL $ $A$SUP1 

(SGSVC) 

ATTNH $ $BATTNH 

ATYPE $ $ANERRN 

$$ANERRV 
$ $ANERRX 

B $$BE0J2 

B01 $$ANERRG 

B02 $$ANERRG 

B050 $$ANERRI 

BAL $ $BPDUM1 

BALI $$BDUMP 

$ $BDUMPD 
$ $BPDUMP 
In $$BDUMP and $$BDUMPD ; 
blanks out initializing instructions 
of this phase so this portion of 
storage can be used as an I/O output 
area . 

In $$BPDUMP : Sense data is tested for 
file-protect condition if SYSLST is a 
tape drive. If it is protected, the 
dump cannot be taken, and this program 
phase returns to supervisor for 
selection of next task. If not 
protected, B-transient $$BPDUM1 is 
fetched to perform the actual 
parameter dump. 



♦Listing only. 



HA 

FE 

NT 
LX 
MJ 
MP 
RL 
LM 
LM 
LR 
SM 
RW 
SG 
SL 
Routine that 



BTOFWS 
BTOTCL 
BTSTCR 



$$ANERRF 
$$ANERRF 
$$BDUMPF 
$$BDUMPD 
$$BPDUM1 



LJ 
LJ 
SA 
SK 
SN 



Branch and link to TSTCOR subroutine 
is followed by comparing characters of 
the next line to be printed with those 
of the line just printed. If the next 
line is identical, a switch is set to 
branch to the CLRLIN routine that 
suspends printing the identical line 
and prints SAME instead. 



BUS 
BUS1 
BUS 2 
BUSOUT 



BYCNL 

C 

C01 



C0100 

C02 

CALFET 



$$ANERRX 

$$ANERRV 

$$ANERRV 

$$ANERRA 

$$ANERRV 

$$ANERRW 

$$ANERR9 

$$ANERRZ 

$$BE0J2 

$$ANERRG 

$$ANERRH 

$$ANERRJ 

$$ANERRV 

$$ANERRV 

$$A$SUP1 

(SGSVC) 



MP 
MJ 
MJ 
LB 
MJ 
MK 
MX 
MT 
RL 
LN 
LQ 
LS 
MJ 
MH 
FD 
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Label 


Phase 


Chart 


CHKOWN 


$$BATTNN 
$$BATTNP 


QE 
QM 


CALLMW 


$ $ANERRX 


MN 


CHKPRN 


$$BATTNE 


NM 


CALLS EC 2 


$$ANERRZ 


MS 


CHKPUB 


$$BATTNI 


NY 


CALSEC3 


$ $ANERRY 


MR 


CHKRNG 


$$BATTNE 


NN 


CALPH4 


$$ANERRO 


LY 




$$BATTNI 


PB 


CALPH5 


$ $ANERRP 


LZ 




$$BATTNK 


PL 


CALPHS3 


$$ANERRN 


LW 


CHKRNG1 


$$BATTNK 


PL 


CANCEL 


$ $ANERR1 


MW 


CHKRT 


$$ANERRE 


LF 




$$BATTNC 


NG 


CHKSLH 


$$BATTNK 


PK 


CANCLB 


$ $BATTNC 


NG 


CHKSTT 


$$BATTNA 


NB 


CAN COD 


$$ANERRS 


MD 


CHKUA 


$$BATTNJ 


PE 


CANCON 


$ $ANERRX 


MP 


CHNDRT 


$$A$SUP1 


CM 


CANRTN 


$ $ANERRS 


MD 




(SGTCHS) 




CANTLP 


$$ANERRY 


MQ 


CHNTST 


$$A$SUP1 


CL 


CAS ERR 


$ $BATTNI 


NV 




(SGTCHS) 






$ $BATTNP 


QM 


CHQOVFLW 


$'$ANERRY 


MQ 


CAUSE1 


$$BEOJl 


RJ 


CKBF12 


$$BATTNC 


NG 




$$BEOJ2 


RL 


CKF1F2 


$$BATTNB 


NE 


CCBSTR 


$$ANERRM 


LV 


CKNDAR 


$$BATTNF 


NQ 


CCBUNAV 


$ $ANERRN 


LW 


CKNDCH 


$$BATTNI 


NW 


CCBQED 


$$A$SUP1 


DB 


CKNXJB 


$$BATTNI 


NZ 




(SGUNCK) 




Exit 


point to the scan 


JIB subroutine, 


CDATACK 


$ $ANERR9 


MX 


SCNJIB. The subroutine is entered to 


CDC 


$ $ANERRW 


ML 


reset JBSLUB according 


to any JIB 


CEDETST 


$$A$SUP1 


CK 


chained to the logical 


unit. 




(SGTCHS) 










CHAIN 


$ $BTERM 


RF 








CHAINCH 


$$ANERRB 


LC 


CKPBUA 


$$BATTNJ 


PE 


CHDATCH 


$ $ANERRE 


LF 


CKSCST 


$$BATTNE 


NM 


CHDTCK 


$$ANERRX 


MN 


CLCEX 


$$A$SUP1 


EA 


CHECK 


$$ANERRF 


LH 




(SGDFCH) 




CHEND 


$$A$SUP1 
(SGTCHS) 


CK 


CLCINS 


$$A$SUP1 
(SGTCHS) 


CG 


CHEND1 


$$A$SUP1 


CK 


CLI 


$$BEOJ3 


RD 




(SGTCHS) 




CLRCCB 


$$ANERRS 


MD 


CHFAIL 


$$A$SUP1 


DF 


CLRLIN 


$$BDUMPF 


SA 




(SGUNCK) 






$$BDUMPB 


SF 


CHFAIL1 


$$A$SUP1 


DF 




$$BDUMPD 


SK 




(SGUNCK) 






$$BPDUM1 


SN 


CHGSTT 


$ $BATTNF 


NQ 


CLRTEB 


$$A$SUP1 


CK 


CHKADR 


$ $ANERRT 


ME 




(SGTCHS) 






$$ANERRW 


MK 


CMDCHN 


$$A$3UP1 


DA 


CHKAM 


$$ANERRB 


LC 




(SGUNCK) 




CHKASG 


$ $BATTNM 


QD 


CMDREJ 


$$ANERRV 


MJ 


CHKCNT 


$$ANERRL 


LL 




$$ANERR9 


MY 




$$ANERRV 


MJ 


CMDSEQ 


$$ANERRV 


MH 


CHKDEV 


$$ANERRP 


LZ 


CMNWLM 


$$BATTNF 


NP 


CHKDISK 


$$ANERRA 


LA 


CMPBPT 


$$BATTNI 


NZ 


CHKF1 


$$BATTNJ 


PE 


Test 


for identical PUB 


pointers. 


CHKF2 


$ $BATTN J 


PE 


Identical PUB pointers 


indicate that 


CHKFGA 


$$BATTNH 


NU 


another LUB is assigned to the 


CHKFUA 


$ $BATTNI 


PD 


physical unit pointed to by the LUB 


CHKIS 


$ $ANERRE 


LG 


just 


unassigned. (See 


label UNPA in 


CHKJIB 


$ $BATTNI 


NZ 


this 


list.) If there : 


Is no other LUB 


CHKLTA 


$$ANERRS 


MD 


with 


a matching PUB, the ownership 


CHKMOD 


$$BATTNI 


NV 


flag 


of the PUB indicated by the LUB 


CHKNXC 


$ $BATTNI 


PB 


in LBSLUB is reset so i 


bhat the PUB is 




$ $BATTNK 


PL 


not assigned to any LUB. 
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Label 



Phase 



Chart 



CMPCOR $$3DUMPF SA 

$$BDUMPB SF 

$$BDUMPD DK 

$$BPDUM1 SP 

Register 5 contains the highest 
storage location that prints for any 
single line. Register 5 is compared 
to register 8 (which contains the 
upper storage limit of the dump) to 
see if limit of dump will be exceeded 
should the entire line be printed. If 
register 5 is higher than register 8, 
the value in register 8 is then loaded 
into register 5 and the printing 
ceases at the dump limit. 



CMR 


$$ANERRV 


MJ 


CNCL 


$$A$SUP1 
(FOPT) 


BC 




$ $ANERRU 


MG 


CNCLIN 


$ $BATTNC 


NG 


CNCLL00P 


$$ANERRZ 


MT 


CNCLME 


$ $BATTNC 


NG 


CNCLMSK 


$$ANERRY 


MR 


CNCLSW 


$ $ANERRY 


MR 


CNCLTEST 


$$BEOJ 


RB 


CNLRTN 


$$BATTNC 


NG 


CNLSVE 


$$A$SUP1 
(FOPT) 


BA 


CNO 


$ $ANERRU 


MF 


CNTEXT 


$$ANERRP 


LZ 


CNTREX 


$$ANERRD 


LE 


CNTRTN 


$ $ANERRD 


LE 


CNTST 


$ $ANERRE 


LF 




$ $ANERRN 


LW 




$$ANERRV 


MH 


CNUNCO 


$$BATTNK 


PW 




$ $BATTNM 


QD 


CNUNC01 


$$BATTNK 


PN 


CNVBCD 


$ $BATTND 


NL 


COMBIN 


$ $ANERRA 


LA 


COMM 


$ $BDUMPB 


SC 




$ $BDUMPD 


SG 


COMPCLC 


$$A$SUP1 
(SGTCHS) 


CA 


COMR 


$$ANERRX 


MN 


C0MREJ 


$ $ANERRB 


LC 


COMR J 


$$ANERRW 


MM 


CONCAT 


$ $BATTNK 


PN 


Entry 


point to a subroutine 


used to 



1. Read the second half of a 
statement. 

2. Join the first and second parts 
of a statement forming a single 
statement. (This operation is 
called concatenation.) 

3. Reset the address of the operand 
in the I/O area named BUFFER. 

4. Reset the length of the operand. 



CONT $$ANERRV MJ 

$$ANERRW ML 

CONTINUE $$ANERR9 MY 

CONTROL $$BATTNA NB 

C0NTR0L1 $$BATTNA NB 

CONTSCAN $$BTERM RG 

CONTX $$ANERRE LF 

C0RCHN $$A$SUP1 CJ 

(SGTCHS) 
CORE $$BDUMPF RX 

$$BDUMPB SC 

$$BDUMPD SG 

Register 7 , containing the beginning 
storage address of the problem program 
area, is tested for proper boundary 
alignment. If register 7 is not on a 
boundary that is a multiple of 16, it 
is adjusted to a boundary such as 1B0, 
ICO, 1D0, etc., and the switch at 
ALTER is set to NOP. See label ALTER. 



C0RE1 

CO RE 2 
CO RE 3 

CORPUB 

CORREC 

COUNTRG 

CQDSP 

CRC 

CRTBLD 

CSWCHK 

CUAPNX 

CUU 

CYLEND 

D 
DASD2321 

DAT 
DATAADDR 

DATACHK 

DATCHK 

DATE 

DCERP 

DEALSO 

DECCTR 
DECHQ 

DEQUE 

DEQUER 



$$BDUMPF 

$$BDUMPB 

$$BDUMPD 

$$BDUMPF 

$$BDUMPB 

$$BDUMPF 

$$BDUMPB 

$$BDUMPD 

$$A$SUP1 

(SGTCHS) 

$$A$SUP1 

(SGTCHS) 

$$ANERRP 

$$ANERRQ 

$$A$SUP1 

(SGTCHS) 

$$ANERRF 

$$BATTNE 

$$A$SUP1 

(SGUNCK) 

$$BATTNJ 

$$ANERRO 

$$A$SUP1 

(SGDSK) 

$$BEOJ2 

$$A$SUP1 

(SGTCHS) 

$$ANERRX 

$$A$SUP1 

(SGDFCH) 

$$ANERRB 

$$ANERRV 

$$BPDUM1 

$$ANERRA 

$$A$SUP1 

(SGTCHS) 

$$ANERRQ 

$$A$SUP1 

(SGTCHS) 

$$A$SUP1 

(SGSVC) 

$$A$SUP1 

(SGUNCK) 



RX 
SC 
SG 
RX 
SC 
RX 
SC 
SG 
CJ 

CH 

LZ 
MA 
CN 

LJ 

NM 
DF 

PE 
LY 
GB 

RL 
CG 

MN 
EC 

LC 
MJ 
SP 
LA 
CM 

MB 
CL 

FD 

DE 
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ENDLIN1 


$$BDUMPF 
$$BDUMPD 


SA 
SK 


DEQUER1 


$$A$SUP1 


DE 




$$BPDUM1 


SN 




(SGUNCK) 




ENDPUB 


$$BTERM 


RE 


DEQUEUE 


$ $BTERM 


RF 


ENDPUBS1 


$$ANERRZ 


MS 


The JIB 


pointer from the LUB is 


ENDPUBS3 


$$ANERRZ 


MT 


temporarily stored at 


label FRLSTBEG. 


ENT1 


$$BEOJ 


RB 


The JIB 


pointed at by - 


the LUB is 


ENT2 


$$BEOJ 


RB 


addressed, and its first 3 bytes are 


ENT3 


$$BEOJ 


RB 


zeroed. 


The chain byt< 


e (4th byte) of 


ENTEXT 


$$A$SUP1 


BD 


the JIB 


is checked for 


additional JIBs 




(FOPT) 




in the chain; if there 


are any, the 




$$A$SUP1 


FJ 


first 3 


bytes of these 


JIBs are zeroed 




(SGSVC) 




until the end of the chain is reached. 


ENTIO 


$$A$SUP1 


BD 










(FOPT) 










ENTPCK 


$$A$SUP1 


BA 


DEQUEUED 


$ $BTERM 


RF 




(FOPT) 




DISKRT 


$$BDUMP 


RV 




$$A$SUP1 


FG,FH 




$ $BPDUMP 


SL 




(SGSVC) 




D IS WHY 


$$A$SUP1 
(SGTCHS) 


CJ 


ENTSVC 


$$A$SUP1 
(SGSVC) 


FA 


DKTYPE 


$$BEOJ 


RC 


EOJS1 


$$BEOJ 


RB 




$ $BEO Jl 


RK 


EOJSTEP 


$$BEOJ 


RB 




$$BEOJ2 


RM 


EOVMV 


$$BPDUM1 


SQ 




$$BILSVC 


RP 


EQPCHK 


$$ANERRU 


MG 




$$BPSW 


RS 




$$ANERRV 


MH 




$$BPCHK 


RT 


EQUCHK 


$$ANERRX 


MP 


DLAB 


$ $BATTNL 


PS 


EQUIP 


$$ANERRA 


LA 


DLBL 


$ $BATTNK 


PQ 


EQUIPXIT 


$$ANERR9 


MX 


DLBOUT 


$ $BATTNK 


PQ 


EREV 


$$ANERRD 


LE 




$ $BATTNL 


' PS 




$$ANERRF 


LK 


DNEERR 


$ $BATTNI 


NY 




$$ ANERRL 


LL 


DOERG 


$ $ ANERRL 


LL 


ERG 


$$ANERRD 


LE 


DONE 


$$BTERM 


RE 


ERGERR 


$$ ANERRL 


LL 


DOP34 


$ $BATTNL 


PT 


ERGRET 


$$ANERRF 


LH 


DOSVC 


$ $ANERRD 


LE 


ERR 


$$ANERRD 


LE 




$ $ANERRE 


LF 




$$ANERRE 


LG 




$$ANERRF 


LK 




$$ANERRF 


LK 




$$ANERRL 


LL 




$$ ANERRL 


LL 


DOSVCA 


$$ANERRL 


LL 


ERR20 


$$ANERRA 


LA 


DSKTST 


$$A$SUP1 
(SGDSK) 


GA 


ERRGO 


$$A$SUP1 
(FOPT) 


BB 


DTCH 


$$ANERRB 


LC 


ERROVL 


$$A$SUP1 


DB 


DTCHAT 


$$BATTNA 


NA 




(SGUNCK) 




DTCHSZ 


$ $BATTNA 


NA 


ERRPRT 


$$A$SUP1 


DD 


DTCK 


$$ANERRL 


LL 




(SGUNCK) 




DTCRTN 


$$ANERRD 


LD 


ERRRTN 


$$BATTNA 


NC 


DTINUN 


$ $BATTNA 


NC 


ERRRTN1 


$$BATTNH 


NU 


DTSTCR 


$ $BDUMPB 


SF 


ERRSEN 


$$A$SUP1 


DB 


DUMP 


$ $BDUMPD 


SG 




(SGUNCK) 




E050 


$ $ANERRI 


LR 


ERRSET 


$$A$SUP1 


BB 


E051 


$ $ANERRI 


LR 




(FOPT) 




E06 


$ $ANERRI 


LR 


ERRSETO 


$$A$SUP1 


BB 


E062 


$ $ANERRI 


LR 




(FOPT) 




EDRDHA 


$ $A$SUP1 
(SGDSK) 


GB 


ERRSIO 


$$A$SUP1 
(SGUNCK) 


DF 


EDRDHA1 


$$A$SUP1 
(SGDSK) 


GB 


ERRSI02 


$$A$SUP1 
(SGUNCK) 


DF 


EDTIC 


$$A$SUP1 


GB 


ERRTYP 


$$ANERRP 


LZ 




(SGDSK) 




EXCAN 


$$A$SUP1 


FE 


EDTIC1 


$$A$SUP1 
( SGDSK) 


GB 




(SGSVC) 




END 


$ $ANERR0 
$ $ANERR1 


MV 

MW 








END LIN 


$ $BDUMPF 
$$BDUMPB 
$$BDUMPD 
$ $BPDUM1 


SA 
SF 
SK 
SN 
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EXT03 


$$A$SUP1 
(FOPT) 


BC 


EXCP1 


$$A$SUP1 
(SGTCHS) 




CA, 


CB 


EXT04 


$$A$SUP1 
(FOPT) 


BC 


EXCP10 


$ $A$SUP1 
(SGTCHS) 




CA 




EXT1 


$$A$SUP1 
(SGSVC) 


FJ 


EXCP2 


$ $A$SUP1 
(SGTCHS) 




CB 




EXT 2 


$$A$SUP1 
(SGSVC) 


FJ 


EXCP3 


$$A$SUP1 
(SGTCHS) 




CC 




EXTEOJ 


$$A$SUP1 
(FOPT) 


BC 


EXCP4 


$$A$SUP1 




CA 




EXTIN1 


$$BATTNB 


NE 




(SGTCHS) 








EXTNT 


$$BATTNO 


QF 


EXCP5 


$$A$SUP1 
(SGTCHS) 




CA, 


CB 


EXTRAN 


$$A$SUP1 
(SGUNCK) 


DC 


EXCP6 


$$A$SUP1 
(SGTCHS) 




CA, 


CB 


EXTRT1 


$$A$SUP1 
(SGSVC) 


FG,FL 


EXCP7 


$$A$SUP1 
(SGTCHS) 




CA, 


CB 


EXWHY 


$$A$SUP1 
(SGUNCK) 


DD 


EXCP8 


$$A$SUP1 




CA 




F01 


$$ANERRG 


LN 




(SGTCHS) 








F010 


$$ANERRG 


LN 


EXCPIGN 


$$A$SUP1 




CA, 


CB 


F02 


$$ANERRG 


LN 




(SGTCHS) 








F03 


$$ANERRG 


LN 


EXCPRG 


$ $BATTNA 




NC 




F1CALC 


$$BATTNG 


NS 


EXEC 


$$BATTNM 




PY 




F1TBEN 


$$BATTNA 


* 


Entry point to the execute 


(EXEC) 


Internal a 


llocation tabl 


.e for 


processor. 


This phase 


is the last 


foreground 


1 programs. 


(See label 


processing 


phase of the for 


eground 


ATABLE.) 






initiator. 


The foreground 


program 








will be loaded when this ph 


ase has 








finished executing and 


when 


the 




F2CALC 


$$BATTNG 


NS 


foreground 


program has 


been 


chos 


en by 


F2CALC1 


$$BATTNG 


NS 


the task s 


election mechanism of 


the 


F2CH 


$$BDUMPD 


SG 


supervisor 


• 








F2TBEN 

Internal a 
foreground 


$$BATTNA 
llocation tabl 
2 programs. 


* 
.e for 
(See label 


EXEC1 


$ $BATTNM 




PZ 




ATABLE.) 






EXIGN 


$$A$SUP1 
(SGUNCK) 




DD 










EXINTR 


$ $ANERRR 




MC 




FCH3 


$$A$SUP1 


FD 


EXIT 


$$ANERRD 




LE 






(SGSVC) 






$ $ANERRN 




LX 




FCHOVL 


$$A$SUP1 


DC 




$$ANERRS 




MD 






(SGUNCK) 






$$ANERRZ 




MS 




FCHRT1 


$$A$SUP1 


EA 




$ $ANERR1 




MW 






(SGDFCH) 






$$BPDUMP 




SL 




FCHRT2 


$$A$SUP1 


EA 




$ $BPDUM1 




SN 






(SGDFCH) 






$$BSYSWR 




TA 




FCHRT3 


$$A$SUP1 


EA 


EXIT1 


$$A$SUP1 




ED 






(SGDFCH) 






( SGDFCH) 








FCHTP 


$$ANERRA 


LB 




$$ANERR0 




MV 




FDDKCODE 


$$BATTNK 


PQ 


EXIT2 


$ $ANERR0 




MV 






$$BATTNL 


PS 


EXITA 


$$ANERRA 




LB 




FDEOJ 


$$BDUMPF 


SA 




$ $ANERRL 




LL 




FDK1 


$$BATTNK 


PQ 




$ $ANERRS 




MD 




FDK2 


$$BATTNK 


PQ 


EXITAB 


$ $ANERRB 




LC 




FDKIJ1 


$$BATTNK . 


PQ 


EXITB 


$ $ANERRA 




LB 




FDKIJ2 


$$BATTNK 


PQ 




$ $ANERRS 




MD 




FDKTDAT 


$$BATTNK 


PP 


EXITBB 


$$ANERRB 




LC 




FDKTDAT1 


$$BATTNK 


PP 


EXITC 


$ $ANERRA 




LB 




FDKTDAT2 


$$BATTNK 


PP 


EXPAND 


$$A$SUP1 




EB 




FDKTID 


$$BATTNK 


PP 




( SGDFCH) 








FDKTV 


$$BATTNK 


PK 


EXRTY 


$$A$SUP1 




DD 




FDKTV1 


$$BATTNK 


PK 




(SGUNCK) 








FDKTV2 


$$BATTNK 


PK 


EXT 01 


$$A$SUP1 

(FOPT) 

$$A$SUP1 




BC 










EXT02 




BC 




♦Listing only. 








(FOPT) 
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Bits 2 



7: Not used. 



FDKTVNM 


$$BATTNK 


PK 


FLPTR 


$$A$SUP1 


CC 


FEB INI 


$$BATTNO 


QJ 




(SGTCHS) 




FESEQ 


$$BATTNO 


QJ 


FNDQUE 


$$A$SUP1 


CC 


FESEQCK 


$ $BATTNO 


QG 




(SGTCHS) 




FESPLIT 


$ $BATTNO 


QH 


FNDQUE1 


$$A$SUP1 


CC 


FESPLIT1 


$ $BATTNO 


QH 




(SGTCHS) 




FESPLIT2 


$$BATTNO 


QH 


FONTERR 


$$ANERR9 


MY 


FES PL IT 4 


$ $BATTNO 


QtL 


FPSW 


$$BDUMPF- 


RX 


FESYSX2 


$ $BATTNO 


QF 




$$BDUMPB 


SC 


FESYSX3 


$$BATTNO 


QF 


FREDEV1 


$$A$SUP1 


CL 


FETCH 


$$BDUMP 


RW 




(SGTCHS) 




FETINSRO 


$ $BATTNK 


PM 


FSCAN 


$$BATTNK 


PM 


FETINSR1 


$ $BATTNK 


PM 




$$BATTNO 


QJ 


FETINSRT 


$ $BATTNK 


PM 


FSCAN1 


$$BATTNK 


PM 


FETK 


$ $BATTNO 


QG 




$$BATTNO 


QJ 


FETKNO 


$ $BATTNO 


QG 


FTCH2 


$$ANERRD 


LD 


FETKNOl 


$ $BATTNO 


QH 


FTCH3 


$$ANERRD 


LE 


FETKTK 


$ $BATTNO 


QK 


FTEND 


$$BATTNK 


PM 


FETKTK1 


$ $BATTNO 


QK 


FTHMSGW 


$$ANERRU 


MG 


FETKTK2 


$ $BATTNO 


QK 


FTMON 


$$ANERRE 


LG 


FETMSGW 


$$ANERR9 


MY 


FTMSW 


$$ANERRE 


LF 


FETYPE 


$ $BATTNO 


QF 


G01 


$$ANERRG 


LN 


FETYPE1 


$$BATTNO 


QG 


GARY 


$$BEOJ3 


RD 


FETYPED 


$ $BATTNO 


QG 


GEN1 


$$A$SUP1 


BD 


FETYPEI 


$ $BATTNO 


QG 




(FOPT) 




FETYPEI4 


$ $BATTNO 


QG 


GEN2 


$$A$SUP1 


BD 


FEVSER 


$ $BATTNO 


QF 




(FOPT) 




FEVSER1 


$$BATTNO 


QF 


GENENT 


$$A$SUP1 


BD 


FEVSER3 


$ $BATTNO 


QF 




(FOPT) 




FEVSER4 


$$BATTNC 


QF 


GETBYTE 


$$BTERM 


RG 


FG1 


$$BTERM 


RG 


GETCHQ 


$$A$SUP1 


CJ 


FGHED 


$$BPDUM1 


SP 




(SGTCHS) 




FGJOB 


$$BEOJl 


RJ 


GETENTRY 


$$A$SUP1 


EB 




$$BEOJ2 


RM 




(SGD'FCH) 






$$BILSVC 


RN 


GETJIB 


$$A$SUP1 


CG 




$$BPSW 


RR 




(SGTCHS) 






$$BPCHK 


RT 


GETKEY 


$$BATTNI 


PD 




$$BDUMP 


RW 


GETMPSST 


$$BDUMPB 


SC 


FGLST 


$ $BEO J 


RC 


GETMSG 


$$ANERRV 


MJ 




$ $BEO Jl 


RK 


GETNXT 


$$BTERM 


RG 




$$BEOJ2 


RM 


GETPIB 


$$A$SUP1 


CN 




$ $BILSVC 


RP 




(SGTCHS) 






$$BPSW 


RS 


GETPIB1 


$$A$SUP1 


CN 




$$BPCHK 


RU 




(SGTCHS) 




FGNAME 


$ $BPDUM1 


SP 


GETSEN 


$$A$SUP1 


DB 


FGTAPE 


$$BILSVC 


RP 




(SGUNC'K) 




FGTST 


$$BPDUM1 


SM 


GIOADR 


$$A$SUP1 


CE,CF 


FILEPR 


$ $ANERRB 


LC 




(SGTCHS) 




FILPR 


$ $ANERRL 


LL 


GO 


$$BEOJ3 


RD 


FINDPUB1 


$$ANERRZ 


MS 


GOBCK 


$$ANERRE 


LG 


FINISH 


$ $BATTNM 


QB 


GPR 


$$BDUMPB 


SC 


FIX 


$$BPDUM1 


SQ 


GTNXJB 


$$BATTNI 


NZ 


When 


word counter reaches 


zero, two 


Continues search for 


LUBs with a PUB 


extra 


blanks are inserted 


between 


pointer 


that matches 


the pointer in 


words 


so that locations such as 1B0, 


LBSLUB. 


However, the search is within 


ICO, 


1D0 , etc., will stand out, thus 


the JIB 


table. 




making the dump easier to 


read. 









FIX7 $$BPDUMP SL 

FLGBYO $$BATTNA * 

Defines a byte of program switches: 
Bit 0=1: Input is from SYSRDR. 
Bit 1=1: A read has been issued. 



*Listing only. 
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GTNXLB $$BATTNI NZ 

Start of a repetitive sequence of code 
to get each LUB of a given class and 
compare its PUB pointer with the PUB 
pointer of the LUB in LBSLUB. 



GTNXOP $$BATTNE NM 

HOI $$ANERRG LN 

$$ANERRV MJ 

HALT $$A$SUP1 CD 

(SGTCHS) 
HALTIO $$BEOJ3 RD 

HARDWT $$A$SUP1 DC 

(SGUNCK) 
HERE $ $BSYSWR TA 

HEXCON $ $BATTNI PB 

HOLD $ $BATTNP QN 

Entry point to the HOLD processor. 
This routine sets a switch in the 
appropriate PIB assign flag. This 
switch can be interrogated later by 
the job control program. 



HOLDQUE 
IDS ERR 
IGEXIT 



IGNORE 

IGON 

IJBEJ22 

IJBER920 

IJBERA23 

IJBERB20 

IJBERC23 

IJBERD20 

IJBERE20 

IJBERF24 

IJBERG20 

IJBERH20 

IJBERI20 

IJBERJ24 

IJBERK20 

IJBERL20 

IJBERN24 

IJBERO20 

IJBERP20 

IJBERQ24 

IJBERR20 

IJBERS22 

IJBERT20 

IJBERU24 

IJBERV20 

IJBMVC20 

IJBPA120 

IJBPA224 

IJBPA320 

INDIB 

INDSEQ 
INH WRITE 

INIT 
INITCHN1 



$ $ANERRY 
$$BATTNI 
$ $ANERRS 
$$ANERRT 
$$ANERRW 
$ $BATTNC 
$ $ANERRU 
$ $BEO J 
$$ANERR9 
$$ANERRA 
$ $ANERRB 
$ $ANERRC 
$ $ANERRD 
$ $ANERRE 
$ $ANERRF 
$ $ANERRG 
$$ANERRH 
$ $ANERRI 
$ $ANERRJ 
$ $ANERRK 
$$ANERRL 
$ $ANERRN 
$$ANERRO 
$ $ANERRP 
$$ANERRQ 
$$ANERRR 
$$ANERRS 
$$ANERRT 
$$ANERRU 
$$ANERRV 
$ $ ANERR1 
$ $ANERRZ 
$ $ANERRY 
$ $ANERR0 
$$A$SUP1 
(SGTCHS) 
$ $BATTNL 
$$A$SUP1 
(SGTCHS) 
$$BDUMPD 
$$A$SUP1 
(SGTCHS) 



MQ 

NY 

MD 

ME 

iyiK^ML 

NH 

MF 

RA 

MX 

LA 

LC 

LC 

LD 

LF 

LH 

LM 

LQ 

LR 

LS 

LU 

LL 

LW 

LY 

LZ 

MA 

MC 

MD 

ME 

MF 

MH 

MW 

MS 

MQ 

MU 

C'H 

PU 
CG 

SG 
CL 



INITL 




$$BATTNM 




QC 


INITOPR 




$$BATTNG 




NS 


INITRG 




$$A$SUP1 
(SGTCHS) 




CL 


INITSIO 




$$A$SUP1 
(SGTCHS) 




CL 


INNXEN 




$$BATTNE 




NM 


INRQ 




$$ANERRW 




ML 


INSERT 




$$ANERRB 




LC 


INST 




$$ANERRP 




LZ 


INTERR 




$$BEOJ 




RA 


INTERV 




$$ANERR9 




MX 


INTPUBSC 




$$A$SUP1 
(SGTCHS) 




CJ 


INTREQ 




$$ANERRU 
$$ANERRV 




MG 
MH 


INTRTN 




$$A$SUP1 
(SGTCHS) 




CJ 


INTVEN 




$$ANERRA 




LB 


INVAL 




$$ANERRY 




MR 


IOCOMP 




$$ANERRQ 




MB 


IODONE 




$$ANERRP 




LZ 


IOERR 




$$ANERRH 
$$ANERRI 
$$ANERRJ 
$$ANERRP 




LQ 
LR 
LT 
LZ 


IOINTR 




$$ANERRR 




MC 


IONOP 




$$A$SUP1 
(SGUNCK) 




DA 


IOPSET 




$$A$SUP1 
(SGSVC) 




FD 


IORTN 




$$ANERRI 
$$ANERRJ 




LR 
LT 


IREXIT 




$$ANERRT 
$$ANERRW 




ME 
MK 


ISCKSQ 




$$BATTNL 




PU 


ISTYPU 




$$BATTNL 




PU 


ITBRC 




$$A$SUP1 
(SGTCON) 




HA 


ITERATE 




$$BEOJ3 




RD 


JBSLUB 




$$BATTNI 
$$BATTNJ 
$$BATTNP 




* 
* 
* 


A ha If word work area 


prima 


Lrily used 


with the scan JIB or 


scan 


LUB 


subroutines. When used with the scan 


JIB 


subroutine, this 


area 


contains the 


LUB 


image 


information 


(PUE 


\ pointer and 


JIB 


pointer) found within 


a JIB entry. 


When used 


with the scan LUB 


subroutine, this area 


contains a true 


LUB 


entry 


used within 


the 


unas sign 


routine for comparisons. 




JIBTYP 




$$A$SUP1 
(SGTCHS) 




CH 


KOI 




$$ANERRG 




LN 


KEYINT 




$$ANERRR 




MC 


KRTY 




$$ANERRS 




MD 


L01 




$$ANERRG 
$$ANERRI 




LP 
LR 



^Listing only. 
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LDPSW 


$$ANERRR 


MC 








LDREGS 


$$A$SUP1 
(SGTCHS) 


CJ 


LA 


$$BILSVC 


RP 


LGD 


$$A$SUP1 


CG 




$ $BPCHK 


RU 




(SGTCHS) 




LABMV 


$ $BSYSWR 


TA 


LGD1 


$$A$SUP1 


CG 


LABMV1 


$ $BSYSWR 


TA 




(SGTCHS) 




LABMV2 


$$BSYSWR 


TA 


LGDD 


$$A$SUP1 


CG 


LABMV3 


$$BSYSWR 


TA 




(SGTCHS) 




LACSW 


$ $ANERRO 


LY 


LISTIO 


$$BATTNJ 


PE 


LANXJB 


$ $BATTNJ 


PG 


LMERA 


$$A$SUP1 


BC 


LASPH 


$ $ANERRA 


LA 




(FOPT) 




LASPHAS 


$$ANERRA 


LA 


LOAD 


$$BDUMPD 


SH 


LASTPUB 


$ $BEO J3 


RD 


LOADPSW 


$$ANERRR 


MC 


LAXERR 


$ $BATTNK 


PR 


LOG 


$$BATTNC 


NH 




$ $BATTNL 


PU 




$$BTERM 


RH 




$ $BATTNM 


PZ 


L0G1 


$$ANERRY 


MQ 




$ $BATTNO 


QF 


LOG2 


$$ANERRY 


MQ 


LBLADR 


$ $BATTNA 


* 


LOGENT 


$$ANERRP 


LZ 




through 






$$ANERRQ 


MA 




$$BATTNP 




LOGERP 


$$ANERRU 


MG 


Defines an area that contains the 


LOGEXT 


$$BATTNH 


NU 


address of the temporary label storage 


LOGGER 


$$BATTNH 


NU 


area 


(Foreground origin plus 


1728) . 




$$BATTNJ 

$$BE0J1 

$$BE0J2 


PF 
RJ 
RM 


LBLOUT 


$ $BATTNK 


PR 




$$BPSW 


RR 


Entry point to the subroutine used to 


LOGLIST 


$$BEOJ 


RC 


output the label information 


that has 


LOGPRC 


$$A$SUP1 


CH 


been 


accumulated in the I/O 


area , 




(SGTCHS) 




BUFFER. The subroutine: 




LOGPRC1 


$$A$SUP1 


CH 










(SGTCHS) 




1. 


Sets length information 


in the 


LOGRTN 


$$ANERRY 


MQ 




write and verify CCWs. 




LOGTST 


$$ANERRU 
$$ANERRY 


MG 
MQ 


2. 


Determines if space is 


available 


LOGWAIT 


$$ANERRY 


MQ 




on the label track with 


in SYSRES. 


LOOKUP 


$$A$SUP1 
(SGDFCH) 


EB 


3. 


Updates the disk address if 


LST 


$$BDUMPF 


RZ 




necessary. 






$$BDUMPB 
$$BDUMPD 


SE 
SJ 


4. 


Checks to ensure label 


area 




$$BPDUM1 


SQ 




extents on SYSRES are not 


Switch used to return from 


REGPNT 




exceeded. 




subroutine, when last word 


of a 








Printline 


has been unpacked and 


5. 


Sets up the seek addres 


s and CCB. 


printed, to prepare the next line. 
For printing of registers and user's 


6. 


Branches to the I/O subroutine 


communications region, LST 


is a no-op 




(EXCPRG) to write and verify the 


that permits entry to a routine that 




label information on SYSRES. See 


blanks out unneeded high-order 




Appendix D for format of labels 


positions 


of the Printline, 





or SYSRES. 



LBLOUT1 


$ $BATTNK 


PR 




$$BATTNM 


PZ 


LBLTYP 


$ $BATTNO 


QL 


LBSLUB 


$$BATTNI 


* 




$ $BATTNJ 


* 




$ $BATTNP 


* 



Defines an area that contains the LUB 
entry found by a scan of the LUB 
table. This label can be described as 
a parameter passing area. 



LBTOUT 



$ $BATTNO 



QL 



LST1 $$BPDUM1 SQ 

LSTASG $$BATTNJ PJ 

LSTAUN $$BATTNJ PG 

Entry point to the subroutine that 
lists the assignments for either Fl or 
F2 system class and programmer class 
units. The subroutine sets up primary 
and secondary headers, calls the LUB 
scanning subroutine and the JIB 
scanning subroutine, and calls the 
final output subroutine. 



LSTBG 



♦Listing only. 



$$BATTNJ 



PF 
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Label 

LSTBGF 

LSTBUN 

LSTBUN1A 

LSTBUN2 

LSTDIB 

LSTF1 
LSTF2 
LSTLN 



Phase 



$ 
$ 
$ 
$ 
$ 
( 

$ 

$ 

$ 

$ 

$ 

$ 

The location 

set and tran 

storage loca 

each line of 

also used to 

subroutine o 

thereby by pa 

subroutine. 



$BATTNJ 
$BATTNJ 
$BATTNJ 
$BATTNJ 
$A$SUP1 
SGTCHS) 
$BATTNJ 
$BATTNJ 
$BDUMPF 
$BDUMPB 
$BDUMPD 
$BPDUM1 
counter, 



Chart 

PF 
PG 
PG 
PG 
CH 



PF 
PF 
SA 
SF 
SK 
SN 
register 7, is 
slated to identify the 
tions being printed on 
the dump. This label is 
enter the PRNTLN 
n a last line condition, 
ssing the TSTCOR 



MAIN2 $$BPDUMP SL 

The upper parameter address is 
incremented by a word length and 
tested against system's main storage 
capacity to see if requested dump is a 
valid address within core. If not r 
the upper storage limit is put in 
register 8 to impose a valid dump end 
limit. 



MAINRT 

MAP 

MARK 

MESG 

MICR 

MICR1 

MICRDEV 

MKASGN 



$$ANERRD 

$$ANERRE 

$$BATTND 

$$BEOJ 

$$ANERRB 

$$BEOJ 

$$BEOJ 

$$BEOJ 

$$BATTNI 



LD 
LF 
NJ 
RA 
LC 
RA 
RA 
RA 
NW 



LSTPRG $ $BATTN J PH 

LSTPRG1 $$BATTNJ PH 

LSTSTD $ $BATTNJ PH 

LSTUA $$BATTNJ PJ 

Program switch set to NOP when a UA 
operand is found. The switch is reset 
to a branch when the header 
■UNASSIGNED' has been printed. 



LTA 

LTABSY 

LTACNL 

LTKHLD 
M01 



MACHEK 



MAIN1 



KA 



FC 

BB 

MT 
LP 
LR 
LU 
DF 

SL 



$$A$SUP1 

(SEND) 

$$A$SUP1 

(SGSVC) 

$$A$SUP1 

(FOPT) 

$ $ANERRZ 

$ $ANERRG 

$$ANERRI 

$ $ANERRK 

$$A$SUP1 

(SGUNCK) 

$$BPDUMP 

The starting address for the parameter 
dump, entered in register 6, is 
shifted right double logical 4 
positions so that any value not a 
multiple of 16 is now in register 7. 
If value in register 7 is now zero, it 
indicates that the starting value in 
register 6 is on a double-word 
boundary. Register 6 is then restored 
by shifting left to the next lower 
double-word boundary nearest the value 
specified by the dump parameter (label 
FIXT) . If register 7 was not zero 
when tested, the value now in it is 
used to calculate the number of blank 
print positions needed so printout 
starts at desired starting byte. 



Entry point to a routine that makes 
the actual assignment during ASSGN 
processing. The assignment is made 
by: 

1. Establishing the PUB pointer in 
the LUB. 

2. Setting the ownership byte in the 
PUB. 

3. Setting the mode byte in the PUB. 
(For tape devices only.) 



MOD $$BTERM RE 

MODCCW $$ANERRX MP 

MODRST $$BATTNI NV 

MOVE $$BDUMPD SH 

Current address taken from the Disk 
Information Block (DIB) for the 
appropriate symbolic disk device is 
put in output area to serve as the 
count ID information when count, key, 
and data are written. The current 
address record number is then reduced 
by 1 and put in the search CCW for 
writing the first dump record. 



MOVLOP $$BATTNM QB 

Start of a repetitive sequence of code 
to move the last two routines of the 
EXEC processor to the main storage 
area occupied by the root phase, 
$$BATTNA. The root phase resides in 
the logical transient area of main 
storage. The two routines are moved 
2 56 bytes at a time. The last time 
the move is executed, the remaining 
bytes (less then 256) are moved to the 
logical transient area. 
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Label 



Phase 



Chart 



MOVRTN $ $BATTNM QB 

Entry point to the subroutine that: 

1. Moves any label information from 
the temporary label storage area 
to the label storage area. 



2. 



Clears the remainder of main 
storage to initialize it for the 
foreground program being 
initiated. 



MPSTST 

MSG 

MSG2 

MSG3 

MSG 4 

MSGPRT 

MSGWTR 



MTAPE 



$ $ANERRN 
$$ANERRQ 
$$BATTNA 
$ $ANERRM 
$$ANERRM 
$$ANERRM 
$$ANERRS 
$ $ANERRL 
$$ANERRG 
$ $ANERRH 
$$ANERRI 
$$ANERRJ 
$$ANERRK 
$ $ANERRT 
$ $ANERRV 
$ $ANERRW 
$ $BTERM 



LW 

MA 

NE 

LV 

LV 

LV 

MD 

LL 

LM 

LQ 

LR 

LS 

LU 

ME 

MJ 

MK,ML,MM 

RG 



The device type from the PUB table 
entry for the device is examined. If 
the device is not a tape drive, the 
PUB scan proceeds to the next entry in 
the table; if it is a tape drive, the 
Tape Error Block (TEB) for that 
particular drive is addressed and 
checked for any record of tape errors. 
If this tape drive has had no errors, 
the PUB scan resumes, and the next 
device in the PUB table is 
investigated. 



MTRSVD $ $BATTNK * 

$$BATTNL * 

$$BATTNO * 

A one-byte switch used when the file 
type is sequential disk (SD) : 

Bit 0=1: Look-ahead flag for LIOCS. 

Bit 1=1: Last extent for file. 



Bit 2\ 



Not used. 



Bit 3=1: No extent dequeue. 

Bit 4=1: Extent limits omitted. 

Bit 5=1: Extent limits converted to 
address. 

Bits 6, 7: Not used. 



MVC 



MVCCW 



MVBLNK $$BDUMPD SJ 

$$BPDUM1 SQ 

$$ANERR1 MW 

$$BEOJ2 RL 

$$BILSVC RP 

$$BPCHK RU 

$$A$SUP1 CC 

(SGTCHS) 
MVCLRT $$BATTNM QB 

MVI .$$BTERM RE 

A detach flag is posted in the PIB for 
the terminated program. The portion 
of core occupied by this program is 
now available for overlay. An 
End-of-Termination switch is set in 
the PIBPUBAS flag byte, an SVC 22 
releases control of the system from 
this program, and an SVC 11 returns 
the system to the Task Selection 
routine of the supervisor. 



MVMSG 


$$ANERRV 


MH 


MVZ 


$$BEOJ 


RC 


MVZEX 


$$A$SUP1 
(SGUNCK) 


DB 


N01 


$$ANERRG 


LP 




$$ANERRJ 


LS 


N1114 


$$A$SUP1 
(SGTCHS) 


CM 


NAMED 


$$BE0J1 


RJ 


NASERR 


$$BATTNI 


NW 


NDCHFD 


$$BATTNI 


NW 


NDSCAN 


$$BATTNA 


ND 




$$BATTNJ 


PH 




$$BATTNK 


PP 


NDSCAN1 


$$BATTNK 


PP 


NDTERR 


$$BATTNI 


NW 




$$BATTNM 


QC 




$$BATTNP 


QM 


NEWXTN 


$$BATTNL 


PW 




$$BATTNO 


QH 


NJPERR 


$$BATTNI 


NW 


NLSERR 


$$BATTNL 


PS 




$$BATTNO 


QJ 


NLUERR 


$$BATTNI 


NX 




$$BATTNK 


PN 




$$BATTNM 


QD 


NOCCB 


$$ANERRO 


LY 




$$ANERRX 


MP 


NOCCB1 


$$A$SUP1 
(SGUNCK) 


DA 


NOCHNG 


$$BDUMP 


RW 


Routine 


used, when a foreground 


program 


is to be dumped, 


to identify 


the physical I/O device 


associated 


with SYSLST. The type of device 


determines which B-transient dump 


program 


will be fetched 


to perform the 


actual dump. 




NOCOMP 


$$ANERRE 


LG 


NODCUX 


$$BATTNL 


PW 




$$BATTNO 


QH 



♦Listing only. 
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NOFG 

NOLBPR 

NOLOADAD 

NOLOG 



NOLTA 

NONREC 

NOP 



Phase 



$ $BEOJ 
$$BATTNM 
$$A$SUP1 
(SGDFCH) 
$ $ANERRN 
$ $ ANERRP 
$$ANERRQ 
$ $BATTNC 
$ $ ANERRN 
$ $ANERR9 
$ $BTERM 
$$BILSVC 
$$BPCHK 



Chart 



RC 
QA 
EB 

LX 
LZ 
MB 
NH 
LW 
MX 
RG 
RP 
RU 



In $$ETERM : Switch to enter or bypass 
the routine that prints headings prior 
to logging the Tape Error Block (TEB) 
statistics. Because only one set of 
headings is needed, this routine is 
used only for the first TEB statistics 
logged. Thereafter, this routine is 
bypassed by making this switch an 
unconditional branch. 

In $$BILSVC and $$BPCHK : After first 
line of message has been output, this 
switch is set to branch. The next 
time through, the second line of the 
message is output and the branch 
causes the transient $$BDUMP to be 
fetched. 



NOPBR $$ANERRQ MA 

NOP INS $$A$SUP1 CG 

(SGTCHS) 

NOPINSTR $$A$SUP1 CG 

(SGTCHS) 

NOQUIS $$A$SUP1 DG 

(SGUNCK) 

NORCD $$A$SUP1 GA 

(SGDSK) 

NORCFND $$ANERRA LB 

NOSOl $$A$SUP1 CL 

(SGTCHS) 

NOSTART $$A$SUP1 DA 

(SGUNCK) 

NOT AS G $$BATTNJ PJ 

NOTBG $$BPCHK RT 

NOTBSY $$A$SUP1 CK 

(SGTCHS) 

NOTEST $ $BDUMPF RX 

$ $BDUMPB SB 

$$BDUMPD SG 

An area of storage used for phase 

initialization instructions is blanked 

out to be used as an output area for 
the dump. If needed, a branch is 
taken past the end of the cleared area 
to the next instruction. 



NOTPD 

N0TPD1 

N0TPD2 

NOTSEQ 

NOT ZERO 

NOUNIT 

NRFRTY 

NULLOG 

NUMCON 



NUMLOP 

NUMSYS 

NVAERR 

NVSERR 

NWPBPT 

NXPBNT 

NXTLUB 

OCTEST 

OK 

ONERET 

ONERTRY 

ONLIST 



OPCLOSE 

OP FLAG 

OPNUMB 

OPRFL 

OPRSNT 

OPTRT1 

OPTRT2 

OPVNT 

OR1287 

ORERP 

OTHERS 

OTSERR 



OURSIO 



OUT 



$$A$SUP1 

(SGSVC) 

$$A$SUP1 

(SGSVC) 

$$A$SUP1 

(SGSVC) 

$$BATTNL 

$$BDUMPB 

$$BATTNJ 

$$ANERRJ 

$$BATTNA 

$$BATTNI 

$$BATTNK 

$$BATTNO 

$$BATTNI 

$$BATTNI 

$$BATTNF 

$$BATTNA 

$$BATTNI 

$$BATTNF 

$$BATTNJ 

$$BEOJ 

$$ANERR1 

$$ANERRG 

$$ANERR9 

$$BEOJ 

$$BEOJl 

$$BEOJ2 

$$BILSVC 

$$BPSW 

$$BPCHK 

$$A$SUP1 

(SGDFCH) 

$$ ANERRN 

$$BATTNA 

$$ANERRE 

$$BATTNC 

$$A$SUP1 

(SGSVC) 

$$A$SUP1 

(SGSVC) 

$$ANERRW 

$$ANERR9 

$$ANERRA 

$$BEOJ 

$$BATTNK 

$$BATTNL 

$$BATTNO 

$$A$SUP1 

(SGUNCK) 

$$BDUMPF 

$$BDUMPB 

$$BDUMPD 

$$BPDUMP 



FA 

FA 

FA 

PU 
SD 
PH 
LS 
NC 
PB 
PN 
QK 
PB 
PB 
NP 
NC 
NW 
NQ 
PG 
RA 
MW 
LM 
MX 
RC 
RJ 
RM 
RN 
RR 
RT 
EA 

LX 
NC 
LF 
NG 
FK 

FK 

ML 
MX 
LA 
RB 
PL 
PS 
QG 
DF 

SA 
SF 
SK 
SL 



Switch made an NOP when the supervisor 
' portion of dump is completed. During 
the problem program portion of the 
dump, the switch permits exit from the 
dump phase by fetching $$BEOJ when the 
dump limit is reached. 



NOTIC 



$$A$SUP1 
(SGTCHS) 



CG 



Appendix A 309 



Label 




Phase 




Chart 


PCITRT 
PCTEST 


$$A$SUP1 

(SGSVC) 

$$BEOJ 


FK 
RA 


0UT1 




$ $BDUMPF 




SA 


PCURTN 


$$ANERRW 


MK 






$ $BDUMPD 




SK 


PDABEX 


$$A$SUP1 


JH 


If SYSLST 


is a tape < 


drive, 


this switch 




(SMICR) 




is set 


to 


branch to ^ 


write a tapemark 


PDAGN 


$$A$SUP1 


JF 


following 


the record 


of the last line 




(SMICR) 




of the 


dump. 






PDALBD 


$$A$SUP1 


BD 














(FOPT) 














PDB0CK 


$$A$SUP1 


JF 


OUT 2 




$$BDUMPF 




SA 




(SMICR) 




OUTAR 




$ $3TERM 




RE 


PDBUFL 


$$A$SUP1 


JB 


Entry point to this ] 


program phase. 




(SMICR) 




The output 


. area address is 


loaded into 


PDCCBT 


$$A$SUP1 


FB 


a CCW. 


Register 13 ; 


is loaded as a 




(SGSVC) 




link register to the 


unassign routine. 


PDCCBPT 


$$A$SUP1 


FB 


The partition of the 


terminated 




(SGSVC) 




program is 


: identified as FZ 


I or not F2. 


PDCHAN 


$$A$SUP1 


JE, JF 


If F2, 


the 


i ownership 


flags 


are reset 




(SMICR) 




in the 


PUE 


\ entries of devices owned by 


PDCLI 


$$A$SUP1 


JH 


this program. 








(SMICR) 














PDCOMP 


$$A$SUP1 


JE 


If the 


program is 


not an F2 




(SMICR) 




program, it must be < 


an Fl, 


because the 


PDCSWST 


$$A$SUP1 


JD,JF 


$$BTERM phase is called to 


terminate 




(SMICR) 




foreground 


I programs. 


The PIB assign 


PDDFLT 


$$A$SUP1 


JF 


flag byte 


is checked 


to see if the 




(SMICR) 




cancel 


switch is on, 


which 


indicates 


PDERXT1 


$$A$SUP1 


JE, JF 


cancel 


occurred while in a 


terminator 




(SMICR) 




phase due 


to an I/O i 


nalfunction. To 


PDERXT2 


$$A$SUP1 


. JE, JF 


prevent a 


repetitive 


canceJ 


.-within- 




(SMICR) 




cancel 


loop, a branch is set in the 


PDERXT3 


$$A$SUP1 


JF 


switch 


at 


label LOG i 


to suppress 




(SMICR) 




further I/O operations. 




PDETI0 


$$A$SUP1 


JD,JF 














(SMICR) 




OUTLBL 




$$BATTNL 
$ $BATTN0 




Ptf 
QH 


PDEXIT 


$$A$SUP1 
(SMICR) 


JH 


OUTPUT 




$$BATTND 
$ $BATTNJ 




NL 
PJ 


PDEXT1 


$$A$SUP1 
(SMICR) 


JH 


0VERUN 




$$ANERRB 




LC 


PDEXT2 


$$A$SUP1 


JH 


OVERRUN 




$$ANERR9 




MY 




(SMICR) 




0VLAY 




$$BILSVC 




RN 


PDFSTM 


$$A$SUP1 


.JA 


0VRN 




$ $ANERRE 




LF 




(SMICR) 




0VRUN 




$ $ANERRV 




MJ 


PDHERE 


$$A$SUP1 


JB 


0WNRSH 




$ $BATTNI 




NV 




(SMICR) 




PACKCG 




$ $BATTNL 
$$BATTNO 




PW 
QH 


PDIAGN 


$$A$SUP1 
(SMICR) 


JA 


PAGHED 




$ $BDUMPF 
$ $BDUMPB 




RY 
SD 


PDIAGN1 


$$A$SUP1 
(SMICR) 


JC 






$ $BDUMPD 




SH 


PDINTR 


$$A$SUP1 


JA 






$ $BPDUM1 




SP 




(SMICR) 




PAR40 




$$ANERR0 




MU 


PDKEY 


$$A$SUP1 


JH 


PARU1 




$ $ANERR0 




MU 




(SMICR) 




PAR42 




$$ANERR0 




MU 


PDM0V 


$$A$SUP1 


JE 


PAR43 




$$ANERR0 




MU 




(SMICR) 




PAR44 




$ $ANERR0 




MU 


PDMPI 


$$A$SUP1 


JA 


PAR45 




$$ANERR0 




MU 




(SMICR) 




PAT 




$ $ANERRA 




LB 


PDMVCSW 


$$A$SUP1 


JE 


PAUSE 




$$BATTNC 




NH 




(SMICR) 




PAUSE 1 




$ $BATTNC 




NH 


PDNF 


$$A$SUP1 


JB 


PAUSE 2 




$ $BATTNC 




NH 




(SMICR) 




PCHDIB 




$$A$SUP1 
(SGTCHS) 




CH 


PDNOB 


$$A$SUP1 
(SMICR) 


JC 


PCHKSW 




$$A$SUP1 
(FOPT) 
$$A$SUP1 
(SGSVC) 




BA 
FG,FH 
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PDTERR5 
PDTIMER 


$$A$SUP1 

(SMICR) 

$$A$SUP1 




JE 
JH 


PDNONOP 


$$A$SUP1 


JA 




(SMICR) 








( SMICR) 




PDTIO 


$$A$SUP1 




JA 


PDNOPCK 


$$A$SUP1 


BA 




(SMICR) 








(FOPT) 




PDTIOERR 


$$A$SUP1 




JE,JF 




$$A$SUP1 


FG,FH 




(SMICR) 








(SGSVC) 




PDTIOK 


$$A$SUP1 




JA 


PDNOSIO 


$ $A$SUP1 


JH 




(SMICR) 








(SMICR) 




PDTKY 


$$A$SUP1 




BD 


PDNOSS 


$$A$SUP1 
( SMICR) 


JB 




(FOPT) 
$$A$SUP1 




FJ 


PDNOTSS 


$ $A$SUP1 


JG 




(SGSVC) 








( SMICR) 




PDUMP 


$$BPDUM1 




SM 


PDNOTZR 


$$A$SUP1 


JB 


PDUMP1 


$$BPDUM1 




SM 




( SMICR) 




PDUMP2 


$$BDUMPD 




SG 


PDPDEQ 


$ $A$SUP1 


JE 


Switch set 


: to branch 


if it 


is a 




(SMICR) 




parameter 


dump. Bypasses 


printout of 


PDPRCAN 


$ $A$SUP1 


JG 


all parts 


of core, except 


the area 




( SMICR) 




specified 


in the parameter 


limits. 


PDPROGCK 


$$A$SUP1 
(SMICR) 


JG 










PDREJDC 


$$A$SUP1 
(SMICR) 


JF 


PDUPDT 


$$A$SUP1 
(SMICR) 




JA 


PDREJT 


$$A$SUP1 
(SMICR) 


JC 


PDYES 


$$A$SUP1 
(SMICR) 




JE 


PDSCAW 


$$A$SUP1 
(SMICR) 


JB 


PHASE 


$$A$SUP1 
(SGDFCH) 




EA 


PSD ERR 


$$A$SUP1 
(SMICR) 


JD 


PHASE1 


$$ANERRG 
$$^NERRM 




LN 
LV 


PDSERR1 


$ $A$SUP1 


JD,JF 


PHASEH 


$$ANERRG 




LP 




( SMICR) 




PHASEJ 


$$ANERRG 




LM 


PDSERR2 


$$A$SUP1 
(SMICR) 


JD 


PHASES 


$$ANERRP 
$$ANERRQ 




LZ 

MB 


PDSERR3 


$$A$SUP1 


JD 




$$ANERRR 




MC 




(SMICR) 




PHASR 


$$ANERRQ 




MB 


PDSIO 


$$A$SUP1 


JC 


PHYSEIZE 


$$BTERM 




RE 




(SMICR) 




Further I/O operations are 


disabled, 


PDSIORT 


$$A$SUP1 


JD 


and an SVC 


: 22 is issued that disables 




( SMICR) 




multiprogramming and 


gives 


this 


PDSNOl 


$$A$SUP1 


JE 


program control over 


the s 


ystem to 




(SMICR) 




complete its desired 


funct 


ions until 


PDSN02 


$$A$SUP1 


JD 


another SVC 22 is issued to release 




( SMICR) 




control. 








PDSPK 


$$A$SUP1 
(SMICR) 


JB 










PDSS 


$$A$SUP1 


JC 


PLCCB 


$$ANERRW 




MM 




( SMICR) 




PNFORSVC 


$$BILSVC 




RN 


PDSUPEXT 


$$A$SUP1 


JH 


PNPERR 


$$BATTNM 




PY 




(SMICR) 




POSTCAN 


$$ANERRY 




MR 


PDSUPV 


$$A$SUP1 
(FOPT) 


BD 


POSTCE 


$$A$SUP1 
(SGTCHS) 




CM 




$$A$SUP1 


FJ 


PRCOMPL 


$$BTERM 




RE 




(SGSVC) 




PREFERED 


$$A$SUP1 




EA 


PDSVC28 


$$A$SUP1 


JC 




(SGDFCH) 








( SMICR) 




PRGUNT 


$$BATTNM 




QD 


PDTASK 


$$A$SUP1 
( SMICR) 


JH 


PRINT 


$$BEOJ2 
$$BILSVC 




RM 
RQ 


PDTERR1 


$$A$SUP1 
(SMICR) 


JE, JF 




$$BPSW 
$$BPCHK 




RR 
RU 


PDTERR2 


$$A$SUP1 
( SMICR) 


JE 




$$BDUMPF 
$$BDUMPB 




RY 
SD,SF 


PDTERRU 


$$A$SUP1 
(SMICR) 


JE 




$$BDUMPD 
$$BPDUMP 
$$BPDUM1 




SH 
SL 
SQ 
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RADLDS 


$$A$SUP1 
(SGTCHS) 


CA 


PRINT1 


$ $BDUMPD 


SH 


READBK 


$$ANERRF 


LJ 


Routine that uses PIOCS to seek, 


RCHAN 


$$ANERRD 


LE 


search 


ID equal, write 


count, key and 




$$ANERRE 


LG 


data, verify, and wait 


for completion 




$$ANERRF 


LK 


of the 


I/O operation. 






$$ANERRL 


LL 








RCHSC 


$$ANERRD 


LE 








RCVERR 


$$A$SUP1 


DC 


PRINTER 


$ $BDUMP 


RV 




(SGUNCK) 




PRNTL 


$ $BDUMPF 


RZ 


RDDIR2 


$$A$SUP1 


EB 




$ $BDUMPD 


SJ 




(SGDFCH) 






$ $BPDUM1 


SQ 


RDHA9 


$$A$SUP1 


GA 


PRNTLN 


$$BDUMPF 


SA 




(SGDSK) 






$ $BDUMPB 


SF 


RDRCD 


$$ANERRH 


LQ 




$$BDUMPD 


SK 


RDSTMT 


$$BATTNA 


NC 




$ $BPDUM1 


SN 


RDTXT 


$$A$SUP1 


EC 


PRNTLN1 


$ $BPDUM1 


SN 




(SGDFCH) 




PROC 


$$ANERRT 


ME 


READ 


$$BATTNP 


QM 


PROCED 


$ $BPDUMP 


SL 


READUPDT 


$$A$SUP1 


ED 


PROG 


$ $BEO Jl 


RJ 




(SGDFCH) 




PROGCHK 


$$BEOJ 


RB 


RECAL 


$$A$SUP1 


GA 


PROTCHK 


$ $ANERRA 


LA 




(SGDSK) 




PROTECT 


$$A$SUP1 


CG 


REDFOR 


$$ANERRF 


LJ 




(SGTCHS) 




REGPNT 


$$BDUMPF 


RZ 


PRTPRG 


$$A$SUP1 


DB 




$$BDUMPB 


SE 




(SGUNCK) 






$$BDUMPD 


SJ 


PRTPRG1 


$$A$SUP1 


DA 




$$BPDUM1 


SQ 




(SGUNCK) 




REGPNT1 


$$BDUMPF 


RZ 


PSTBUF 


$ $ANERRW 


ML 




$$BPDUM1 


SQ 


PSTEOF 


$$A$SUP1 


CM 


REGPNT 5 


$$BDUMPF 


RZ 




(SGTCHS) 






$$BDUMPB 


SE 


PSTERR 


$ $ANERRT 


ME 




$$BDUMPD 


SJ 




$$ANERRW 


MK 




$$BPDUM1 


SQ 


PSWGET 


$ $ANERR1 


Mtf 


REGPNT6 


$$BPDUM1 


SQ 


PTERP 


$$ANERRA 


LA 


RELO 


$$ANERRL 


LL 


PUBDEQ 


$$A$SUP1 


FD 


RELOC 


$$ANERRP 


LZ 




(SGSVC) 






$$BILSVC 


RN 


PUBSCN 


$$ANERRZ 


MT 




$$BDUMPB 


SB 


PUBSCN3 


$$ANERRZ 


MT 




$$BPDUM1 


SM 


PURGE 


$$A$SUP1 


CK 


RELOCF 


$$BDUMPF 


RX 




(SGTCHS) 




RELSE 


$$BATTNP 


QN 


PUT 


$$BEOJ 


RC 


REPBCK 


$$ANERRE 


LF 




$$BDUMP 


RN 


REPERR 


$$ANERRQ 


MB 


PUTUTR 


$$ANERRU 


MG 


REPFRW 


$$ANERRE 


LF 


Q01 


$ $ANERRG 


LP 


RESCHX 


$$A$SUP1 


DB 


QIDCK1 


$ $ANERRZ 


MT 




(SGUNCK) 




QISRT1 


$$A$SUP1 
(SGUNCK) 


DG 


RESERR 


$$A$SUP1 
(SGDSK) 


GA 


QISRT2 


$$A$SUP1 


DG 


RESET 


$$ANERRN 


LX 




( SGUNCK) 




RESPNS 


$$ANERRR 


MC 


QISRT3 


$$A$SUP1 
(SGUNCK) 


DG 


RESVC 


$$A$SUP1 
(SGSVC) 


FC 


QUEUE 


$$BEOJ3 


RD 


RETOFF 


$$ANERRD 


LE 


QUE ID 


$$ANERRZ 


MT 




$$ANERRE 


LF 


QUEST 


$$BTERM 


RG 




$$ANERRF 


LH 


QUISIO 


$$A$SUP1 


DG 




$$ANERRL 


LL 




(SGUNCK) 




RETRY 


$$ANERRD 


LD 


QUISI02 


$$A$SUP1 


DG 




$$ANERRF 


LH 




(SGUNCK) 






$$ANERRR 


MC 


QUISI03 


$$A$SUP1 


DG 




$$ANERRV 


MJ 




(SGUNCK) . 






$$ANERRX 


MP 


QUISI04 


$$A$SUP1 
(SGUNCK) 


DG 




$$ANERR9 


MY 


R01 


$$ ANERRG 
$$ANERRI 
$$ANERRJ 


LM 
LR 
LS 
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RETURN 


$ $BATTNI 


NW 


RETXIT 


$ $ANERRX 


MP 


REVSCN 


$ $BATTNH 


NU 




$ $BATTNJ 


PF 


RLCCB 


$ $BEO J 


RC 




$ $BEO J2 


RM 




$$BILSVC 


RP 




$$BPCHK 


RT 


RNGTOP 


$$BATTNI 


PB 




$ $BATTNK 


PL 


ROVER 


$ $ANERRK 


LU 


RSCH 


$$ANERRF 


LK 


RSETWAIT 


$$A$SUP1 
(SGTCHS) 


CK 


RSPPAE1 


$ $BATTNF 


NQ 


RSPPEA 


$$BATTNF 


NQ 


RSTCHQ 


$$ANERRY 


MQ 


RSTFLG 


$ $ANERRI 


LR 




$$ANERRJ 


LT 




$$ANERRP 


LZ 




$$ANERRQ 


MA 




$ $ANERRU 


MG 


RSTOWN 


$$BATTNI 


NZ 


RSTPUB 


$$A$SUP1 
(SGDFCH) 


ED 


RSTPUB1 


$$A$SUP1 
( SGDFCH) 


ED 


RSTQPT 


$$ANERRH 


LQ 




$$ANERRI 


LR 




$ $ANERRJ 


LT 




$ $ANERRP 


LZ 




$ $ANERRQ 


MA 




$ $ANERRU 


MG 


RSTREG 


$$A$SUP1 
(SGUNCK) 


DE 


RTY 


$ $ANERRV 


MH 


RTY1 


$$A$SUP1 
(SGDSK) 


GA 


RTY 9 


$$A$SUP1 
( SGDSK) 


GA 


RTYCT 


$$ANERRV 


MJ. 


RTYONE 


$$ANERRU 


MG 


RTYRTN 


$$ANERRP 


LZ 


RVRSCN 


$$BATTND 


NL 


SOI 


$$ANERRJ 


LS 


SAVLUS 


$ $BATTNJ 


PG 


SCANR1 


$$BATTNA 


ND 


SCANR2 


$ $BATTNA 


ND 


SCANR3 


$$BATTNA 


ND 


SCNJIB 


$ $BATTNI 


PA 


Entry 


point to a subroutine 


that: 



SCNLBS $$BATTNI NZ 

Entry point to a subroutine that: 

• Returns, sequentially, each LUB 
entry in a given class to the 
calling routine. 

• Returns immediately to the calling 
routine when there are no more 
entries in a given class. 



SCNLUB 
SCNRL1 
SCNRL2 

SCURTN 
SECTION1 
SECTI0N3 
SEEKTEST 

SEKCH 
SEKCHK 

SEKCHK1 

SELBMX 

SELECT 

SELERR 

SENSTSTS 

SETARON 

SETCNCL 

SETCODE 

SETDIS 
SETEXT 
SETFLG 
SETLOGUN 



$$BATTNI 

$$BATTNA 

$$BATTNA 

$$BATTNK 

$$ANERRW 

$$ANERRZ 

$$ANERRZ 

$$A$SUP1 

(SGTCHS) 

$$ANERRA 

$$A$SUP1 

(SGDSK) 

$$A$SUP1 

(SGDSK) 

$$A$SUP1 

(SGTCHS) 

$$A$SUP1 

(SGTCHS) 

$$ANERRV 

$$ANERR9 

$$ANERRY 

$$ANERRQ 

$$ANERRS 

$$BDUMP 

$$ANERRS 

$$BATTNB 

$$ANERRX 

$$BEOJ 

$$3E0J1 

$$BEOJ2 

$$BILSVC 

$$BPSW 

$$BPCHK 



PA 
ND 
ND 
PP 
ML 
MS 
MT 
CG 

LB 
GA 

GA 

CL 

CL 

MH 
MX 
MR 
MA 
MD 
RV 
MD 
NF 
MN 
RC 
RK 
RM 
RN 
RR 
RT 



Rout 
for 
Of s 
mess 



ine that sets logical unit address 
SYSLST in CCB after determination 
ymbolic device to be used for 
age output. 



Initializes JBSLUB with the first 
and last bytes of the JIB chained 
to the current pseudo LUB entry of 
JBSLUB. 

Returns immediately to the calling 
sequence when an end-of- JIB- chain 
condition is found. 



SETLT1 
SETLT2 

SETLT2A 

SETOP1 

SETOP2 

SETPOSTL 
SETRTRY 



$$A$SUP1 

(SGSVC) 

$$A$SUP1 

(FOPT) 

$$A$SUP1 

(SGSVC) 

$$A$SUP1 

(SGSVC) 

$$A$SUP1 

(SGSVC) 

$$A$SUP1 

( SGSVC y 

$$ANERRZ 

$$ANERRQ 



FC 

BB 

FC 

FC 

FG r FL 

FG,FL 

MT 
MB 
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STUBGL 




$$BATTND 




NK 














STUCRL 




$$BATTND 




NK 














STUF1U 




$$BATTND 




NK 


SETSKAD 




$$A$SUP1 
( SGDFCH) 




EA 




STUSPC 
SUPCNL 




$$BATTND 
$$A$SUP1 




NK 
DC 


SETSVAR 




$$A$SUP1 
(SGDFCH) 




EC 




SUPEXP 




(SGUNCK) 
$$A$SUP1 




CA,CB 


SETSVC 




$ $ANERRE 




LG 








(SGTCHS) 






SETUP 




$ $BTERM 




RE 




SUPEXT 




$$A$SUP1 




BC 


SIO 




$$A$SUP1 
(SGTCHS) 




CF 




SUPPRIO 




(FOPT) 
$$BEOJ 




RB 


SKCHK 




$ $ANERRA 




LB 




This 


; routine is entered if an abnormal 


SKIP5 




$ $BDUMPF 




RY 




end- 


■of- job condition 


occurs while 


SKIPHDR 




$ $BTERM 




RG 




transient 


$$BTERM is 


executing. An 


SKPLIN 




$ $BATTND 




NL 




I/O 


unrecoverable error would cause a 


SKSLI 




$ $ANERRB 




LC 




cancel of 


$$BTERM itself. 


resulting in 


SNGCHG 




$ $BATTNP 




QN 




an unending loop. Therefore, I/O 


SNGUNA 




$$BATTNI 




PC 




operation 


is bypassed and 


$$BTERM is 


SNS 




$ $ANERRF 




LJ 




reca 


tiled. 








SPACE 




$$BATTNJ 




PH 














SPECIAL 




$$BDUMPF 
$$BDUMPD 
$$BPDUM1 




RZ 
SJ 
SQ 




SUPV 




$$BDUMPF 
$$BDUMPD 




RX 
SG 


See 


discussion of this 


label 


und 


er 


supyi 




$$BDUMPF 




RX 


ALTER. 














$$BDUMPB 




SC,SF 


















$$BDUMPD 




SG 














svco 




$$BEOJ 




RC 


SPECIAL1 




$ $BPDUM1 




SQ 




SVC 00 




$$A$SUP1 




CA,CB 


SSCCB 




$$ANERRW 




MM 








(SGTCHS) 






SSCOM 




$$ANERRW 




ML 




SVC01 




$$A$SUP1 




FB 


SSELER 




$ $ANERRD 




LD 








(SGSVC) 






SSMASK 




$$ANERRQ 




MA 




SVC01A 




$$A$SUP1 




FB 


START 




$ $BATTNG 
$$BPCHK 
$ $BDUMPF 
$$BDUMPB 
$ $BPDUM1 




NR 
RT 
RX 
SB 
SM 




SVC 02 
SVC02A 




(SGSVC) 

$$A$SUP1 

(SGSVC) 

$$A$SUP1 

(SGSVC) 




FC 
FC 


START1 




$$BDUMPF 




RX 




SVC 03 




$$A$SUP1 




FD 


STARTF 




$ $.BATTNF 




NP 








(SGSVC) 






STDEXT 




$$A$SUP1 
(SGUNCK) 




DC 




SVC 04 




$$A$SUP1 
(SGSVC) 




FD 


STDSWH 




$$BATTNJ 




PG 




SVC 05 




$$A$SUP1 




FB 


Program 


switch set to ] 


branch 


when 






(SGSVC) 






stored 


standard assignments 


are 


to be 


SVC 07 




$$A$SUP1 




FD 


logged. 


The branch is 


taken 


at 


the 






(SGSVC) 






end 


of 


the JIB table scan. 


The 


scan 


SVC 08 




$$A$SUP1 




FE 


finds any stored standard assignments. 






(SGSVC) 






The 


switch is reset at 


location 




SVC09 




$$A$SUP1 




FE 


LSTSTD, 


Chart PH. 












(SGSVC) 


















SVC10 




$$A$SUP1 
(SGSVC) 




FE 


STEPL00P 




$$ANERRZ 




MT 




SVC10A 




$$A$SUP1 




FE 


STEXCD 




$$BATTNB 




NF 








(SGSVC) 






STH 




$ $BEO Jl 
$$BPSW 




RK 
RS 




SVC11 




$$A$SUP1 
(SGSVC) 




FC 


STLLMT 




$ $BATTNF 




NP 




SVC11A 




$$A$SUP1 




FC 


STMODE 




$$A$SUP1 
(SGTCHS) 




CF 




SVC12 




(SGSVC) 
$$A$SUP1 




FB 


STORE 




$$A$SUP1 
(SGTCHS) 




CG 




SVC1213 




(SGSVC) 
$$A$SUP1 




FB 


STORKE 




$ $ANERRN 




LW 








(SGSVC) 






STRTED 




$$A$SUP1 
(SGTCHS) 




CE f 


CF 


SVC13 




$$A$SUP1 
(SGSVC) 




FB 


STRTIO 




$$A$SUP1 
(SGTCHS) 




CE, 


CF 


SVC15 




$$A$SUP1 
(SGTCHS) 




CA,CB 


STRTI01 




$$A$SUP1 
(SGTCHS) 




CE r 


CF 
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SVC18 $$A$SUP1 

(SGSVC) 
SVC19 $$A$SUP1 FL 

(SGSVC) 
SVC 2 $$BEOJ RB 

SVC 22 $$A$SUP1 FF 

(SGSVC) 
SVC22A $$A$SUP1 FF 

(SGSVC) 
SVC23 $$A$SUP1 FF 

( SGSVC) 
SVC 24 $$A$SUP1 FF 

( SGSVC) 
SVC25 $$A$SUP1 CA 

(SGTCHS) 
SVC26 $$A$SUP1 FF 

(SGSVC) 
SVC 27 $$A$SUP1 CA 

(SGTCHS) 
SVC29 $$A$SUP1 FB 

(SGSVC) 
SVC2DND $$A$SUP1 FC 

(SGSVC) 
SVCALL $ $ANERRN LX 

S VCERR $ $BEO J RB 

SVCRTN1 $$A$SUP1 FA 

(SGSVC) 
SVEREG $$A$SUP1 HA 

(SGTCON) 
SVNWAD $$A$SUP1 CC 

(SGTCHS) 
SWITCH $$ANERRO LY 

SXTPOK $$BATTNL PU 

SXTRT1 $$A$SUP1 FG,FL 

( SGSVC) 
SYCLAS $$ANERRO LY 

SYSFILE $$A$SUP1 CH 

(SGTCHS) 
SYSFILE1 $$A$SUP1 CH 

(SGTCHS) 
SYSFILE2 $$A$SUP1 CH 

(SGTCHS) 
SYSFILE3 $$A$SUP1 CM 

(SGTCHS) 
SYSFILE4 $$A$SUP1 CH 

(SGTCHS) 
SYSFILE5 $$A$SUP1 CF 

(SGTCHS) 
SYS IN $$A$SUP1 CH 

(SGTCHS) 
SYSINOUT $$A$SUP1 CF 

(SGTCHS) 
SYSMODM $$BATTNI NX 

SYSRFG $$BATTNI NX 

SYSSWH $$BATTNJ PG 

Program switch set to branch when 
system units are to be logged. The 
switch is set to branch by the list BG 
routine (Chart PF) . The switch is 
reset to NOP after the system class 
units have all been logged (Chart PH) . 

SYSTST $$BDUMP RV 

Routine similar to the NOCHNG routine. 
Identifies the physical device 
assigned to SYSLST for a background 
program dump. 



SYSUNT 

SYSXN2 

SYSXXX 

T01 

T03 

T06 

TABLE 



$$BATTNJ 
$$BATTNI 
$$BATTNI 
$$ANERRG 
$$ANERRH 
$$ANERRH 
$$BATTNA 



PG 
NX 
NX 
LN 
LQ 
LQ 



Defines the branch vector table that 
loads and executes B-transients 
required by either the nonresident 
attention routine or the single 
program initiator. If a START 
statement has been processed, 
indicating the B-transients are 
functioning as an initiator, the table 
entries starting at location INTABL 
are added to the branch vector table. 
Each table entry consists of: 

• Operation field of the control 
statement. 

• Phase identifier (an alphabetic 
character) . 

• Branch vector index factor used to 
get the first executable 
instruction of the processing 
phase. 



TAPE1 $$BDUMP RN 

When SYSLST is found to be a tape 
drive, the CCB and CCW are modified 
accordingly to perform a sense 
operation for a file-protect 
condition. Register 12 signals the 
fetched dump program that a tape drive 
receives the storage dump. 



TAPEM0DE2 $$ANERR9 MY 

TAPNOP $$BDUMPF RY 

TAPRTN $$BDUMPF RX 

Data address is stored in the tape 
CCW, and CCB is furnished with the CCW 
address. Switches at 0UT1 and TAPNOP 
are set to branch to perform functions 
necessary for output on tape drive. 



TAP SYS 

TAPSYS1 

TCAN2 

TEB 

TEBVER 

TERM 



$$BDUMPF 

$$BDUMPF 

$$ANERRY 

$$BTERM 

$$ANERRE 

$$ANERRF 

$$BE0J1 

$$BILSVC 

$$BPSW 

$$BPCHK 

$$BDUMP 



RY 
RY 
MR 
RG 
LF 
LH 
RK 
RP 
RS 
RT 
RW 



♦Listing only. 
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TST03U 




TSTATD 


RF 


TSTATTN 


RF 




MA 


TSTBMX 


EB 






TSTCAN 


PL 


TSTCCB 


QE 


TSTCCC 


QE 


TSTCDC 


PM 


TSTCLN 


RD 




FE 


TSTCOR 



TEST $$BTERM 

TEST1 $$BTERM 

TESTIGN $$ANERRQ 

TESTS VC $$A$SUP1 

(SGDFCH) 

TFILL $$BATTNK 

TIMER $$BATTNN 

TIMLNK $$BATTNN 

TLBL $$BATTNK 

TM $$BEOJ3 

TMEKEY $$A$SUP1 

(SGSVC) 

TMEKEY1 $$A$SUP1 

(SGSVC) 

TMERT1 $$A$SUP1 

(SGSVC) 

TMFAVP $ $BATTNI 

TMPAR1 $ $BATTNA 

Defines a doubleword save area used in 
conjunction with the general scan 
routine (Chart ND) . The first word is 
loaded from register POINT1 with the 
address of a statement field 
(operation code or operand) . The 
second word is loaded from register 
POINT2 with the remaining I/O area. 



FE 

FJ 

NZ 
* 



$$ANERRU MF 

$$ANERRR MC 

$$A$SUP1 CK 

(SGTCHS) 

$$A$SUP1 CM 

(SGTCHS) 

$$ANERRR MC 

$$ANERRN LW 

$$ANERRU MF 

$$ANERRU MF 

$$ANERRD LE 

$$ANERRF LJ 

$$BDUMPF SA 

$$BDUMPB SF 

$$BDUMPD SK 

$$BPDUM1 SP 

Entry to subroutine that tests whether 
storage area to £>e printed on a line 
is in dump limits and whether the next 
line is the last line. Register 3 is 
a pointer to the storage address of 
the first byte of a line to be 
printed, and register 5 points to the 
last byte of the line. See CMPCOR 
label discussion, which is part of 
this subroutine. 



Also us 


ed as an entry point 


during 


TSTDEV 




$$A$SUP1 




CD 


B-trans 


ient initialization. 




TSTEOJ 




(SGTCHS) 
$$A$SUP1 
(SGTCHS) 




CE,CF 


TNAERR 


$ $BATTNN 


QE 


TSTERF 




$$A$SUP1 




CK 


TPBUSY 


$$A$SUP1 


CD 






(SGTCHS) 








(SGTCHS) 




TSTLST 




$$BEOJl 




RJ 


TPBUSY1 


$$A$SUP1 
(SGTCHS) 


CD 






$$BE0J2 
$$BILSVC 




RM 
RN 


TPLAB 


$$BATTNK 


PL 






$$BPSW 




RR 


TPLEND 


$ $BATTNK 


PL 






$$BPCHK 




RT 


TPMARK 


$ $BDUMPF 


SA 






$$BDUMPF 




SA 


TPRTN 


$$BDUMPB 


SB 






$$BDUMPB 




SF 




$$BPDUM1 


SM 






$$BDUMPD 




SK 


TPTYPE 


$ $BEO J 


RC 






$$BPDUM1 




SN 




$$BE0J1 


RK 


TSTLST1 




$$BDUMPF 




SA 




$$BE0J2 


RM 






$$BDUMPB 




SF 




$$BILSVC 


RP 






$$BDUMPD 




SK 




$$BPSW 


RS 






$$BPDUM1 




SN 




$$BPCHK 


RT 


Switch that is set to a 


branch on last 




$ $BDUMP 


RW 


line of dump. If a portion of core is 


TPTYPE1 


$ $BEO J 


RC 


found 


that is identical 


to 


the 




$ $BEO Jl 


RK 


previous line, this switch 


is set to 




$$BE0J2 


RM 


no- 


-op 


and the identical 


data is shown 




$$BILSVC 


RP 


by 


printing a line with 


— SAME — . 




$$BPSW 


RS 














$$BPCHK 


RT 












TRANS 


$ $BDUMPB 


SE 


TSTNXT 




$$A$SUP1 




CH 


TRKCHK 


$$A$SUP1 


GB 






(SGTCHS) 








( SGDSK) 




TSTPRT 




$$BDUMPF 




SA 


TRKEOC 


$$A$SUP1 
(SGDSK) 


GB 






$$BDUMPB 
$$BDUMPD 




SF 
SK 


TRNOFF 


$$A$SUP1 


CK 






$$BPDUM1 




SN 




(SGTCHS) 




TSTQEF 




$$A$SUP1 




CL 


TRYNXT 


$$A$SUP1 


CG 






(SGTCHS) 








(SGTCHS) 




TSTRD 




$$ANERRD 
$$ANERRE 




LE 
LG 



^Listing only. 
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Label 



Phase 



TSTRCT $ $ANERRD 

TSTRTY $ $ANERRN 

TSTSSL $$ANERRB 

TSTSVC $$A$SUP1 

( SGDFCH) 

TSTTRG $$ANERRS 

TSTUCK $$A$SUP1 

(SGTCHS) 

TXCUU $ $BATTNI NY 

UALNOT $ $BATTNJ P J 

UAPSWH $$BATTNJ PE 

Program switch set to branch after 
unit assignments have been listed. 
This switch is initialized in the NOP 
state. It is set to branch just 
before the 'UNASSIGNED' header is 
logged. 



UC $ $ANERRE LG 

UCBPAR $ $ANERRV MH 

UCHK $ $ANERRF LJ 

UCS $ $BATTNM QC 

UCS1 $$BATTNM QC 

UCS 2 $$BATTNM QC 

UCS 3 $$BATTNM QC 

UCS 4 $$BATTNM QC 

UCSDN $ $BATTNM QC 

UCSSCN $$BATTNM QC 

UCSTST $ $ANERRV MJ 

UCUERR' $$BATTNI PD 

UNA $ $BATTNI PC 

UNAGO $ $BATTNI PD 

UNALOP $ $BATTNI PD 

UNANO $ $BATTNI PD 

UNARTN $ $BATTNI PD 

UNASSGN $$BTERM RE 

Test for resetting symbolic device 
assignments f and if required, continue 
to Chart RF, where the LUBNDX from the 
PIB of this program (Fl or F2) is 
inserted in register 5. In the case 
of Fl f for example, LUBNDX is equal to 
the sum of the LUBs assigned to 
devices owned by the system programs, 
the background program, and the 
foreground 2 program. This index is 
doubled because there are 2 bytes per 
LUB entry. The result is the 
displacement from the LUB table 
starting address, where this 
foreground program's LUBs begin. By 
adding this displacement to the LUB 
table starting address, the actual 
address for the first LUB is obtained 
in register 5. 

The number of LUBs assigned to this 
type of foreground program is obtained 
from the NICL (Number-in-Class) ; this 
value is adjusted and doubled. 



Chart 


UNCLOG 




$$BATTNH 


NU 




UNCOMMON 




$$A$SUP1 
(SGTCHS) 


CE 


LD 


UNDTR 




$$ANERRT 


ME 


LW 






$$ANERRW 


MK 


LC 


UNKN 




$$ANERRB 


LC 


EB 






$$ANERRE 


LG 




UNNORM 




$$BEOJ 


RA 


MD 


Routine 


entered when 


abnormal 


CJ 


end- 


■of-- 


job condition 


exists. 



Investigation of cause of cancel and 
type of program executing is made, to 
determine which B-transient of the 
terminating phases to call next. 



UNPA $$BATTNI NZ 

Entry point to a routine that 
unassigns currently assigned logical 
units. The subroutine saves, in 
location LBSLUB, the LUB entry of the 
LUB to be unassigned. It then 
unassigns the LUB in the LUB table. 
It checks the LUB table and JIB table 
for other LUBs that point to the same 
physical unit as that of the LUB just 
unassigned. It resets the ownership 
flag in the PUB if no other LUBs point 
to that physical unit. Any stored 
alternate assignments found in the JIB 
table are treated as LUBs (unassigned, 
then checked for matching PUB 
pointers) , 



UNPAN2 

UNPCH 

UNPK 



UNPK1 

UNPKSEN 
UNRCERP 
UNSUPTD 
UNTCK1 

UNTCK1A 

UNTCK2 

UNUSENS 
USREXT 

USRSEN 

USRUCK 

VOL 

VERIF 

VLDADR1 

VLDADR2 



$$BATTNI 
$$ANERRO 
$$BDUMPF 
$$BDUMPB 
$$BDUMPD 
$$BPDUM1 
$$BDUMPF 
$$BDUMPD 
$$BPDUM1 
$$ANERRO 
$$ANERRA 
$$ANERR9 
$$A$SUP1 
(SGUNCK) 
$$A$SUP1 
(SGUNCK) 
$$A$SUP1 
(SGUNCK) 
$$ANERRU 
$$A$SUP1 
(SGUNCK) 
$$A$SUP1 
(SGUNCK) 
$$A$SUP1 
(SGUNCK) 
$$BATTNK 
$$ANERRB 
$$A$SUP1 
(SGTCON) 
$$A$SUP1 
(SGTCON) 



NZ 
LY 
RZ 
SE 
SJ 
SP 
RZ 
SJ 
SP 
LY 
LA 
MY 
DA 

DA 

DA 

MG 
DA 

DB 

DA 

PK 
LC 

HA 

HA 



UNAV 



$ $BATTNG 



NS 
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Label 



Phase 



Chart 



VLDADR3 


$$A$SUP1 
(SGTCON) 




HA 


E: 


WAIT 


$ $ANERRD 
$$ANERRE 
$ $ANERRY 




LE 
LG 

MQ 




WAIT1 


$$ANERR0 




MU 




WAITLOOP 


$$A$SUP1 
(SGDFCH) 




ED 




WFM 


$$BATTNH 




NT 




WFMRES 


$$BATTNH 




NU 




WRITE 


$ $ANERRF 




LH 




WRREP 


$ $ANERRF 




LH 




WRYT 


$ $ANERRD 




LE 




XTENT 


$ $BATTNL 




PU 




XTOP12 


$ $BATTNL 




PX 




Entry point to a subroutine 


that 


XTOUT 


extracts a 


nd validity checks 


the first 


XTUNIT 


two operands (type and 


sequence 




number) of 


an XTENT statement. It 


ZERTEB 


converts the operand to binary, and 


ZROREG 


stores it 


in the label 


area, 


DSECT 




(I/O area) 


• 








XT0P12A 


$ $BATTNO 




QJ 




XT0P12B 
XT0P3 


$ $BATTNO 
$ $BATTNL 




QJ 
PV 




XTQP3 4 


$$BATTNL 




PX 





XTOP5 $$BATTNL PV 

Entry point to the routine that: 

Gets and checks the serial 
number, and stores it in the 
label area DSECT (I/O area) . 

Converts the SYSXXX field of the 
extent to class and displacement- 
Gets the B2 field of an extent, 
converts it to binary, and stores 
it in the label area, DSECT (I/O 
area) • 



$$BATTNL 
$$BATTNL 
$$BATTNO 
$$ANERRS 
$$A$SUP1 
(SGTCHS) 



PW 
PW 
QH 
MD 
CN 



Entry point to a subroutine that 
extracts limit information from the 
XTENT statement, performs initial 
validity checks, converts the numeric 
EBCDIC limit data to binary, and puts 
the limits into the label area, DSECT 
(I/O area) • 
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APPENDIX B: ERROR MESSAGE CROSS REFERENCE 



Message Phase 




Chart 


0P17 


$$ANERRB 


(Disk) 


LC 












$$ANERRG 


(Data Cell) 


LP 


0P08 


$$A$SUP1 
$$ANERRE 
$$ANERRG 


(Disk) 
(Tape) 
(Data Cell) 


GA 
LF 
LN 




$$ANERRL 


(Tape) 


LL 




$$ANERRT 


(MICR) 


ME 


0P18 


$$A$SUP1 


(Disk) 


GA 




$$ANERRU 


(Unit Record) 


MG 




$$ANERRB 


(Disk) 


LC 




$$ANERRV 


(Unit Record) 


MH 




$$ANERRL 


(Tape) 


LL 




$$ANERRW 


(MICR) 


MK, ML 




$$ANERRG 


(Data Cell) 


LP 




$$ANERRX 


(Paper Tape) 


MN 




$$ANERRT 


(MICR) 


ME 




$$ANERR9 


(Optical Reader) 


MX 




$$ANERRU 
$$ANERRV 
$$ANERRW 


(Unit Record) 
(Unit Record) 
(MICR) 


MG 
MJ 
MK,MM 


0P09 


$$A$SUP1 


(Disk) 


GA 




$$ANERRX 


(Paper Tape) 


MN 




$$ANERRA 


(Disk) 


LB 




$$ANERR9 


(Optical Reader) 


MY 




$$ANERRE 


(Tape) 


LF 












$$ANERRG 


(Data Cell) 


LN 












$$ANERRT 


(MICR) 


ME 


0P19 


$$ANERRB 


(Disk) 


LC 




$$ANERRU 


(Unit Record) 


MG 




$$ANERRE 


(Tape) 


LG 




$$ANERRV 


(Unit Record) 


MJ 




$$ANERRG 


(Data Cell) 


LP 




$$ANERRW 


(MICR) 


MK,ML 




$$ANERRT 


(MICR) 


ME 




$$ANERRX 


(Paper Tape) 


PT 




$$ANERRU 


(Unit Record) 


MF,MG 




$$ANERR9 


(Optical Reader) 


MX 




$$ANERRV 
$$ANERRW 
$$ANERRX 


(Unit Record) 
(MICR) 
(Paper Tape) 


MJ 

MK r ML 

MN 


0P10 


$$A$SUP1 
$$ANERRA 
$$ANERRD 


(Disk) 
(Disk) 
(Tape) 


GA 
LA 
LD 




$$ANERR9 


(Optical Reader) 


MY 




$$ANERRG 


(Data Cell) 


LM 


0P20 


$$A$SUP1 


(Disk) 


DB r DF,GA r 




$$ANERRU 


(Unit Record) 


MG 








GB 




$$ANERRV 


(Unit Record) 


MH 




$$ANERRD 


(Tape) 


LE 




$$ANERRX 


(Paper Tape) 


MN 




$$ANERRE 
$$ANERRF 
$$ANERRL 


(Tape) 
(Tape) 
(Tape) 


LG 
LK 
LL 


0P11 


$$A$SUP1 


(Disk) 


GA 




$$ANERRH 


(Data Cell) 


LQ 




$$ANERRB 


(Disk) 


LC 




$$ANERRI 


(Data Cell) 


LR 




$$ANERRD 


(Tape) 


LD 




$$ANERRJ 


(Data Cell) 


LS 




$$ANERRL 


(Tape) 


LL 












$$ANERRK 


(Data Cell) 


LU 












$$ANERRV 


(Unit Record) 


MJ 


0P21 


$$A$SUP1 


(Disk) 


GA 




$$ANERRX 


(Paper Tape) 


MN 




$$ANERRJ 


(Data Cell) 


LS 


0P12 


$$ANERRB 
$$ANERRK 


(Disk) 
(Data Cell) 


LC 
LU 


0P22 


$$ANERRG 


(Data Cell) 


LM 










0P23 


$$ANERRJ 


(Data Cell) 


LS 


0P13 


$$ANERRB 


(Disk) 


LC 












$$ANERRK 


(Data Cell) 


LU 


0P24 


$$xANERRA 


(Disk) 


LA 


0P14 


$$A$SUP1 
$$ANERRB 


(Disk) 
(Disk) 


GA 
LC 


0P25 


$$ANERRA 


(Disk) 


LA 




$$ANERRE 


(Tape) 


LF 


0P26 


$$ANERRA 


(Disk) 


LB 




$$ANERRG 


(Data Cell) 


LN 




$$ANERRG 


(Data Cell) 


LM 




$$ANERRV 


(Unit Record) 


MJ 












$$ANERR9 


(Optical Reader) 


MY 


0P27 


$$ANERRA 
$$ANERRC 


(Disk) 


LA 
LC 


0P15 


$$A$SUP1 
$$ANERRB 


(Disk) 
(Disk) 


GA 
LB 




$$ANERRU 


(Unit Record) 


ME 




$$ANERRJ 


(Data Cell) 


LS 


0P28 


$$A$SUP1 
$$ANERRA 


(Disk) 
(Disk) 


GA 
LA 


0P16 


$$AN£RRB 


(Disk) 


LC 




$$ANERRE 


(Tape) 


LF 




$$ANERRK 


(Data Cell) 


LU 




$$ANERRG 


(Data Cell) 


LM 
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Message 



Phase 



Chart 



0S05I $$BILSVC 



0P29 
0P30 
0P31 

0P32 
0P33 
0P34 
0P35 
0P36 

0P37 

0P60D 
0P70I 
0P71I 
0P7 2I 
0P73I 
0P74I 
0P7 5I 
0P76I 
0P77I 
0P78I 
0P79I 
OSOOI 

0S01I 
0S02I 
0S03I 
0S04I 



$$ANERRT 
$$ANERRU 
$$ANERRW 
$$ANERRX 
$$ANERR9 


(MICR) 

(Unit Record) 

(MICR) 

(Paper Tape) 

(Optical Reader) 


ME 
MF 

MK, ML 
MN 
MX 


0S06I 
0S07I 


$$BE0J1 
$$BPSW 


$$ANERRE 


(Tape) 




LF 


0S08I 


$$BEOJ 


$$ANERRE 


(Tape) 




LF 


0S09I 


$$BEOJl 


$$ANERRA 
$$ANERRD 

$$ANERRE 

$$ANERRV 

$$ANERRW 


(Disk) 
(Tape) 

(Tape) 

(Unit Record) 

(MICR) 


LA 
LD 

LG 

MH 

MM 


0S10I 
0S11I 
1A00D 
1A10D 


$$BTERM 

$$BEOJl 

$$BATTNI 

$$BATTNI 
$$BATTNP 


$$ANERR9 

$$A$SUP1 
$$ANERRA 
$$ANERRJ 


(Optical Reader) 

(Disk) 
(Disk) 
(Data Cell) 


MX 

GA 

LB 
LS 


1A20D 
1A30D 


$$BATTNI 
$$BATTNM 
$$BATTNP 

$$BATTNI 


$$ANERRT 
$$ANERRW 
$$ANERR9 


(MICR) 
(MICR) 
(Optical 


Reader) 


ME 
MK 
MY 


1A40D 


$$BATTNI 
$$BATTNK 
$$BATTNM 


$$ANERRY 






MR 


1A50D 


$$BATTNI 


$$BEOJ2 






RL* 


1A60D 


$$BATTNI 


$$BEOJ2 






RL* 


1A70D 


$$BATTNI 


$$BEOJ2 






RL* 


1C20D 


$$BATTNH 


$$BEOJ2 






RL* 


1C30A 


$$BATTNM 


$$BEOJ2 






RL* 


1C40I 


$$BATTNB 


$$BEOJ2 






RL* 


1C50I 


$$BATTNB 


$$BEOJ2 






RL* 


1C60D 


$$BATTNN 


$$BEOJ2 






RL* 


1I30D 


$$BATTNC 


$$BEOJ2 






RL* 


1I40D 


$$ANERR0 


$$BEOJ2 






RL* 


1I60A 


$$BATTNA 


$$BPCHK 
$$BILSVC 

$$BEOJ2 

$$BEOJ2 






RT 
RN 

RL* 

RL* 


1I80I 
1L00D 


$$BTERM 

$$BATTNL 

$$BATTNO 


$$BPCHK 
$$BILSVC 






RT* 
RN* 


1L10D 


$$BATTNK 
$$BATTNL 
$$BATTNM 
$$BATTNO 



*Also refer to Figures 25 and 38. 



1P00D $$BATTNF 



RN* 

RJ* 

RR 

RA 

RJ* 

RE 

RJ* 

NW 

NV 
QM 

NV, NW 

QC 

QM 

NW 

NX 
PN 
QC,QD 

NY 

PD 

NY 

NU 

PY,QC 

NF 

NF 

QE 

NG 

MU 

NA 

RE 

PS,PU*PV, 
PX 

QG,QH,QJ, 
QK 

PR 
PU 
PZ 
QF 

NP 
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Message Phase Chart PN,PP,PQ 

$$BATTNL PS,PT,PV 

1P10D $$BATTNG NS $$BATTNM PY,QC,QD 

$$BATTNN QE 

1SOOD $$BATTNA NB,NC $$BATTNO QF,QG,QH, 

$$BATTNB NE QJ,QK,QL 

$$BATTNC NG $$BATTNP QM,QN 
$$BATTNE NM,NN 
$$BATTNG NS 

$$BATTNI NV,NX,NY, 1S10D $$BATTNK PK,PL 

PB,PC,PD $$BATTNL PS,PU 

$$BATTNJ PE $$BATTNM PY 

$$BATTNK PK,PL,PM, $$BATTNO QF f QG 
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APPENDIX C: I/O REQUEST-I/O INTERRUPT SEQUENCE 



TABLES/CONTROL BLOCKS 



ROUTINES 



Problem Program 
CCB 



Command 

Control 

Block 



CCWs 



Channel 
Command 
Word - Channel 
Program 



Supervisor 

Logical Unit Block 



Symbolic 

Device 

Addresses 



PIB 



Program 

Information 

Block 



If"- 



111, 



Physical Unit Block 




M 
h 

i 

i 

i 

L 

in 
i" 

IlL 

i! 

-Ji 



PROBLEM PROGRAM 

1 . Issue EXCP macro. 

A. Points register 1 to the CCB (CCB points to CCW chain). 
B . Issues an SVCO. 



SUPERVISOR ROUTINES FOR I/O REQUEST 

"™ 1. SVC interrupt analysis. 

A. Determine that it is an I/O (SVC) request. 

B . Set up register 9 and LPSW to return to problem program via EXT01 . 

2. Channel Scheduler. 

/ A . Clears the CCB transmission bytes . 
B . Points to correct PUB entry. 

3. .Start I/O. 

A. Pick up device address - start I/O. 

4i ...General Exit Routine. 

A. £XT01 - return to problem program. 



PROBLEM PROGRAM ? ••■.. 

• 1 . Issues WAIT macro 

Ao Points register 1 to trie CCB. 
B . Issues an SVC7„ 



Program in this partition enters WAIT state, 



CHANNEL HARDWARE 

*1 o Uses CAW to locate CCW program . 
2 . Starts l/O device „ 
3 Causes I/O interrupt at channel end 
and device end „ 



SUPERVISOR ROUTINES, I/O INTERRUPT 

1. General entry routine. 

A. Give control to I/O interrupt routine. 

2. I/O interrupt routine. 

A. Determine which device caused the interrupt. 

For unit check, go to appropriate error recovery procedure. 
■ — — B . Turn on traffic bit in correct CCB transmission bytes. 

C. Return control to the interrupted partition or go to general exit routine. 

: 3 General exit routine (task selection) „ 

A. Give control to the highest priority partition that is ready to run. 



PROBLEM PROGRAM 1 



(Return is to the WAIT macro expansion.) 

1 . Tests the CCB transmission byte to see that the traffic bit is on. 

2. Continues on to next instruction following the WAIT macro. 

Continue on until next I/O request. 



— — ——►Indicates putting information into a control block/table, 
wftsssssftftsflfiftssft^o- Indicates testing for information in a control block /table. 
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APPENDIX D: LABEL INFORMATION FORMAT ON SYSRES 



Job Control Statements or Operator Initiation Commands 
\ 



> or 




and 



// TPLAB 



// VOL 




Label 

Information 

Cylinder 




// TLBL 



// TPLAB 





Filename 


i^iu^iiliiiaiiy;: 

Byte; ;':.;[: 


File 
ID 


File 

Serial 

Number 


Volume 

Sequence 

Number 


File 

Sequence 

Number 


Generation 
Number 


Version 
Number 


Creation 
Date 


Expiration 
Date 


5eeuri:ty : 
Number 


Block 
Count 


System 


Flag 
Bytes 


1 


7 


l 


17 


6 


4 


4 


4 


2 


6 


6 


1 


6 


13 


2 


? t 


1 


8 


9 


26 


32 


36 


40 


44 


46 


52 


58 


59 


65 


78 



1 I Byte Count 

' Displacement in Main Storage Shaded areas are not processed by DOS Logical IOCS. 

Figure 42. Format of SYSRES Tape Label Information 
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1 


2 


3 


4 


5 


6 


7 


8 


9 


10 


11 


12 


13 


14 


15 


16 


17 


18 


19 


Field 1 


o 

D 
O 

1 

I— 

Z 

LU 

X 

ULI 

1 
—I 
CO 

_l 
Q 


Filename 


o 

i 

en 
to 
\ 
< 

a 


File ID 


Q 

D 

E 
O 


File 

Serial 

Number 


0) 
-Q 

E 

3 

z 

V 

o 

c 

0) 
3 
D- 
<D 

CD 

E 

3 


O 

Q 

c 
# o 

D 

U 


.2 
o 
Q 

c 

1 

'a. 

X 

UJ 


<3 


0) 

6 

c 

CD 

a. 
O 


System 
Code 


Volume 

Serial 

Number 


<d 

Q. 

>N 

I— 

z 

UJ 

s 

UJ 


<5 

-Q 

E 

3 

z 

o 
o 

c 

<D 
3 
CT 

a> 
to 

I— 

z 

LU 
UJ 


EXTENT 

Lower 

Limit 


EXTENT 

Upper 

Limit 


o 
u 

*c 

E 


a5 
6 

'c 

D 

E 

(U 

to 


<J 

o 

1 

_l 

CN 
CO 
CN 


u 

Q. 

CN 
CO 
CN 


/Z Another ^ 
^ EXTENT^ 
^ifDAor^ 
^ISFMS ^ 


1 


7 


1 


44 


1 


6 


2 


3 


3 


2 


1 


13 


6 


1 


1 


4 


4 


1 


1 


1 


1 


Bytes 





1 


8 


9 


53 


54 


60 


62 


65 


68 


70 


71 


84 


90 


91 


92 


96 


100 


101 


102 


103 


Displacement 



Field Name 

1. DLBL- EXTENT Indicator 



Description 

X'80 1 = Next EXTENT on new pack. 

X'40' = Last EXTENT 

X'20' = Bypass EXTENT (SD), or number of EXTENTS (DA or ISFMS). 

X'10 1 = New volume on same unit. 

X'08' = EXTENT limits omitted. 

X'04' = EXTENT converted to DASD address. 



2. 


Filename 


3. 


DA/IS Switch 


4. 


File ID 


5. 


Format ID 


6. 


File Serial Number 


7. 


Volume Sequence Number 


8. 


Creation Date 


9. 


Expiration Date 


10. 


Reserved 


11. 


Open Code 



12. 

13. 
14. 



15. 
16. 

17. 
18. 

19. 

Note: 



System Code 

Volume Serial Number 
EXTENT Type 



EXTENT Sequence Number 
EXTENT Lower Limit 

EXTENT Upper Limit 

System Unit Class 
System Unit Order 

2321 Lower Cell 
2321 Upper Cell 



Same as field 1 except that only bits 4 and 5 are used for DA or ISFMS. 

File identifier including generation and version numbers. 

If field is missing on DLBL card, filename padded with blanks is inserted. 

Numeric 1 is inserted . 

Volume serial number from first EXTENT. 

Always initialized to X'0001 ' . 

Initialized with 3 bytes of X'00' . 

If date is in the form YYDDD, it is converted to YDD . 

If date is in retention period form, 1 to 4 characters, the field is padded with binary zeros. 

The retention period, if specified, is converted to a 2- byte number and inserted in this field. 

DLBL type : 

S = Sequential 

D= Direct Access 

C or E = Indexed Sequential File Management System 

Initialized to contain : 

DOS/360 VER 3 . This field is not processed by DOS . 

Volume serial number for EXTENT. 

Same codes as in Format 1 label : 

X'00 1 = Next three fields do not indicate any extent. 

X'OT = Prime area (ISFMS) or consecutive area, etc., (i.e., the extent containing the user's 

data records). 
X'02' = Overflow area of an ISFMS file. 
X'04' = Cylinder index or master index of an ISFMS file . 
X'40' = User label track area. 
X'8n' = Shared cylinder indicator, where n =1 ,2, or 4. 

Number of extents as determined by the EXTENT card sequence. 

Relative extent converted to the form HHnnT for// DLBL job control statement, or CCHH from 
// DLAB job control statement. 

Same as field 16, but for upper limit. 

Device class and unit numbers. 



2321 EXTENT lower and upper limit Bin numbers. 



For Sequential Disk files, a complete 104- byte block is repeated for each new EXTENT. For Direct Access and ISFMS files, 
only fields 13 through 18 are repeated for each EXTENT. 



Figure 43. Format of SYSRES DASD Label Information 
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APPENDIX E: 



PROGRAM KEY DEFINITIONS 



PIK (Program Interrupt Key) 



RID (Requestor Identification) 



The PIK is a halfword in length and 
consists of a zero value in the high-order 
byte and the key value in the low- order 
byte. The key value is the key of the 
program that was last enabled for 
interrupts. 



See Figure 12 , REQID (Item F) . 



RIK (Requestor I/O Key) 



When an interrupt occurs, the value in 
the PIK indicates to the supervisor which 
program was interrupted. It can also be 
used by transient programs and problem 
programs to determine if they are running 
as BG, Fl, or F2. 



The value of the PIK equals the 
displacement from the beginning of the PIB 
table to the PIB entry for the program 
(task). For BG, F2 , and Fl tasks, this 
value equals the storage protect key 



multiplied by 16. 



Task 



PIK Value 



All Bound* 


X'OO 1 


BG 


X'lO 1 


F2* 


X'20' 


Fl* 


X^O' 


AR 


X'UO 1 


Quiese I/O 


X'50' 


Supervisor 


X'60' 



When a supervisor routine (fetch or 
physical transient) issues an SVC or SVC 
15, the routine puts the value to be used 
in the CAW storage protect key into the 
high-order digit of the second byte of the 
RIK halfword. When this value is zero, the 
low order digit can have these special 
meanings: 



RIK 
X'Ol" 



X'02' 



Meaning 
This is a SYSLOG I/O request. 
The channel scheduler is not to 
type a SYSLOG ID prefix. 

This has been a fetch I/O 
request. This special code is 
required by ERP to recognize 
fetch requests. 



Fetch always sets a X'02' in the RIK. 
ERP transients put the key of the program 
requiring ERP into the RIK, when the ERP is 
a retry of a user EXCP and the ERP 
transient requires control to return to 
itself. 



* Multiprogramming generation option only. 



The PIK is set by task selection within 
the general exit routine. The fetch 
routine sets the PIK to X'60', because it 
enables itself for interrupts and because 
it gets control directly from the SVC 
interrupt routines. The SVC interrupt 
routines, like other completely disabled 
supervisor routines, do not change the PIK 
from the value it had when the interrupt 
occurred that transferred control. 



Physical transients put a X'01* into the 
RIK 1 when they are doing a SYSLOG I/O. The 
PIK for physical transients has a value of 
X'06', therefore the channel scheduler 
would type M SP" (supervisor ID) as the 
SYSLOG ID. The physical transients put the 
ID of the program referred to by the 
message into the message. 



FIK (Fetch I/O Key) 



LTK (Logical Transient Key) 



The LTK has the same value as the PIK when 
the logical transient area is in use. When 
the transient area is free, the LTK equals 
zero. The SVC 2 routine sets the LTK, and 
the SVC 11 routine resets it to zero. 



Used by the fetch to validate the phase 
name address and load address. FIK has the 
following values: 

1 Key of the problem program 
requestor. 

2 

3 

4 if the transient issued the SVC 4. 
Key of the problem program if not a 
transient. 
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APPENDIX F; EXPLANATION OF FLOWCHART SYMBOLS 



DESCRIPTION 



*A1********** 



PROCESSING 



***************** 



A GROUP OF PROGRAM INSTRUCTIONS 
THAT PERFORM A PROCESSING 
FUNCTION OF THE PROGRAM. THE 
LABEL, IF ANY, IS SHOWN ABOVE 
THE BLOCK. 



***** * 

* * * BB-D4, INITL1 

* * BC-B2, 0PENX4 
* * BL-J1, ENDPRN 



IF ANY ADDITIONAL EXPLANATION 
IS REQUIRED, ITS LOCATION ON 
THE CHART IS IDENTIFIED BY AN 
ASTERISK AND THE BLOCK ID. 



************* 



*****Ci ********** 
*LABEL1 BW* 
*-*_*_*_*_*_*_*_* 

* SUBROUTINE * 

* . * 

* * 
***************** 



DESCRIPTION OR TITLE OF A ROUTINE 
THAT IS DETAILED ON ANOTHER 
FLOWCHART. THE STARTING LABEL OF 
THE ROUTINE AND THE FLOWCHART ID 
APPEAR ABOVE THE STRIPE. 



*****C5**** ****** 
*ERRTN BG* 

X* ERROR ROUTINE * 



***************** 



*****D1******* 



************* 



AN INSTRUCTION, OR GROUP OF 
INSTRUCTIONS, THAT CHANGES 
PORTIONS OF A ROUTINE OR 
INITIALIZES A ROUTINE FOR 
GIVEN CONDITIONS. 



*****D4 ********** 



**************** 



**** 
* 

* l . 
* 

**** 



**E1******* 



*********** 



A GROUP OF OPERATIONS NOT 
DETAILED IN THE FLOWCHARTS 
IN THIS MANUAL, SUCH AS 
USER'S ROUTINES. 



**F5******* 

* * 
* ■ 

.X* USER ROUTINE 
* 

* * 
*********** 



******P1*********** 
* INPUT/OUTPUT * 



************ 



ANY FUNCTION OF AN INPUT/OUTPUT 
DEVICE OR PROGRAM, USUALLY 
BRANCHING TO AN I/O ROUTINE TO 
PERFORM THE FUNCTION STATED IN 
THE BLOCK. 



POINTS WHERE THE PROGRAM 
BRANCHES TO ALTERNATE PROCESSING, 
BASED UPON VARIABLE CONDITIONS 
SUCH AS PROGRAM SWITCH SETTINGS 
AND TEST RESULTS. 



****Hi********* 

* * 

* TERMINAL * 

* * 
*************** 



THE BEGINNING, END, OR POINT OF 
INTERRUPTION IN A PROGRAM. 



****H4********* 

* * 

* END OF JOB * 

* * 
*************** 



ON-PAGE CONNECTOR. AN ENTRY 
FROM, OR AN EXIT TO, ANOTHER 
FUNCTION ON THE SAME FLOWCHART. 
THE NUMBER IN THE CONNECTOR 
IDENTIFIES THE CORRESPONDING 
ENTRY OR EXIT ON THE CHART. 



***** 
*BD * 
* D4* 



OFF-PAGE CONNECTOR. AN ENTRY FROM, 
OR AN EXIT TO, A GIVEN POINT ON 
ANOTHER FLOWCHART. THE CHARACTERS 
IN THE CONNECTOR IDENTIFY THE 
CHART AND BLOCK. THE CORRESPONDING 
LABEL, IF ANY, IS PLACED OUTSIDE 
THE CONNECTOR. FOR MULTIPLE ENTRIES 
AND EXITS, AN ASTERISK APPEARS IN 
THE CONNECTOR AND THE CHARACTERS 
ARE LISTED NEARBY. 
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67 
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68 


2321 


69 
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64 





44, 
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50 



(SVC) 44 



Initiator, Program 74 
Interphase Communication Area (For 

A-Transients $$ANERRZ, Y, and 0) 64 
Interrupts 

Attention 60, 73 

External 44, 50 

I/O 44, 50 

Machine Check 

Program Check 

Supervisor Call 
Introduction 11 
I/O Error Recovery Procedures and 

Sense Data 64 
I/O Interrupt 44, 50 

I/O Request - I/O Interrupt Sequence 322 
I/O Table Interrelationship 28 
IT Table (Interval Timer) 39, 40 

JIB (Job Information Block) 
Table 28, 37, 40 

Label Information Format on SYSRES 
DASD 324 
Tape 323 
Label List 298 
LISTIO Sample Printout 77 
Logical ($$B) Transients 73 
73 
73 
74 
75 

LTK (Logical Transient Key) 325 
LUB (Logical Unit Block) Table 28, 30 
LUBID Table 28, 32 

44, 50 
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149 
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103 
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116 

141 
98 



Area 40, 
Attention 
Initiator 
Terminator 



Machine 


Check 


Interrupt 


Macro Function 


.s 18 


Macro Relation 


ships 17 


Macros 




General 


Name 




Chart (s) 


FOPT 




79 


SEND 




— 


SGDFCH 




81 


SGDSK 




84 


SGSVC 




80 


SGTCHS 




82 


SGTCON 




80 


SGUNCK 




84 


SMICR 




83 


SUPVR 




79 



Macros, Supervisor Generation 
Main Storage Map, Supervisor 
Main Storage Organization, 

Multiprogramming 12 
MAP Output 74 
Message Writer, ERP 60 
MICR DTF Addresses and Pointers 

Tables 40, 41 
MICR Error Recovery 71 
Multiprogramming 11, 44 
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21 
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NICL (Next-In-Class-List) 


Table 28 , 


, 30 


Phases (Continued) 
















General 


Detail 




OC Table (Operator Communications) 


39, 40 


Name 


Chart (s) 


Chart (s) 


Text 


Optical Reader Error Recovery 71 




$$BEOJ3 


93 


261 


75 


Option Tables (IT, OC, PC] 


) 39, 40 




$$BILSVC 


95 


270 


75 


Organization 








$$BPCHK 


95 


275 


75 


Low Core 


17 






$$BPDUM1 


97 


293 


75 


Nucleus Code 20 






$$BPDUMP 


97 


292 


75 


I/O Tables and Information 




$$BPSW 


94 


273 


75 


Blocks 


20, 40 






$$BSYSWR 


— 


297 


— 










$$BTERM 


93 


262 


75 


PC Table (Program Check) 


39, 40 




Physical 


($$A) Transients 






Phases 








Area 


40 








General 


Detail 




Attention Routines 60 




Name 


Chart (s) 


Chart (s) 


Text 


Error 


Messages 63 






$$A$SUP1 


79 


98 


44 


Error 


Recovery 60 






$$ANERR0 


87 


192 


60 


Message Writer 60 






$$ANERR1 




194 


60 


Physical 


Input/Output Control System 




$$ANERR9 


85 


195 


60 


(PIOCS) 


51 






$$ANERRA 


85 


150 


60 


Physical 


Unit Block (PUB) 


Table 28, 


29 


$$ANERRB 


85 


152 


60 


PIB (Program Information ; 


Block) 33, 


40 


$$ANERRC 


85 


152 


60 


Flag Expansions 34 






$$ANERRD 


85 


153 


60 


Table 


33, 35 






$$ANERRE 


85 


155 


60 
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$$ANERRF 


85 


157 


60 


PIOCS (Physical Input/Output Control 




$$ANERRG 


85 


161 


60 


System) 


51 






$$ANERRH 


85 


164 


60 


Program 








$$ANERRI 


85 


165 


60 


Information Block (See 


PIB) 




$$ANERRJ 


85 


166 


60 


Interrupt Key 325 






$$ANERRK 


85 


168 


60 


Key Definitions 325 






$$ANERRL 


85 


160 


60 


Status 


Word 55 






$$ANERRM 


86 


169 


60 


Program Check Interrupt 


44, 50 




$$ANERRN 


86 


170 


60 


PSW (Program Status Word) 


55 




$$ANERRO 


86 


172 


60 


PUB (Phys 


icai Unit Block) 


Table 28, 


29 


$$ANERRP 


86 


173 


60 










$$ANERRQ 


86 


174 


60 


Record Format, Label Cylinder 




$$ANERRR 


86 


176 


60 


DASD 
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$$ANERRS 


86 


177 


60 


Tape 
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$$ANERRT 


86 


178 


60 


REQID Table 28, 32 






$$ANERRU 


85 


179 


60 


Resident 


Supervisor 44 






$$ANERRV 


85 


181 


60 


RID (Requ 


estor Identification) 32, 


325 


$$ANERRW 


86 


183 


60 


RIK (Requestor I/O Key) 


325 




$$ANERRX 


85 


186 


60 










$$ANERRY 


87 


188 


60 


SAB (Seek 


. Address Block) 


28, 40 




$$ANERRZ 


87 


190 


60 


Sense Data and ERP 64 






$$BATTNA 


88 


197 


73 


Sense Information for Devices Supported 


$$BATTNB 


89 


201 


73 


by Device Error Recovery 


62 




$$BATTNC 


89 


203 


73 


Statement 


. Processors 






$$BATTND 


89 


205 


73 




-General 


Detail 




$$BATTNE 


90 


208 


73 


Statement 


Chart (s) 


Chart (s) 


Text 


$$BATTNF 


90 


210 


73 


ALLOC 


90 


208 


73 


$$BATTNG 


90 


212 


73 


ASSGN 


91 


216 


— 


$$BATTNH 


90 


214 


73 


BATCH 


90 


212 


73 


$$BATTNI 


91 


216 


74 


CANCEL 


89 


203 


73 


$$BATTNJ 


91 


225 


74 


DLAB 


92 


237 


— 


$$BATTNK 


91 


230 


74 


DLBL 


91 


235 


— 


$$BATTNL 


92 


237 


74 


EXEC 


92 


243 


— 


$$BATTNM 


92 


243 


74 


EXTENT 


92 


250 


— 


$$BATTNN 


90 


249 


73 


HOLD 


92 


257 


— 


$$BATTNO 


92 


250 


74 


IGNORE 


89 


204 


73 


$$BATTNP 


92 


256 


74 


LBLTYP 


92 


255 


— 


$$BDUMP 


94 


277 


75 


LISTIO 


91 


225 


— 


$$BDUMPB 


96 


283 


75 


LOG 


89 


204 


73 


$$BDUMPD 


96 


288 


75 


MAP 


89 


205 


73 


$$BDUMPF 


96 


279 


75 


MSG 


89 


201 


73 


$$BEOJ 


93 


258 


75 


NOLOG 


89 


204 


73 


$$BEOJl 


94 


266 


75 


PAUSE 


89 


204 


73 


$$BEOJ2 


95 


268 


75 


READ 


92 


256 


— 
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